资源描述：
《visualbasic程序设计教程课后答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VisuaIBasic程序设计教程(李杰主编清华大学出版社2011.2)习题答案习题2参考答案2.2单选题1、B2、C3、A6、B7、D8、C4.D9、B5、A10、D2.3填空题1、事件驱动2、Cancel3、Name4、PrivateSubFormlClick()5、运行程序6、代码窗口7、Textl.Text=H我是一个学生”8、LostEocus()事件9、Label1.Caption="请输入用户名Label!•ForeColor=vbGreen10、(TextLText)*22.4事件练习题1、①该事件的对象是标签Label1,单击标签触
2、发该事件。②缺省Label1对象的代码是针对窗体，其余有Label1对象的代码是针对标签的。③Label1.AutoSize=True语句使标签的大小自动随文字的多少而改变。2、程序运行后，单击命令按钮，在Textl文本框显示〃知音海外版"，在Text2文本框显示〃计算机世界"。3、单击“显示文本框”命令按钮触发的事件过程PrivateSubCommandl_Click()Text1.Visible=TrueText1.ForeColor=vbRedText1.Text二”VB程序设计“EndSub单击“隐藏文本框”命令按钮触发的事件过程Privat
3、eSubCommand2_CIick()Text1.Visible=FalseEndSub习题3参考答案3.2单选题1C2C3D4B5B6B7B8C9D3.3填空题1.REM(或4)_:2双引号(“”)#3$%4UCASE()5.(log(l+d*d)・exp⑵)A(5/2)[还有一种理解方式：(log(l+d*d)-e*e)A(5/2)]6.&0113&H4B习题4参考答案4.2单选题BDCBD4.3填空题1.MsgBox(/z是否删除？“，vbOkCancel+vbQuestion,"删除")2.TheLengthof12345=53.变量或表达
4、式4.15.loop4.4程序设计题1.PrivateSubComniandl_Click()IfText1.Text="asdf"ThenMsgBox〃密码正确！”ElseMsgBox"密码错误〃，vbRetryCancel,"错误"EndIfEndSub2.v题目中的“连续产生nF个字母”应该改为“连续产生n个字母”>PrivateSubCommandl_Click()Dimn%,y%,i%n=Val(Textl.Text)Ifn>10Orn<=0ThenMsgBox”数据超界！“Textl.Tex匸Textl.SetFocusElsey=Int
5、((90・65+1)*Rnd)+65Fori=1TonPrintChr(y+i)NextiEndIfEndSub3.PrivateSubForm_Click()Dima!,b!,c!,xl!,x21,d!a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=b*b・4*a*cIfd>=0Thenxl=(-b+Sqr(d))/(2*a)X2=(-b・Sqr(d))/(2*a)Printxl;X2ElsePrint”没有实根“EndIfEndSub4.PrivateSubForm_Click()Dimi
6、%,j%,s%,n%,q%n=InputBox(Hentern:r')q=0Fori=1Tons=0Forj=1Tois=s+jNextjq=q+sNextiPrintqEndSub5.PrivateSubForm_Click()Dimi%,j%,n%,k%n=0Fori=1To3Forj=1To3Fork=1To3Printi&j&k,n=n+1IfnMod5=0ThenPrintNextkNextjNextiPrintPrintHn=n;nEndSub6.PrivateSubForm_Click()Dimi%,j%,n%,k%Fori=1To9F
7、orj=0To9Fork=0To9n=i*100+j*10+kIfn=iA3+jA3+kA3ThenPrintn,NextkNextjNextiEndSub习题5参考答案5.2单选题1A2B3C4C5D6D7A8C9D10A11A12B5.3填空题1・False2.Caption3.0ListCount-14.PrintListl.List(3)5•Combo1.ReMoveitem31.LargeChange2.Timer3.5004.Shape5.Borderstyle5.4程序设计题1.Dimopl,op2,resultAsSingleDimo
8、peratorAsIntegerPrivateSubCommandlClick(IndexAsInteger
