《VisualBasic程序设计教程(第2版)》课后部分编程题参考答案

1第1章1.按要求设置窗体属性2．在窗体上建立一个标签Label1。程序代码如下：PrivateSubForm_Click()Label1.Caption=你单击了窗体EndSubPrivateSubForm_DblClick()Label1.Caption=你双击了窗体EndSub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Text2.Text=15*xEndSub第2章1～3题：按要求完成操作练习。4．PrivateSubCommand1_Click()'最大化按钮Form1.WindowState=2'最大化EndSubPrivateSubCommand2_Click()'还原按钮Form1.WindowState=0'还原EndSubPrivateSubCommand3_Click()'最小化按钮Form1.WindowState=1'最小化EndSub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEndSub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。PrivateSubCommand1_Click()DimxAsStringx=Left(Text1.Text,1)+Right(Text1.Text,1)Text2.Text=xEndSub第3章1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。PrivateSubCommand1_Click()n=Val(Text1.Text)Randomizex=Int(1+n*Rnd)Label1.Caption=第一个随机数+Str(x)x=Int(1+n*Rnd)Label2.Caption=第二个随机数+Str(x)x=Int(1+n*Rnd)Label3.Caption=第三个随机数+Str(x)EndSub2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。2PrivateSubCommand1_Click()'“交换”t=Text1.TextText1.Text=Text2.TextText2.Text=Text3.TextText3.Text=tEndSubPrivateSubCommand2_Click()'“合并”t=Text1.Text+Text2.Text+Text3.TextText4.Text=tEndSub3.(1)Rnd*9000+1000(2)Str(x)(3)Mid(s,3,1)+Mid(s,2,1)+Left(s,1)4.PrivateSubCommand1_Click()'往左Text1.Left=0EndSubPrivateSubCommand2_Click()'往右Text1.Left=Form1.Width-Text1.WidthEndSubPrivateSubCommand3_Click()'居中Text1.Left=(Form1.Width-Text1.Width)/2EndSub5.PrivateSubCmd1_Click()Lab1.Visible=TrueLab1.Caption=您已下达显示命令EndSubPrivateSubForm_Click()Cmd1.Visible=TrueEndSub6.PrivateSubForm_KeyPress(KeyAsciiAsInteger)ShowPrint输入字符：;Chr(KeyAscii),ASCII码为;;KeyAsciiEndSubPrivateSubForm_DblClick()ClsEndSub7.产生这三个消息框的相应语句是：产生第1个消息框：x=MsgBox(在这里显示提示信息,4+0,请确认)产生第2个消息框：x=MsgBox(在这里显示+Chr(13)+提示信息,3+0,请确认)产生第3个消息框：x=MsgBox(在这里显示+Chr(13)+提示信息,2+16+0,请确认)第4章1.在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)，一个命令按钮Command1(“判断”)。PrivateSubCommand1_Click()'“判断”x=Val(Text1.Text)IfxMod2=0ThenText2.Text=偶数Else消息Text2.Text=奇数EndIfEndSub2．窗体上建立了一个文本框Text1，用于显示结果。PrivateSubForm_Load()x=Val(InputBox(请输入星期几(0～6)))SelectCasexCaseIs=0Text1.Text=星期日(Sunday)CaseIs=1Text1.Text=星期一(Monday)CaseIs=23Text1.Text=星期二(Tuesday)CaseIs=3Text1.Text=星期三(Wednesday)CaseIs=4Text1.Text=星期四(Thursday)CaseIs=5Text1.Text=星期五(Friday)CaseIs=6Text1.Text=星期六(Saturday)CaseElseText1.Text=输入错误EndSelectEndSub3．窗体上建立了一个文本框Text1(“输入口令”)和一个命令按钮Command1(“检查”)。PrivateSubCommand1_Click()'“检查”x=Text1.TextIfx=12345678ThenMsgBox(欢迎你用机!)ElseMsgBox(对不起，口令错)EndIfText1.Text=Text1.SetFocusEndSubPrivateSubForm_Load()Text1.Text=Text1.MaxLength=8Text1.PasswordChar=*EndSub4．窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果)，一个命令按钮Command1(“清除”)。PrivateSubCommand1_Click()'“清除”Text1.Text=Text2.Text=Text1.SetFocusEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)DimsAsString*1s=Chr(KeyAscii)SelectCasesCaseAToZs=LCase(s)CaseaTozs=UCase(s)CaseElses=*EndSelectText2.Text=Text2.Text+sEndSub5．分别选择”红”、”绿”、”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。PrivateSubCommand1_Click()r=0:g=0:b=0IfCheck1.Value=1Then'”红”复选框r=255EndIfIfCheck2.Value=1Then'”绿”复选框g=255EndIfIfCheck3.Value=1Then'”蓝”复选框4b=255EndIfLabel1.BackColor=RGB(r,g,b)EndSub6．程序代码如下：PrivateSubForm_Load()LabClk.Caption=0LabClk.Alignment=1LabClk.BorderStyle=1LabClk.FontSize=22LabClk.FontName=黑体TimClk.Interval=1000EndSubPrivateSubTimClk_Timer()LabClk.Caption=Val(LabClk.Caption)+1EndSub7．(1)Chr(KeyAscii)(2)ElseIfChr(KeyAscii)(3)CheC=CheC-1(4)CheC(5)Is0或Else第5章1.和数为：1.21。程序代码如下：PrivateSubForm_Load()Shows=0Fork=1To100s=s+1/(1+k*4)NextkPrintsEndSub2.程序代码如下：PrivateSubForm_Load()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerShowFori=100To999a=Int(i/100)b=Int((i-100*a)/10)c=i-100*a-10*bIfa*a*a+b*b*b+c*c*c=iThenPrintiEndIfNextiEndSub3.在窗体上建立一个文本框Text1(初始值)、一个列表框List1(显示结果)和一个命令按钮Comd1(“查找”)。PrivateSubComd1_Click()'“查找”DimnAsIntegern=Val(Text1.Text)List1.Clear:k=0DoWhilek=99IfNot(nMod7=0)ThenList1.AddItemnk=k+1EndIfn=n+1LoopEndSub4.程序代码如下：PrivateSubForm_Load()Show5n=Val(InputBox(正整数n=))Fori=1TonForj=i+1TonFork=j+1TonIfi*i+j*j=k*kThenPrint(;i;,;j;,;k;)EndIfNextkNextjNextiEndSub5．在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。程序代码如下：PrivateSubCommand1_click()'显示表项按钮单击事件FontSize=12ClsFori=0ToList1.ListCount-1'逐项判断IfList1.Selected(i)Then'真时为选中PrintList1.List(i)EndIfNextiEndSub6．(1)Text1.Text(2)UCase(x)(3)t=AAndt=Z(4)y+x7．程序代码如下：PrivateSubForm_Load()ShowDimaAsSingle,xn0AsSingle,xn1AsSinglea=Val(InputBox(请输入一个正数))xn1=aDoxn0=xn1xn1=(xn0+a/xn0)/2LoopWhileAbs(xn0-xn1)=0.00001Printa;的平方根为;xn1EndSub第6章1.程序代码如下：PrivateSubForm_Load()ShowDima(100)AsSinglen=Val(InputBox(输入个数n))Print处理前数据:Fork=1Tona(k)=Val(InputBox(请输入第&k&个数))Printa(k);NextkPrintM=Int(n/2)Fork=1ToMh=n-k+1t=a(h):a(h)=a(k):a(k)=tNextkPrint处理的结果:Fork=1TonPrinta(k);NextkEndSub2.程序代码如下：PrivateSubForm_Load()Dima(6,6)AsInteger6ShowFori=1To6Forj=1To6SelectCaseiCaseIsja(i,j)=1CaseIsja(i,j)=2CaseIs=ja(i,j)=