大学计算机VB程序设计教程课后答案

1参考答案第1章概述二．选择题：1.C2.B.3.C.4.C.5.A6.C7.D8.B9.B10.B11.A12.C13.D14.C15.D16.A17.C18.A19.A20.D21.B三．填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四．编程及上机调试：1．略2．SubForm_Click()Label1.Caption=“你单击了窗体”EndSubSubForm_DblClick()Label1.Caption=“你双击了窗体”EndSub第2章面向对象编程基础二．选择题：1.C2.C.3.B.4.B.5.D6.D7.B8.B9.C10.D11.B12.B13.B14.C15.A16.B17.B18.B19.C20.B三．填空题：1.窗体，控件2.属性，事件，方法3.command2_click4.picture5.中部，代码四．编程及上机调试：1．PrivateSubCommand1_Click()Form1.WindowState=2EndSubPrivateSubCommand2_Click()Form1.WindowState=0第1章概述2EndSubPrivateSubCommand3_Click()Form1.WindowState=1EndSub2．PrivateSubCommand1_Click()Form1.Picture=LoadPicture(d:\picture\flower.wmf)Command1.Visible=FalseCommand2.Visible=FalseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_DblClick()Form1.Picture=LoadPicture()Command1.Visible=TrueCommand2.Visible=TrueEndSub第3章常用标准控件二．选择题：1.C2.B3.C.4.D5.B6.B7.A8.C9.B10.C11.C12.A13.C14.B15.D16.D17.C18.A19.D20.A21.B三．编程及上机调试：1.PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElse第1章概述3Text1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click()IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubCommand1_Click()Text1.Text=EndSub2.PrivateSubCommand1_Click()Text2.Text=List1.ListCountEndSubPrivateSubCommand2_Click()List1.AddItemText1.TextText1.Text=EndSubPrivateSubCommand3_Click()DimiAsIntegeri=List1.ListIndexList1.RemoveItemiCommand3.Enabled=FalseText1.SetFocusText2.Text=List1.ListCountEndSubPrivateSubForm_Load()Command3.Enabled=FalseEndSubPrivateSubList1_Click()Command3.Enabled=TrueEndSub第1章概述4第4章VB语言基础二．选择题：1.A2.D3.D.4.A5.A6.A7.C8.D9.C10.B11.A12.D13.C14.A15.A16.C17.D18.A19.B20.D21.C22.A23.B24.C25.C三．编程及上机调试：1．PrivateSubForm_Load()DimxAsInteger,sAsString,dAsIntegerRandomizex=Int(Rnd*9000+1000)s=Trim(CStr(x))d=Val(Right(s,1)+Mid(s,3,1)+Mid(s,2,1)+Left(s,1))ShowPrint产生的数；;x;倒序数;dEndSub2．PrivateSubForm_KeyPress(KeyAsciiAsInteger)Print输入字符:;Chr(KeyAscii),ASCII码为:;KeyAsciiEndSubPrivateSubForm_DblClick()ClsEndSub3．PrivateSubForm_Click()MsgBox在这里显示提示&vbCrLf&提示信息,2+16,请确认EndSub或PrivateSubForm_Click()MsgBox在这里显示提示+Chr(13)+提示信息,vbAbortRetryIgnore_+vbCritical,请确认EndSub第5章程序控制结构二．单选题1.D2.C3.C.4.D.5.B6.C7.A8.A9.D10.C11.C12.C13.B14.B四．编程及上机调试1.PrivateSubForm_Click()DimxAsInteger,yAsInteger第1章概述5x=InputBox(请输入一个数值)Ifx20Theny=x^2+3*x+2ElseIfx=10Theny=Sqr(3*x)-2ElseIfx0Theny=1/x+Abs(x)EndIfPrintx=;x,y=;yEndSub（2）SelectCase实现：PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=InputBox(请输入一个数值)SelectCasexCaseIs20y=x^2+3*x+2CaseIs=10y=Sqr(3*x)-2CaseIs0y=1/x+Abs(x)EndSelectPrintx=;x,y=;yEndSub2.PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerFori=100To999a=i\100b=(i-a*100)\10c=iMod10Ifa^3+b^3+c^3=iThenPrinti;k=k+1IfkMod2=0ThenPrintEndIfNextiEndSub3．PrivateSubCommand1_Click()p=60:r=0.014第1章概述6Dop=p*(1+r)n=n+1LoopUntilp=70Printn;年后世界人口达到;p;亿EndSub4．PrivateSubCommand1_Click()DimsAsSingle,xAsInteger,tAsSingle,nAsIntegerx=Val(InputBox(请输入x的值,,2))s=1n=1m=1Don=n+1m=-mt=m*n/x^(n-1)IfAbs(t)0.00001ThenExitDos=s+tLoopPrintsEndSub第6章数组二．单选题：1.A2.A.3.A4.C5.D6.D7.A8.D9.B10.B四.编程及上机调试:1.OptionBase1PrivateSubForm_Click()Dima(10)AsIntegerDimiAsInteger,tAsIntegerPrint数组的原始数据为：;Fori=1To10a(i)=Int(11*Rnd)+10Printa(i);NextiPrintPrint变化后数组数据为：;Fori=1To5第1章概述7t=a(i)a(i)=a(10-i+1)a(10-i+1)=tNextiFori=1To10Printa(i);NextiEndSub2.OptionBase1PrivateSubForm_Click()Dima(3,4)AsInteger,iAsInteger,jAsInteger,kAsInteger,pAsIntegerRandomizeFori=1To3Forj=1To4a(i,j)=Int(90*Rnd+10)Printa(i,j);NextjPrintNextiMax=a(1,1):k=1:p=1Fori=1To3Forj=1To4Ifa(i,j)MaxThenMax=a(i,j)k=ip=jEndIfNextjNextiPrint最大的数为第&k&行，第&p&列的数：&MaxEndSub3.OptionBase1Dima(4,5)AsInteger'在窗体声明段声明数组DimiAsInteger,jAsIntegerPrivateSubcmdmatrix_Click()'生成数组按钮RandomizeFori=1To4Forj=1To5a(i,j)=Int(Rnd*10)'一位的随机数第1章概述8Picture1.Printa(i,j);'输出元素NextjPicture1.PrintNextiEndSubPrivateSubcmdcol_Click()'求列和按钮DimcolsumAsIntegertxtcol.Text=Forj=1To5'列变量先循环colsum=0Fori=1To4colsum=colsum+a(i,j)Nextitxtcol.Text=txtcol.Text&Str(colsum)NextjEndSubPrivateSubcmdrow_Click()'求行和按钮DimrowsumAsIntegertxtrow.Text=Fori=1To4'行变量先循环rowsum=0Forj=1To5rowsum=rowsum+a(i,j)Nextjtxtrow.Text=txtrow.Text&CStr(rowsum)&vbCrLfNextiEndSubPrivateSubcmdclear_Click()'清除按钮Picture1.Clstxtcol.Text=txtrow.Text=EndSubPrivateSubcmdexit_Click()'结束按钮EndEndSub4.OptionBase1PrivateSubForm_Click()第1章概述9Dima()AsInteger,b()AsInteger,iAsInteger,jAsInteger,xAsInteger,yAsIntegerx=InputBox(第一维上界)DoWhileNotIsNumeric(x)x=Int(InputBox(第一维上界))Loopy=InputBox(第二维上界)DoWhileNotIsNumeric(x)y=Int(InputBox(第二维上界))LoopReDima(x,y)Print原数组元素为：Fori=1ToxForj=1Toya(i,j)=Int(90*Rnd)+10Printa(i,j);NextjPrintNextiPrint转置后数组元素为：Fori=1ToyForj=1ToxPrinta(j,i);NextjPrintNextiEndSub5.OptionBase1PrivateSubForm_Click()Dima(10,10)AsInteger,iAsInteger,jAsIntegerFori=1To10Forj=1To10Ifi=jOri+j=11Thena(i,j)=0Elsea(i,j)=1EndIfPrinta(i,j);NextjPrintNexti第1章概述10EndSub6.OptionExplicitOptionBase1PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,