vb課后習題答案第一章習題參考答案一、填空題1、對象事件驅動2、編譯運行模式解釋運行模式二、簡答題1、簡述VB的特點。答：①可視化的程序設計方法面向對象的程序設計思想事件驅動的編程機制結構化的程序設計語言高度的可擴充性強大的數據庫訪問能力支持動態數據交換支持對象鏈接與嵌入2、簡述VB的安裝過程。答：①向光驅中放入VB安裝光盤；計算機將運行自動安裝程序，若沒有，執行VB目錄下的Setup.exe;根據提示逐一回答問題，并點擊下一步”；點擊完成”；2、如何啟動VB。答：三種方法：單擊開始”按鈕，選擇程序”菜單下的“MicrosoftVisualBasic6.0中文版”菜單項并單擊;雙擊桌面上的VB6.0快捷圖標；在開始"菜單的運行對話框中輸入命令來啟動VB;第二章習題參考答案一、選擇題：10、DCACDBCBBC2010、DCACDBCBBC20、BADCABBAAB21-29、AACBBCDDC二、填空題窗體、控件屬性值屬性窗口設置、代碼窗口設置事件過程對象名、下劃線、事件名FormClick1．第三章習題參考答案一、選擇題1、B2、C&A4、B5、A6、C7、C二、填空題1、11字符型、字節型、整型、長整型、單精度型、雙精度型、貨幣型、邏輯型、日期型、對象型、變體型。String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、雙引號(英文)、#3、ASCII1、24、public、通用、Dim、Static、Private、StaticTOC\o"1-5"\h\z5、&、+、+6、Now()、Time、日期型三、解答題(3)2、(1)3、(1)常量(關鍵字)(2)字符型常量(3)邏輯型常量(4)變量(5)字符串常量(6)變量(7)字符串常量(8)變量(9)日期型常量(題目應是#11/16/1999#)(10)數值型常量(單精度)4、315、(1)(1+y/x)/(1-y/x)(2)xA3+3*x*y/(2-y)(3)sqr(abs(a*b-cA3))(4)sqr(s*(s-a)*(s-b)*(s-c))6、7、(1)13(2)17(3)#1999-11-12#(4)zxy123ABC8、(1)19(2)8.16666666666667(3)5.25(4)29、(1)-4(2)2.82842712474619(3)-3(4)49(5)”hello(6)He7)16(8)-459.65”(9)5TOC\o"1-5"\h\z10、(4)11、(2)12、(4)第四章習題參考答案一、選擇題：1—7:DAABBCD二、填空題1.500.00%將字號擴大為原來的二倍B三、編程題(略)1.文本框、標簽和命令按鈕的名稱分別為text1、label1、command1PrivateSubCommand1_Click()Label1.caption=text1.textCommand1.caption=text1.textEndSub

