版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
vb課后習(xí)題答案第一章習(xí)題參照答案一、填空題1、對(duì)象事件驅(qū)動(dòng)2、編譯運(yùn)行模式解釋運(yùn)行模式二、簡(jiǎn)答題1、簡(jiǎn)述VB的特點(diǎn)。答:①可視化的程序設(shè)計(jì)方法②面向?qū)ο蟮某绦蛟O(shè)計(jì)思想③事件驅(qū)動(dòng)的編程體制④構(gòu)造化的程序設(shè)計(jì)語言⑤高度的可擴(kuò)大性⑥強(qiáng)大的數(shù)據(jù)庫(kù)接見能力⑦支持動(dòng)向數(shù)據(jù)互換⑧支持對(duì)象鏈接與嵌入2、簡(jiǎn)述VB的安裝過程。答:①向光驅(qū)中放入VB安裝光盤;②計(jì)算機(jī)將運(yùn)行自動(dòng)安裝程序,若沒有,履行VB目錄下的;③根據(jù)提示逐一回答下列問題,并點(diǎn)擊“下一步”;④點(diǎn)擊“達(dá)成”;2、怎樣啟動(dòng)VB。答:三種方法:①單擊“開始”按鈕,選擇“程序”菜單下的“MicrosoftVisualBasic中文版”菜單項(xiàng)并單擊;②雙擊桌面上的快捷圖標(biāo);③在“開始”菜單的運(yùn)行對(duì)話框中輸入命令來啟動(dòng)VB;第二章習(xí)題參照答案一、選擇題:1-10、DCACDBCBBC11-20、BADCABBAAB21-29、AACBBCDDC二、填空題1.窗體、控件2.屬性值3.屬性窗口設(shè)置、代碼窗口設(shè)置4.事件過程5.對(duì)象名、下劃線、事件名6.Form_Click第三章習(xí)題參照答案一、選擇題1、B2、C3、A4、B5、A6、C7、C二、填空題1、11字符型、字節(jié)型、整型、長(zhǎng)整型、單精度型、雙精度型、錢幣型、邏輯型、日期型、對(duì)象型、變體型。String、Byte、Integer、Long、Single、Double、Currency、BooleanDate、Object、Variant2、雙引號(hào)(英文)、#3、ASCII、1、24、public、通用、Dim、Static、Private、Static5、&、+、+6、Now( )、Time、日期型三、解答題1、(3)2、(1)3、(1)常量(重點(diǎn)字)(2)字符型常量(3)邏輯型常量(4)變量(5)字符串常量(6)變量7)字符串常量(8)變量(9)日期型常量(題目應(yīng)是#11/16/1999#)(10)數(shù)值型常量(單精度)4、315、(1)(1+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))6、7、(1)13(2)173)#1999-11-12#(4)zxy123ABC3)5.25(4)27)16(8)“”(9)510、(4)11、(2)12、(4)第四章習(xí)題參照答案一、選擇題:1—7:DAABBCD二、填空題1.%2.將字號(hào)擴(kuò)大為原來的二倍3.B三、編程題(略)1.文本框、標(biāo)簽和命令按鈕的名稱分別為text1、label1、command1PrivateSubCommand1_Click( )==EndSub2.單價(jià)、數(shù)量、折扣和應(yīng)付款對(duì)應(yīng)的文本框的名稱分別為:text1、text2、text3和text4,計(jì)算和消除命令按鈕的名稱分別為:command1和command2。PrivateSubCommand1_Click( )Text4=val(text1)*val(text2)*val(text3)EndSubPrivateSubCommand2_Click( )Text1=””:Text2=””:Text3=””:Text4=””EndSub3.文本框、“轉(zhuǎn)大寫”命令按鈕和“轉(zhuǎn)大寫”命令按鈕的名稱分別為text1、command1和command2PrivateSubCommand1_Click( )Text1=Ucase(text1)EndSubPrivateSubCommand2_Click( )Text1=Lcase(text1)EndSub第五章習(xí)題參照答案一、選擇題:1—11:CAABBABBBCC二、填空題1.(3)2.1233.2234.1605.96.787.x<=5(或x<6或x<7)8.B9.iSumiSum+j1250三、編程題1.PrivateSubForm_Click( )Dimi%,s%S=0Fori=101To200step2Ifimod3<>0thenPrintiS=s+iEndIfNextiPrintsEndSub2.PrivateSubForm_Click( )Dimn%,s&S=1:n=0Whiles<=400000N=n+1S=s*nWendIfs>400000Thenn=n-1PrintnEndSub3.PrivateSubForm_Click( )Dimimin%,imax%,i%,R%Imin=100:imax=20Fori=1to20R=Int(Rnd*51+50)IfR>imaxThenimax=RIfR<IMINThenimin="RNextiPrintimax,iminEndSub第六章習(xí)題參照答案一、選擇題:1—13:ABAACCBADADBB二、填空題1.Interval=time2.InterVal三、編程題第七章習(xí)題參照答案一、選擇題:1—12:DCADDBBDACCB二、填空題1.422.Index3.414.A(i)=a(11-i)a(11-i)=Tmp5.16.XMod7=07.2108.0To8i+1To99.3K110.1001MaxMaxMax)三、編程題1.PrivateSubC1_click( )IfOP1(0).Value=TrueThen“選擇了橢圓形”IfOP1(1).Value=TrueThen“選擇了圓形”IfOP1(2).Value=TrueThen“選擇了正方形”EndSub2.統(tǒng)計(jì)按鈕名為Command1,輸入框名為text1,輸出框?yàn)閠ext2(MultLine設(shè)為True)PrivateSubCommand1_click( )DimX(1to26)ASInteger,IAsIntegerDimSAsString,LAsIntegerL=LenFori=1ToLS=Mid(Text1,I,1)S=Ucase(S)IfS>="A"AndS<="Z"Thenx(Asc(S)-65+1)=x(Asc(S)-65+1)+1EndIfNextiFori=1ToLText2=text2&Chr(64+i)&“=”&x(i)&““IfIMod7=0thenText2=text2&chr(13)+chr(10)NextiEndSub3.設(shè)學(xué)生成績(jī)的平均分已在Mark(1)至Mark(10)中,學(xué)生姓名在name(1)至name(10)中。PrivateSubCommand1_click( )DimI%,J%,T%,S$Fori=1To9Forj=i+1To10IfMark(i)<MARK(J)ThenT=Mark(i):Mark(i)=Mark(j):Mark(j)=TS=name(i):name(i)=name(j):name(j)=SNextJNextiFori=1To10PrintName(i),Mark(i)NextiEndSub第八章習(xí)題參照答案一、選擇題:1—10:DCBBDDDBCB二、填空題1.a(chǎn)Ubound(b)n=n-12.Key=a(i)Index=-1三、編程題1.子過程SubP1(xAsSingle,espAsSingle)Dimp!,S!,F!,i%P=1:S=1:i=1:F=xDoP=P*iS=S+F/pLoopUntilAbs(F/p)<ESPPrintsEndSub子函數(shù)FunctionP2(xAsSingle,espAsSingle)AssingleDimp!,S!,F!,i%P=1:S=1:i=1:F=xDoP=P*iS=S+F/pLoopUntilAbs(F/p)<ESPP2=sEndFunction2.Swap2能實(shí)現(xiàn)數(shù)據(jù)互換。因?yàn)榈攸c(diǎn)傳達(dá)方式形參和實(shí)參有共同的地點(diǎn),那么形參的變化,會(huì)惹起實(shí)參的變化(即形參將值回傳給實(shí)參),故可實(shí)現(xiàn)兩數(shù)互換。3.FunctionLF(ByValxAsSingle)AsSingleLF=X*X*XEndFunctionSubCommand1_Click( )DimI%Fori=1To20PrintI,LF(i)NextiEndSub4.FunctionWeekDay(ByValxAsInteger)AsStringSelectCasexCase0WeekDay=”星期日”Case1WeekDay=”星期一”Case2WeekDay=”星期二”Case3WeekDay=”星期三”Case4WeekDay=”星期四”Case5WeekDay=”星期五”Case6WeekDay=”星期六”EndSelectEndFunction5.FunctionRand30(ByValXAs`Integer)AsIntegerRandomizeRand30=Int(Rnd*X+1)EndFunctionSubCommand1_Click( )Fori=1To30PrintRand30(100)NextiEndSub6.FunctionF1(ByValXAs`Single,ByValYAs`Single)AsIntegerIfX>YThenF1=XElseF1=YEndIfEndFunction7.FunctionGDBH(ByValx%)AsStringDimi%Fori=3Tox-3Step2Ifisp(i)Andisp(x-i)ThenGDBH=i&"+"&(x-i)&"="&xExitFunctionEndIfNextEndFunctionFunctionisp(y%)AsBooleani=2:k=Int(y/2)DoWhilei<=kIfyModi=0ThenExitDoi=i+1LoopIfi>kThenisp=TrueElseisp=FalseEndIfEndFunctionPrivateSubForm_Click( )Fori=6To40Step2PrintGDBH(i)NextiEndSub8.FunctionisQO(ByValxAsInteger)AsStringIfxMod2=0ThenisQO=”偶數(shù)”ElseisQO=”奇數(shù)”EndIfEndFunction9.FunctionF1(ByValxAsInteger)AsBooleanIfxMod17=0andxMod37=0ThenF1=TrueElseF1=FalseEndIfEndFunctionPrivateSubForm_Click( )Fori=1000To2000IfF1(i)ThenPrintiEndifNextiEndSub10.SubF1(a( )AsInteger,ByValL1AsInteger,ByValL2AsInteger)DimL%,U%,x%,i%L=LBound(a):U=UBound(a)IfL1>UOrL2>UThenPrint"地點(diǎn)輸入錯(cuò)誤!"ExitSubEndIfIfL1>L2Thenx=a(L1)Fori=L1ToL2+1Step-1a(i)=a(i-1)Nextia(L2)=xElseIfL2>L1Thenx=a(L1)Fori=L1ToL2-1a(i)=a(i+1)Nextia(L2)=xEndIfEndSub第九章習(xí)題參照答案一、選擇題:1—3:ADD二、填空題1.下拉式彈出式2.PopupMenu3.VisibleEnabled4.-三、編程題(略)第十章習(xí)題參照答案一、選擇題:1—3:DBD二、填空題1.Load2.窗體模塊標(biāo)準(zhǔn)模塊類模塊3.DoEvents三、編程題1.(略)2.FunctionF(ByValx&,ByValY&)AsIntegerDimt&,r&Ifx<YThent="x:x=y:y=tR=xModyDoWhileR<>0X=yY=rR=xModyLoopF=yEndFunctionPrivateSubCommand1_Click( )Text3=Val(Text1)/F(Val(Text1),Val(Text2))Text4=Val(Text2)/F(Val(Text1),Val(Text2))EndSub第十一章習(xí)題參照答案一、選擇題:1—3:DDA二、填空題62.ABA三、編程題1.PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)Text1=x:Text2=YEndSub2.DimstartX,StartYAsInteger‘在通用中申明PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)IfButton=2ThenstartX=x:StartY=YEndIfEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)IfButton=1ThenPSet(x,Y),RGB(0,0,0)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle)IfButton=2ThenDimr%,c%DimEndX,EndYAsIntegerEndX=x:EndY=Yc=RGB(0,0,0)r=Sqr((EndX-startX)^2+(EndY-StartY)^2)(startX,StartY),r,cEndIfEndSub第十二章習(xí)題參照答案一、選擇題:1—8:BBABBCCA9.IHFCLGEBAJKD二、填空題1.Drive2.PathPrint3.Path4.Hiddensystem5.次序言件隨機(jī)文件二進(jìn)制文件6.FreeFile7.Close#18.Open“c:”ForOutputAS#39.Open“c:”ForIntputAS#410.Open“c:”ForRandomAS#3Len=5411.Open“”ForBinaryAS#112.ForInputEof(1)13.KeyAsciiEND(或許EndendeNdenD)三、編程題1.‘在標(biāo)準(zhǔn)模塊中定義TypestuIDAsString*12nameAsString*8z1AsString*12z2AsString*12sexAsString*2jcAsBooleanscoolAsString*20sxAsIntegerywAsIntegerAsIntegerwlAsIntegerzfAsIntegerEndTypeDimpAsstu‘在通用中定義PrivateSubCmdAppend_Click( )Text1Text2Text3Text4Text5If=TrueThen="男"If=TrueThen="女"If=1Then=TrueElse=FalseVal(Text6):=Val(Text7)Val(Text8):=Val(Text9)Val(Text10)Put#1,,pEndSubPrivateSubCmdDisplay_Click( )Get#1,Val(txtRecord_No),pText1=:Text2=Text3=:Text4=Text5=If="男"Then=TrueElse=TrueIf=TrueThen=1Else=0Text6=:Text7=Text8=:Text9=Text10=EndSubPrivateSubCommand3_Click( )Text1="":Text2=""Text3="":Text4=""Text5="":Text6=""Text7="":Text8=""Text9="":Text10=""EndSubPrivateSubForm_Load( )Open&"\"ForRandomAs#1Len=Len(p)EndSubPrivateSubForm_Unload(CancelAsInteger)Close#1EndSubPrivateSubText10_GotFocus( )
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025下半年安徽省馬鞍山和縣事業(yè)單位招聘21人歷年高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025下半年四川省安岳縣事業(yè)單位招聘108人歷年高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025上海地鐵第一運(yùn)營(yíng)限公司維護(hù)保障檢修工(儲(chǔ)備)招聘50人高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025上半年江蘇省蘇州昆山市周莊鎮(zhèn)招聘24人歷年高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025上半年四川自貢市屬事業(yè)單位考試聘用工作人員121人高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025上半年四川省文學(xué)藝術(shù)界聯(lián)合會(huì)直屬事業(yè)單位招聘擬聘用人員歷年高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025上半年內(nèi)蒙古自治區(qū)科技信息傳播服務(wù)保障中心招聘工作人員高頻重點(diǎn)提升(共500題)附帶答案詳解
- 2025《前進(jìn)論壇》雜志社公開招聘應(yīng)屆高校畢業(yè)生1人高頻重點(diǎn)提升(共500題)附帶答案詳解
- 體育公園綠化改造施工合同
- 醫(yī)療器械品牌授權(quán)政策
- 服裝類供貨服務(wù)方案
- 基坑土方施工方案評(píng)審意見
- 大連市小升初手冊(cè)
- 會(huì)陰阻滯麻醉完整版PPT課件
- 四輥不可逆鋁板冷軋機(jī)的設(shè)計(jì)
- 工地三相五線制電路布線詳解20160318
- 新《安全生產(chǎn)法》解讀PPT課件
- 人才梯隊(duì)-繼任計(jì)劃-建設(shè)方案(珍貴)
- WLANAP日常操作維護(hù)規(guī)范
- 《健身氣功》(選修)教學(xué)大綱
- GE公司燃?xì)廨啓C(jī)組支持軸承結(jié)構(gòu)及性能分析
評(píng)論
0/150
提交評(píng)論