VisualBasic程序设计课后题答案

Vb课后题答案参考答案第1章概述第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=TrueElseText1.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第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,yAsIntegerx=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+2Case10To20y=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.014Dop=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=1To5t=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)'一位的随机数Picture1.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()Dima()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);NextjPrintNextiEndSub6.OptionExplicitOptionBase1PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsInteger,kAsInteger,a(11)AsIntegerj=1Fori=3To21Step2a(j)=iPrinta(j);j=j+1NextiPrintn=InputBox(请输入一个数)Fori=1To10Ifn=a(i)ThenForj=iTo10a(j)=a(j+1)k=k+1NextjEndIfNextiFori=1To9Printa(i);NextiEndSub7.OptionBase1PrivateSubForm_Click()DimaAsVariant,kAsInteger,iAsInteger,jAsIntegerDimbAsVariantb=Array(17,35,128,235,89,121,143,189,231,94)a=Array(11.3,12.3,12#,11.8,12.6,11.6,12.8,11.8,12.4,12.1)Fori=1To9'对数组a的元素排序k=iForj=i+1To10Ifa(k)a(j)Thenk=jNextjIfkiThen'数组b的元素随数组a的元素一起变动t=a(i)a(i)=a(k)a(k)=tt=b(i)b(i)=b(k)b(k)=tEndIfNextiPrint按名字的排列顺序为：Fori=1To10IfLen(b(i))=2Thenb(i)=0&b(i)'补上数组b中长度为２的编号前的0Print第&i&名的号码为：&b(i)&，成绩为：&a(i)NextiEndSub