




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
第一章習(xí)題參考答案解釋運行模式答:①可視化的程序設(shè)計方法②面向?qū)ο蟮某绦蛟O(shè)計思想③事件驅(qū)動的編程機制④結(jié)構(gòu)化的程序設(shè)計語言⑤高度的可擴充性⑥強大的數(shù)據(jù)庫訪問能力⑦支持動態(tài)數(shù)據(jù)交換⑧支持對象鏈接與嵌入①單擊“開始”按鈕,選擇“程序”菜單下的“MicrosoftVisualBasic6.0中文版”菜單項并單擊;②雙擊桌面上的VB6.0快捷圖標;③在“開始”菜單的運行對話框中輸入命令來啟B;第二章習(xí)題參考答案-29、AACBBCDDC考答案oleant3、(1)常量(關(guān)鍵字)(2)字符型常量(3)邏輯型常量(4)變量(5)字符串常量(6)變量(7)字符串常量(8)變量(9)日期型常量(題目應(yīng)是#11/16/1999#)(10)數(shù)值型常量(單精度)311+y/x)/(1-y/x)(2)x^3+3*x*y/(2-y)(3)sqr(abs(a*b-c^3))(4)sqr(s*(s-a)*(s-b)*(s-c))(1)13(2)17(3)#1999-11-12#(4)zxy123ABC(3)5.25(4)2考答案三、編程題(略)rivateSubCommandClickabelcaptiontexttextommandcaptiontexttextubrivateSubCommandClickTextvaltextvaltextval(text3)ubrivateSubCommandClickText1=””:Text2=””:Text3=””:Text4=””ub3.文本框、“轉(zhuǎn)大寫”命令按鈕和“轉(zhuǎn)大寫”命令按鈕的名稱分別為rivateSubCommandClickcasetextubrivateSubCommandClickcasetextub考答案iSumiSumj250Dimi%,s%Fori=101To200step2PrintiEndIfNextiPrintsubFormClickimnsWhiles<=400000NndIfs>400000Thenn=n-1PrintnubmClickDimiminimaxi%,R%Fori=1to20ntRndIfR<IMINThenimin="RNextintimaximinub考答案ntInterValHscrollMax考答案Aia1-i)a(11-i)=TmpXMod10.0To8i+1To9IfOP1(0).Value=TrueThenP1.Print“選擇了橢圓形”IfOP1(1).Value=TrueThenP1.Print“選擇了圓形”IfOP1(2).Value=TrueThenP1.Print“選擇了正方形”ubPrivateSubCommandclickubDimXto26)ASInteger,IAsIntegerDimSAsString,LAsIntegerenTexttextFori=1ToLIx(Asc(S)-65+1)=x(Asc(S)-65+1)+1EndIfNextiFori=1ToLTexttextChri)&“=”&x(i)&““TexttextchrchrNextiPrivateSubCommandclickDimIJT%,S$Fori=1To9Forj=i+1To10henTMarkiMarkiMarkjMarkjTmeinameinamejnamejSNextJNextiFori=1To10ntNameiMarkiNextiub考答案.a(chǎn)Ubound(b)n=n-12.Key=a(i)Index=-1xAsSingleespAsSingleDimpSFi%PSi:F=xLoopUntilAbs(F/p)<ESPPrintsubFunctionPxAsSingle,espAsSingle)AssingleDimpSFi%PSi:F=xoopUntilAbsFpESPPsion那么形參的變化,會引起實參的變化(即形參將值回傳給實參),故可實現(xiàn)兩數(shù)交換。LFByValxAsSingleAsSingleiondClickDimI%Fori=1To20intILFiNextiubunctionWeekDayByValxAsIntegerAsStringelectCasexCase0WeekDay=”星期日”Case1WeekDay=”星期一”Case2WeekDay=”星期二”Case3WeekDay=”星期三”Case4WeekDay=”星期四”Case5WeekDay=”星期五”Case6WeekDay=”星期六”ctionionRandByValXAsIntegerAsIntegerdIntRndXiondClickFori=1To30PrintRandNextiubDimi%Fori=3Tox-3Step2GDBH=i&"+"&(x-i)&"="&xtionEndIftionnctionispyAsBooleanDoWhilei<=ki=i+1EndIfionivateSubFormClickFori=6To40Step2tGDBHiNextiubctionisQOByValxAsIntegerAsStringisQO=”偶數(shù)”isQO=”奇數(shù)”EndIfiontionFByValxAsIntegerAsBooleanenEndIfionivateSubFormClickFori1000To2000ForiForiLToL+1-1EndifNextiubAsIntegerByValLAsDimL%,U%,x%,i%LLBoundaUUBounda)SubEndIfa(i)=a(i-1)NextiaL=xlseIfLLThenFori=L1ToL2-1a(i)=a(i+1)NextiaL=xEndIfub考答案unctionFunctionFByValxByValAsIntegeruibleEnabled考答案Dimtr&ThentxxyytRxModyDoWhileRR=xModyionrivateSubCommandClickTextValTextF(Val(Text1),Val(Text2))TextValTextF(Val(Text1),Val(Text2))ub參考答案xAsSingle,YAsSingle)Text1=x:Text2=YEndSubEndIfubngleYAsSingleDimr%,c%DimEndXEndYAsIntegerEndXx:EndY=YRGBrSqr((EndX-startX)^2+(EndY-StartY)^2)Form1.Circle(startX,StartY),r,cEndIfub參考答案systemOpencsamplesreadmetxtForOutputAS#3OpencautoexecbatForIntputAS#4tForRandomASLenyASTypestuingnameAsString*8zAsString*12zAsString*12tringererwlAsIntegerivateSubCmdAppendClickTextmeTextTextTextoolTexthenpsexhenpsexenpjcTrueElsepjcFalsepsxValTextp.yw=Val(Text7)pyyValTextp.wl=Val(Text9)fValTextPut#1,,pubivateSubCmdDisplayClickGet#1,Val(txtRecord_No),pTextpIDText2=Text3=p.z1:Text4=p.z2Textp.scoolueOpenAppPathstudatForRandomAs#1Len=Len(p)ubPrivateSubFormUnloadCancelAsInteger)oseubivateSubTextGotFocusTextValTextVal(Text7)+Val(Text8)+Val(Text9)ubteTypebooksnameAsString*8tringmathAsIntegerrivateSubCommandClickbAsbooksOpencstudatForAppendAs#1bidInputBox輸入學(xué)號")bnameInputBox輸入姓名")bsexInputBox輸入性別")bmathInputBox輸入數(shù)學(xué)成績")bengInputBox輸入英語成績")beleInputBox輸入電子成績")Write#1,b.id,,b.sex,b.math,b.eng,b.eleoseubrivateSubCommandClickDima,b,cOpencstuodatForInputAs#1WhileNotEOF(1)tabcddItembddItembddItembdoseubriv
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 手術(shù)器械裝配調(diào)試工操作評估模擬考核試卷含答案
- 2025年攪墨棒項目建議書
- 2024-2025學(xué)年高中政治 第1單元 生活智慧與時代精神 單元綜合提升說課稿 新人教版必修4
- 脂肪醇生產(chǎn)操作工復(fù)測評優(yōu)考核試卷含答案
- 方鋼管混凝土柱-鋼梁狗骨式套筒連接節(jié)點抗震性能研究
- 通信設(shè)備組調(diào)工安全實踐評優(yōu)考核試卷含答案
- 福建省泰寧縣第一中學(xué)高二體育與健康《田徑綜合練習(xí)》說課稿1 新人教版
- 顱咽管瘤惡性致病上皮細胞及關(guān)鍵致病因子的多組學(xué)研究
- 基于大模型的智慧醫(yī)療問答研究與應(yīng)用
- 2025年監(jiān)控攝像頭項目合作計劃書
- GB/T 14327-2009苯中噻吩含量的測定方法
- 松下panasonic-視覺說明書pv200培訓(xùn)
- 先天性甲狀腺功能減低癥ppt
- 公共英語一級真題年月
- 植物生理學(xué)(全套PPT課件)
- 外科學(xué)題庫水電解質(zhì)代謝和酸堿平衡失調(diào)
- 35kV輸電線路工程旋挖鉆孔專項施工方案
- 抗精神病藥物的副作用及處理
- 瀝青路面厚度試驗檢測記錄表(鉆芯法)
- 口腔科診斷證明書模板
- 拆舊施工方案
評論
0/150
提交評論