text3和text4,、command1和單價、數量、折扣和應付款對應的文本框的名稱分別為：textl、text2、計算和清除命令按鈕的名稱分別為：commandl和command2。text3和text4,、command1和PrivateSubCommand1_Click()Text4=val(text1)*val(text2)*val(text3)EndSubPrivateSubCommand2_Click()Text1=””：Text2=””：Text3=””：Text4=””EndSub文本框、轉大寫”命令按鈕和轉大寫”命令按鈕的名稱分別為text1command2PrivateSubCommand1_Click()Text1=Ucase(text1)EndSubPrivateSubCommand2_Click()Text1=Lcase(text1)EndSub第五章習題參考答案一、選擇題：1—11:CAABBABBBCC二、填空題1.(3)2.1233.2234.1605.9787.x<=5(或x<6或x<7)8.BiSumiSum+j1250三、編程題PrivateSubForm_Click()Dimi%,s%S=0Fori=101To200step2Ifimod3<>0thenPrintiS=s+iEndIfNextiPrintsEndSubPrivateSubForm_Click()Dimn%,s&S=1:n=0Whiles<=400000N=n+1S=s*nWendIfs>400000Thenn=n-1PrintnEndSubPrivateSubForm_Click()Dimimin%,imax%,i%,R%Imin=100:imax=20Fori=1to20R=Int(Rnd*51+50)IfR>imaxThenimax=RIfR<IMINThenimin="RNextiPrintimax,iminEndSub第六章習題參考答案一、選擇題：1—13:ABAACCBADADBB二、填空題IntervalLabel1.caption=timeList1.ListCountInterValHscroll1.Max三、編程題第七章習題參考答案一、選擇題：1—12:DCADDBBDACCB二、填空題422.Index3.41A(i)=a(11-i)a(11-i)=Tmp16.XMod7=07.2100To8i+1To93K11001MaxMaxMax)三、編程題PrivateSubC1_click()IfOP1(0).Value=TrueThenP1.Print選擇了橢圓形”IfOP1(1).Value=TrueThenP1.Print選擇了圓形IfOP1⑵.Value=TrueThenP1.Print選擇了正方形”EndSub統計按鈕名為Commandl，輸入框名為textl，輸出框為text2(MultLine設為True)PrivateSubCommand1_click()DimX(1to26)ASInteger」AsIntegerDimSAsString,LAsIntegerL=Len(Text1.text)Fori=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.設學生成績的平均分已在Mark(1)至Mark(10)中，學生姓名在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第八章習題參考答案一、選擇題：1—10:DCBBDDDBCB二、填空題aUbound(b)n=n-1Key=a(i)Index=-1三、編程題子過程SubP1(xAsSingle,espAsSingle)Dimp!,S!,F!,i%P=1:S=1:i=1:F=xDoP=P*iS=S+F/pLoopUntilAbs(F/p)<ESPPrintsEndSub子函數FunctionP2(xAsSingle,espAsSingle)AssingleDimp!,S!,F!,i%P=1:S=1:i=1:F=xDoP=P*iS=S+F/pLoopUntilAbs(F/p)<ESPP2=sEndFunctionSwap2能實現數據交換。因為地址傳遞方式形參和實參有共同的地址，那么形參的變化,會引起實參的變化(即形參將值回傳給實參)，故可實現兩數交換。FunctionLF(ByValxAsSingle)AsSingleLF=X*X*XEndFunctionSubCommand1_Click()DimI%Fori=1To20PrintI,LF(i)NextiEndSubFunctionWeekDay(ByValxAsInteger)AsStringSelectCasexCase0WeekDay="星期日"Case1WeekDay="星期一"Case2WeekDay="星期二"Case3WeekDay=”星期三”Case4WeekDay="星期四"Case5WeekDay="星期五"Case6WeekDay="星期六"EndSelectEndFunctionFunctionRand30(ByValXAs'Integer)AsIntegerRandomizeRand30=Int(Rnd*X+1)EndFunctionSubCommand1_Click()Fori=1To30PrintRand30(100)NextiEndSubFunctionF1(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)NextiEndSubFunctionisQO(ByValxAsInteger)AsStringIfxMod2=0ThenisQO='偶數"ElseisQO='奇數”EndIfEndFunctionFunctionF1(ByValxAsInteger)AsBooleanIfxMod17=0andxMod37=0ThenF1=TrueElseF1=FalseEndIfEndFunctionPrivateSubForm_Click()Fori=1000To2000IfF1(i)ThenPrintiEndifNextiEndSubSubF1(a()AsInteger,ByValL1AsInteger,ByValL2AsInteger)DimL%,U%,x%,i%L=LBound(a):U=UBound(a)IfL1>UOrL2>UThenPrint”位置輸入錯誤！”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第九章習題參考答案一、選擇題：1—3:ADD二、填空題1.下拉式彈出式2.PopupMenuVisibleEnabled4.-三、編程題（略）第十章習題參考答案一、選擇題：1—3:DBD二、填空題1.Load2.窗體模塊標準模塊類模塊DoEvents三、編程題(略)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第十一章習題參考答案一、選擇題：1—3:DDA二、填空題62.ABA三、編程題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)A2+(EndY-StartY)A2)Form1.Circle(startX,StartY),r,cEndIfEndSub第十二章習題參考答案一、選擇題：1—8:BBABBCCA9.IHFCLGEBAJKD二、填空題Drive2.PathPrintDirl.PathPath4.Hiddensystem順序文件隨機文件二進制文件FreeFileClose#1Open"c:readme.txt"ForOutputAS#3Open"(autoexec.bat"ForIntputAS#4Open"c:xscj.dat"ForRandomAS#3Len=54Open"smtext1.txt"ForBinaryAS#1ForInputEof(1)KeyAsciiEND或者EndendeNdenD)Text1.text三、編程題1.在標準模塊中定義TypestuIDAsString*12nameAsString*8z1AsString*12z2AsString*12sexAsString*2jcAsBooleanscoolAsString*20sxAsIntegerywAsIntegeryyAsIntegerwlAsIntegerzfAsIntegerEndTypeDimpAsstu在通用中定義PrivateSubCmdAppend_Click()p.ID=T=Text2p.z1=Text3p.z2=Text4p.scool=Text5IfOptionl.Value=TrueThenp.sex="男"IfOption2.Value=TrueThenp.sex="女"IfCheckl.Value=1Thenp.jc=TrueElsep.jc=Falsep.sx=Val(Text6):p.yw=Val(Text7)p.yy=Val(Text8):p.wl=Val(Text9)p.zf=Val(Text10)Put#1,,pEndSubPrivateSubCmdDisplay_Click()Get#1,Val(txtRecord_No),pText1=p.ID:Text2=Text3=p.z1:Text4=p.z2Text5=p.scoolIfp.sex="男"ThenOption1.Value=TrueElseOption2.Value=TrueIfp.jc=TrueThenCheck1.Value=1ElseCheck1.Value=0Text6=p.sx:Text7=p.ywText8=p.yy:Text9=p.wlText10=p.zfEndSubPrivateSubCommand3_Click()Text1="":Text2=""Text3="":Text4=""Text5="":Text6=""Text7="":Text8=""Text9="":Text10=""EndSubPrivateSubForm_Load()OpenApp.Path&"\stu.dat"ForRandomAs#1Len=Len(p)EndSubPrivateSubForm_Unload(CancelAsInteger)Close#1EndSubPrivateSubText10_GotFocus()Text10=Val(Text6)+Val(Text7)+Val(Text8)+Val(Text9)EndSub2.3.4.PrivateTypebooksidAsS