VB程序设计实验教程与习题选解 (王杰华、郑国平) 中国铁道出版社 62页

'欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/阳光大学生网【欢迎光临】阳光大学生网：）最专业的课后答案，期末试题网站，一切成功源于积累，谨以此站献给所有奋斗路上的我们。关注大学生成长。一起分享大学里的学习资料和生活感悟，免费提供:大学生课后答案，大学考试题及答案，经典好书推荐及理由。第一章VB开发环境与VB概述习题答案习题一、选择题1.2.3.4.5.6.7.8.9.10.11.12.13.14.BAABDBAACBCDAD第二章常用控件与界面设计习题答案习题一、选择题1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.CBCAABBBCCBBDAB16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.BBCCDBBBCCCABBC31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.BCBBDBDDBABABBD46.47.48.49.50.51.52.53.54.55.56.57.58.59.60.AABDCDDCDDCACCB61.B 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/第三章实验与习题实验实验3_1‘算术运算PrivateSubCommand1_Click()ConstaAsSingle=3,bAsSingle=2,cAsSingle=-1,dAsSingle=6DimxAsSingle,yAsSingle,zAsSingle,mAsSinglex=2:y=1:z=1:m=1List1.ClearList1.AddItema/(b+c/b)List1.AddItem(x+Sqr(x^2+1))^(1/3)List1.AddItem((2*y)/(a*x+b*y)*(a*x-b*y))List1.AddItem1+1/(1+1/m)List1.AddItem1/2*(d/3)^(2*x)List1.AddItemLog(y+Cos(x)^2)List1.AddItemAbs((Exp(x)+Sin(x)^3)/(x+y))List1.AddItemLog((Exp(x*y)+Abs(1/Tan(z)+Cos(x)^3))/(x+y-z))List1.AddItemSin(45*3.1415/180)+(Exp(10)+Log(10))/Sqr(x+y+1)List1.AddItemLog(a)/Log(b)EndSub‘关系运算PrivateSubCommand2_Click()List1.ClearList1.AddItemMid("VisualBasic",1,12)=Right("LanguageVisualBasic",12)List1.AddItem"ABCRG">="abcde"List1.AddItemInt(134.69)>=CInt(134.9)List1.AddItem78.9/32.77<=97.5/43.87And-45.4>-4.98List1.AddItemStr(32.345)=CStr(32.345)EndSub‘逻辑运算PrivateSubCommand3_Click()DimxAsInteger,yAsIntegerDimC1AsInteger,C2AsInteger,C3AsIntegerC1=70:C2=80:C3=90x=9:y=-2List1.ClearList1.AddItemx+y<10Andx-y>0List1.AddItem(x%>=0Andy%>=0)Or(x%<0Andy%<0)List1.AddItemx=0Xory=0List1.AddItemC1+C2+C3>=255OrC1>90AndC2>90AndC3>80 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndSub实验3_2略实验3_3略实验3_4‘零售结算PrivateSubCommand1_Click()DimdjAsSingle,slAsSingle,jeAsSingle,nAsIntegerLabel1.Caption="金额："dj=InputBox("请输入商品的单价：","单价框")sl=InputBox("请输入商品的数量：","数量框",1)je=dj*sln=MsgBox("共计金额="&je,vbOKCancel+vbInformation,"结果")Ifn=vbOKThenLabel1.Caption="金额："&Str(je)&"元"EndSub‘产生随机数PrivateSubCommand2_Click()DimmAsInteger,nAsIntegerDimx1AsInteger,x2AsInteger,x3AsIntegerm=Val(Text1.Text):n=Text2.TextRandomizex1=Int(Rnd*(n-m+1)+m)x2=Int(Rnd*(n-m+1)+m)x3=Int(Rnd*(n-m+1)+m)Label4.Caption="结果为："&Str(x1)&Str(x2)&Str(x3)EndSub‘求逆序数PrivateSubCommand3_Click()DimaAsInteger,hAsInteger,tAsInteger,nAsIntegerRandomizea=Int(Rnd*(999-100+1)+100)h=Mid(CStr(a),1,1)t=Mid(CStr(a),2,1)n=Right(CStr(a),1)Label5.Caption=a&"-->"&Format(n*100+t*10+h,"000")EndSub实验3_5略 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/习题选择题1-20:DBBDBDDBCADDDCDDBADB21-40:DCDAAB_ACABCADAB_BCD41-60:BCBDCCADBACBDDDABAAA61-80:BBCABBDAAACBBDDCBDAD81-89:CBDBBBADC填空题1、2-32768~327672、整型长整型单精度双精度3、0False“”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”)))x>0Andy>0Orx<0Andy<0c>=”a”Andc<=”z”Orc>=”A”Andc<=”Z”x>=10Andx<20x0OrYMod400=09、HeSaid,“Goodmorning”.10、EDEF11、(A>0AndA<>Int(A))And(B<0AndB<>Int(B))12、a+b+c+d 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/(a+b+c+d)/4sumaver13、(f-2*h)/2(4*h-f)/2简答题1、略2、PrivateSubForm_Click()Constg=9.8DimV0AsSingle,tAsSingleDimSAsSingleV0=InputBox("请输入V0的值：")t=InputBox("请输入时间t的值：")S=(1/2)*g*t^2+V0*tMsgBox("位移量为："&S)EndSub3、PrivateSubCommand1_Click()DimlAsSingle,wAsSingle,hAsSingleDimsAsSinglel=Text1.Textw=Text2.Texth=Text3.Texts=(l*w+l*h+w*h)*2Label1.Caption=sEndSub 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/第四章选择分支与循环实验答案实验4-1方法一：x<=5;y方法二：Is<=2;CaseElse实验4-2Shape1.BackColor=vbRed;Inter=15;Inter=Inter-1;Inter;实验4-3b=10^-4;(-1)^(n+1)*m实验4-6x2=x3;<10^-6实验4-7实验4-8i+2*j+5*k=10;n实验4-9题目一：a)5b)i=16p=12n=5c)i=9p=8n=1题目二：12010实验4-10 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/N=1；S=N&"*3"&"+1"实验4-11Len(st);Ch=Lcase(ch);CaseElse;Mid(Char,I,1)&St实验4-12i100;(iMod100)10习题一、选择题1．C2.C3.A4.D5.A6.B7.B8.D9.B二、填空题1．Is=0;1To10;Is>102.93.3;4154.thisisabook;ThisIsABook5.3;3;356.3207.48.1519.1;401;10410.123;13;111.(3)12.202413.101414.BAABCCBAABC15.XModP=0;X=X+1;Find=False16.abs(t)<10^(-7);s+t17.Mid(n,1,1)=Mid(n,2,1)AndMid(n,3,1)=Mid(n,4,1)S=S+118.Mid(n,i,1)>Mid(n,i+1,1)19."输入n";N/I=0;PrintI第五章数组实验5_1Int(90*Rnd)+10 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/a(i)=a(21-i)a(21-i)=t5_2k=xMod10i=i+15_3s5_4max="0"Andch<="9"P=P&chReDimPreserveC(k)5_11PrivateSubForm_Click()DimxAsInteger,iAsInteger,kAsInteger,jAsIntegerDima()AsIntegerx=InputBox("输入正整数x=")i=2Printx;"的质因子为:";DoWhilex>=iIfxModi=0Thenk=k+1ReDimPreservea(k)a(k)=i 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/x=xiElsei=i+1EndIfLoopForj=1ToUBound(a)Printa(j);NextjEndSub习题一选择题1.A2.C3.D4.C5.B6.D7.D8.B9.D10.B11.B12.D二填空题1.Variant2.ReDimA(N)A(1)IfMA(j)4.InStr(s,",")Right(s,Len(s)-n)s5.456 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/6543216.T–1I+17.k=6-i–jmax=m8.j=aj=j-39.i+1i=i+110.237三编程题1．OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimiAsInteger,maxAsIntegerFori=1To10a(i)=Int(90*Rnd)+10Printa(i);NextiPrinti=1max=0DoWhilei<=10Ifa(i)Mod3=0ThenIfa(i)>maxThenmax=a(i)EndIfEndIfi=i+1LoopIfmax=0ThenPrint"无要找的数"ElsePrintmax&"是最大的能被3整除的数"EndIfEndSub2． 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA()AsIntegerDimIAsInteger,mAsIntegerDimKAsIntegerReDimA(10)ForI=1To10A(I)=IPrintA(I);NextIPrintm=InputBox("ÊäÈëm")K=9+mReDimPreserveA(K)ForI=11ToKA(I)=A(I-10)NextIForI=1To10A(I)=A(I+m-1)NextIForI=1To10PrintA(I);NextIPrintEndSub3．OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,JAsInteger,KAsIntegerDima()AsInteger,nAsInteger,pAsIntegerDimsAsString,FlagAsBooleanp=1ForK=10To100I=1DoWhileI<=10AndNotFlagJ=1DoWhileJ<=10AndNotFlagn=I^2+J^2Ifn=KThenFlag=TrueReDimPreservea(p) 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/a(p)=Kp=p+1s=I&Str(J)&Str(K)List1.AddItemsEndIfJ=J+1LoopI=I+1LoopFlag=FalseNextKEndSub4．OptionExplicitPrivateSubCommand1_Click()DimA(10)AsIntegerDimB(10)AsInteger,SAsStringDimIAsInteger,JAsInteger,XAsIntegerA(1)=Int(90*Rnd)+10S=A(1)ForI=2To10DoX=Int(90*Rnd)+10ForJ=1ToI-1IfX=A(J)ThenExitForNextJIfJ=IThenA(I)=XS=S&""&A(I)ExitDoEndIfLoopNextIText1.Text=SB(1)=Int(90*Rnd)+10S=B(1)ForI=2To10DoX=Int(90*Rnd)+10ForJ=1ToI-1IfX=B(J)ThenExitForNextJIfJ=IThen 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/B(I)=XS=S&""&B(I)ExitDoEndIfLoopNextIText2.Text=SS=""ForI=1To10ForJ=1To10IfA(I)=B(J)ThenS=S&""&A(I)EndIfNextJNextIText3.Text=SEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndSub5．OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,JAsIntegerDima()AsInteger,KAsInteger,SumAsIntegerK=Val(Text1.Text)I=1DoJ=KMod10ReDimPreservea(I)a(I)=JSum=Sum+JK=K10I=I+1LoopUntilK=0Text2.Text=SumEndSub6．OptionExplicit 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/PrivateSubCommand1_Click()Dima(100,2)AsInteger,KAsIntegerDimIAsInteger,JAsIntegerDimMAsInteger,NAsIntegerK=1ForI=1To99ForJ=1To99IfI>JThenM=I-JN=I+JIfSqr(M)=Int(Sqr(M))AndSqr(N)=Int(Sqr(N))ThenList1.AddItemI&""&Ja(K,1)=Ia(K,2)=JK=K+1EndIfEndIfNextJNextIEndSub第六章参考答案实验实验6-11、ExitDo2、Y(X)3、X>=-1实验6-2【题目二】42、26、8实验6-31、s1,key2、sAsString3、ch>="a"Andch<="z"4、Mid(s,i,1)=Chr(Asc(ch)+k-26)思考：解密函数PrivateSubdec(sAsString,kAsInteger)"解密过程DimiAsInteger,chAsString*1 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Fori=1ToLen(s)ch=Mid(s,i,1)If"A"<=chAndch<="Z"ThenIfAsc(ch)-k="a"Andch<="z"Then"多分支格式，ch介于小写a与z之间IfAsc(ch)-k0p=qq=rr=pModqLoopGcd=qEndFunction实验6-5【题目一】age=age(n-1)-3【题目二】1、(Left+Right)/22、Left=Mid+1实验6-61、3-12、74 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/3、3-14、70实验6-7【题目一】1、Sqr(2+t)2、Abs(a-1)Sqr(I)ThenReDimPreserveP(UBound(P)+1)P(UBound(P)+1)=I"P(UBound(P))=IEndIfNextIForI=80To125Iffun(I,P,S1,S2)Then"Iffun(I,P,S1,S2)Text1=Text1&Str$(I)&"="&Str(S1)&"*"&Str$(S2)&vbCrLfEndIfNextIEndSubPrivateFunctionfun(NAsInteger,P()AsInteger,S1AsInteger,S2AsInteger)AsBooleanDimIAsInteger,JAsIntegerForI=1ToUBound(P)ForJ=1ToUBound(P)-1IfN=P(I)*P(J)ThenS1=P(I)S2=P(J)"fun=TrueExitFunctionfun=True"位置错EndIfNextJNextIEndFunction3、OptionExplicitPrivateSubGet_Chess(Chess()AsInteger,idxAsInteger,OverAsInteger)"ByValidxAsInteger 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/DimUbAsInteger,CounterAsInteger,KAsIntegerUb=UBound(Chess)Chess(idx)=0Counter=1K=0"位置错DoUntilCounter=Ub-1DoUntilK=2idx=idx+1Ifidx>UbThenidx=1K=K+Chess(idx)LoopChess(idx)=0Counter=Counter+1LoopForOver=1ToUbIfChess(Over)<>0ThenExitForNextOverEndSubPrivateSubCommand1_Click()DimChess(32)AsInteger,IAsInteger,JAsIntegerDimKAsInteger,idxAsIntegerForI=1To32ForJ=1To32Chess(J)=1NextJCallGet_Chess(Chess,I,K)IfK=23ThenText1="从第"&Str$(I)&"号棋子开始取"ExitForEndIfNextIEndSub5、OptionExplicitPrivateSubForm_Click()DimSAsString,FlgAsBooleanDoS=InputBox("输入一个自然数")IfS=""OrNotIsNumeric(S)ThenMsgBox"请重新输入",48+vbOKOnlyElse 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/ExitDoEndIfLoopjudge(S,Flg)"Calljudge(S,Flg)或judgeS,FlgIfFlgThenPrintS;"是回文数"ElsePrintS;"不是回文数"EndIfEndSubPrivateSubjudge(ChAsString,FAsBoolean)DimLAsInteger,IAsIntegerL=Len(Ch)F=True"F=FalseForI=1ToLIfMid$(Ch,I,1)<>Mid$(Ch,L+1-I,1)ThenExitSubNextIF=False"F=TrueEndSub四、编程题1、编程验证任一大于2的偶数可以表示成两个素数之和。PrivateFunctionPrime(aAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(a)IfaModi=0ThenExitFunctionNextiPrime=TrueEndFunction"方法一PrivateSubCommand1_Click()DimmAsInteger,iAsIntegerm=InputBox("请输入一个大于2的偶数")Ifm<=2OrmMod2<>0ThenMsgBox"请输入大于2的偶数":ExitSubIfPrime(2)AndPrime(m-2)ThenPrintm&"=2+"&m-2ElseDoi=i+1IfPrime(2*i+1)AndPrime(m-(2*i+1))Then 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Printm&"="&2*i+1&"+"&m-(2*i+1)ExitDoEndIfLoopWhile2*i+10ThenMsgBox"请输入大于2的偶数":ExitSubReDimp(1)p(1)=2n=1Fori=3Tom-2Step2IfPrime(i)Thenn=n+1ReDimPreservep(n)p(n)=iEndIfNextiFori=1TonForj=1TonIfp(i)+p(j)=mThenPrintm&"="&p(i)&"+"&p(j)flg=TrueExitForEndIfNextjIfflg=TrueThenExitForNextiEndSubmn!2、求组合数C（n>=m），程序中必须包含一个求阶乘的通用过程。nm!(nm)!PrivateFunctionFact(aAsInteger)AsLongIfa=0Ora=1ThenFact=1ElseFact=a*Fact(a-1)EndIf 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndFunctionPrivateSubCommand1_Click()DimnAsInteger,mAsInteger,resultAsSinglen=Val(Text1.Text)m=Val(Text2.Text)Ifn>=mThenresult=Fact(n)/Fact(m)/Fact(n-m)Text3.Text=resultElseMsgBox"要求n>=m,请重新输入"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndSub3、编写一个查找10到300之间所有同构数的程序，程序中必须包含一个判定某数是否是同构数的Function过程Istgs。若一个数出现在自己平方数的右端，则此数为同构数。如5在52=25的右端，25在252=625的右端，故5和25为同构数。PrivateFunctionIstgs(nAsInteger)AsBooleanDimsAsString,LAsIntegerL=Len(CStr(n))s=CStr(n^2)IfRight(s,L)=nThenIstgs=TrueEndFunctionPrivateSubCommand1_Click()DimnAsIntegerForn=10To300IfIstgs(n)ThenList1.AddItemn&"^2"&"="&n^2NextnEndSubPrivateSubCommand2_Click() 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndEndSub4、编写程序，随机生成一个由三位正整数组成的3行4列的数组，求数组每一行的最大元素及其所在列号，程序中必须包含一个求一行中最大元素及其所在列号的通用过程。（若一行中有多个最大元素则取其中之一即可）PrivateSubCmdDisp_Click()Dima(3,4)AsInteger,iAsInteger,jAsIntegerDimmAsInteger,mjAsIntegerRandomizeFori=1To3Forj=1To4a(i,j)=Int(900*Rnd+100)Printa(i,j);NextjPrintNextiFori=1To3m=0Callmax(a,i,m,mj)Print"第"&i&"行最大值为"&m&",在第"&mj&"列"NextiEndSubPrivateSubmax(a()AsInteger,iAsInteger,mAsInteger,maxjAsInteger)DimjAsIntegerm=a(i,1):maxj=1Forj=2ToUBound(a,2)Ifa(i,j)>mThenm=a(i,j)maxj=jEndIfNextjEndSubPrivateSubCmdEnd_Click()EndEndSub5、一个整数N的因子和（不包括N）等于N，则N被成为完全数。例如，28=1+2+4+7+14，28是完全数。编写程序验证：介于10到10000之间的完全数，把它们的各位数字加起来得到一个数，再把这个数的各位数字加起来又得到一个数，一直做下去，直到得到一个一位数，这个数是1，程序中必须包含一个判定某数是否是完全数的过程。例如，28的各位数字加起来得到一个数10，再把10这个数的各位数字加起来又得到一个数是1。 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/PrivateFunctionIsWqs(nAsInteger)AsBooleanDimsumAsInteger,iAsIntegerFori=1Ton/2IfnModi=0Thensum=sum+iNextiIfsum=nThenIsWqs=TrueEndFunctionPrivateSubCommand1_Click()DimnAsIntegerDimsumAsIntegerForn=10To10000IfIsWqs(n)Thent=nPrintt;"=>";Dosum=0Fori=1ToLen(t)-1sum=sum+Mid(CStr(t),i,1)PrintMid(CStr(t),i,1);"+";Nextisum=sum+Mid(CStr(t),i,1)Ifsum<>1ThenPrintMid(CStr(t),i,1);"=";sum;",";sum;"=>";ElsePrintMid(CStr(t),i,1);"=";sum;EndIft=sumLoopUntilsum=1PrintEndIfNextnEndSubPrivateSubCommand2_Click()End 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndSub6、找出500以内的超完全数，程序中必须包含一个判定某数是否是超完全数的过程。设符号Ф（N）表示N的所有因子的和（包括N在内），若Ф（Ф（N））=2N，则N就是一个超完全数。例如，16的因子和为1+2+4+8+16=31，而31的因子为1+31=32，32=2*16，故16是一个超完全数。PrivateFunctionJudge(nAsInteger)AsBooleanDimsumAsIntegersum=yz(n)Ifyz(sum)=2*nThenJudge=TrueEndFunctionPrivateFunctionyz(nAsInteger)AsIntegerDimiAsIntegerFori=1TonIfnModi=0Thenyz=yz+iNextiEndFunctionPrivateSubCommand1_Click()DimnAsIntegerForn=1To500IfJudge(n)ThenPrintnNextnEndSub7、编写程序，通过调用通用过程找出100以内的所有不可表示成两个平方数之和的数。PrivateFunctionpfh(nAsInteger)AsBooleanDimiAsInteger,tAsSingleFori=1ToInt(Sqr(n))t=n-i^2IfSqr(t)=Int(Sqr(t))Thenpfh=TrueNextiEndFunctionPrivateSubCommand1_Click()DimnAsInteger,tAsIntegerForn=1To100Ifpfh(n)=FalseThent=t+1Printn;IftMod10=0ThenPrintEndIf 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/NextnEndSub8、编写程序，通过调用通用过程找出30以内所有的无平方因子数。若一个数不能被大于1的数的平方整除，则该数就是一个无平方因子数。PrivateSubCommand1_Click()DimnAsInteger,jAsInteger,flgAsBooleanForn=2To30flg=FalseForj=2TonIfpfs(j)AndnModj=0Thenflg=TrueExitForEndIfNextjIfflg=FalseThenPrintn;NextnEndSubPrivateFunctionpfs(nAsInteger)AsBooleanIfSqr(n)=Int(Sqr(n))Thenpfs=TrueEndFunction9、编写程序，通过调用通用过程验证下列命题：任意一个正整数和其反序数相加，得到一个新的正整数，再对这个新整数重复上述步骤，最终一定可以得到一个回文数（例如，正整数351，其反序数为153，351+153=504，504+405=909，909是回文数）。"求反序数PrivateFunctionfxs(nAsLong)AsLongDimiAsInteger,sAsStringFori=1ToLen(CStr(n))s=Mid(CStr(n),i,1)&sNextifxs=sEndFunction"判断某数是否为回文数PrivateFunctionHws(nAsLong)AsBooleanDimiAsInteger,sAsString,LAsIntegers=CStr(n):L=Len(s)Fori=1ToLen(s)/2IfMid(s,i,1)<>Mid(s,L+1-i,1)ThenExitFunctionNextiHws=TrueEndFunctionPrivateSubCommand1_Click() 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/DimxAsLong,tAsLongx=InputBox("请输入一个正整数：")t=xDoWhileHws(t)=FalsePrintt;"+";fxs(t);"=";t+fxs(t)t=t+fxs(t)LoopEndSub10、找出1000以内所有的奇妙平方数，程序中必须包含一个判定某事是否是奇妙平方数的过称。所谓奇妙平方数，是指此数的平方与它的逆序数的平方互为逆序数。例如，122=144，212=441，12与21互逆，144与441互逆，12就是奇妙平方数。"求反序数PrivateFunctionfxs(nAsLong)AsLongDimiAsInteger,sAsStringFori=1ToLen(CStr(n))s=Mid(CStr(n),i,1)&sNextifxs=sEndFunctionPrivateSubCommand1_Click()DimnAsLong,tAsLongForn=1To999t=fxs(n)Ift^2=fxs(n^2)AndnMod10<>0Andn1ThenExitFunctionIfiMod2=0AndMid(CStr(n),i,1)Mod2<>0ThenExitFunctionNextiF=TrueEndFunctionPrivateSubCmdDisp_Click()Dima(8)AsInteger,iAsInteger,jAsIntegerRandomizeDot=Int(900*Rnd+100)Forj=1ToiIft=a(j)ThenExitForNextjIfj=i+1Theni=i+1a(i)=tList1.AddItema(i)IfF(a(i))ThenList2.AddItema(i)EndIfLoopUntili=8EndSubPrivateSubCmdClear_Click() 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/List1.ClearList2.ClearEndSubPrivateSubCmdEnd_Click()EndEndSub13、编写一个找出所有三位绝对素数的程序。所谓绝对素数是指该数本身是素数，其逆序数也是素数的数。例如，107与701都是素数，所以107和701都是绝对素数。PrivateFunctionprime(aAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(a)IfaModi=0ThenExitFunctionNextiprime=TrueEndFunctionPrivateFunctionnx(nAsInteger)AsIntegerDimiAsInteger,sAsStringFori=1ToLen(CStr(n))s=Mid(CStr(n),i,1)&sNextinx=Val(s)EndFunctionPrivateSubCmdFind_Click()DimnAsInteger,tAsIntegerForn=100To900t=nx(n)Ifprime(n)Andprime(t)AndnmaxThenmax=a(i,j)maxj=jEndIfNextjFort=1ToUBound(a,1)Ifa(t,maxj)>maxThenFlg=FalseExitSubEndIfNextFlg=TrueEndSubPrivateSubCommand2_Click()DimiAsInteger,mAsInteger,mjAsInteger,fAsBooleanFori=1To4 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/f=Falsem=0:mj=0CallFp(a,i,mj,f)Iff=TrueThenText1.Text=Text1.Text&"("&i&","&mj&"):"&a(i,mj)EndIfNextiEndSubPrivateSubCommand3_Click()Picture1.ClsText1.Text=""EndSub15、编写程序，随机生成30个无重复数的三位整数，找出其中的降序数。所谓降序数是指所有高位数字都大于低位数字的数。PrivateSubCommand1_Click()Dima(30)AsInteger,iAsInteger,jAsIntegerDimFlagAsBooleanRandomizeDot=Int(900*Rnd+100)Forj=1ToiIft=a(j)ThenExitForNextjIfj=i+1Theni=i+1a(i)=tText1.Text=Text1.Text+Str(a(i))IfiMod10=0ThenText1.Text=Text1.Text+vbCrLfIfIsDown(a(i))ThenList1.AddItema(i)Flag=TrueEndIf 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndIfLoopUntili=30IfFlag=FalseThenList1.AddItem"无降序数"EndSubPrivateFunctionIsDown(nAsInteger)AsBooleanDimiAsInteger,SAsStringS=CStr(n)Fori=1ToLen(S)-1IfMid(S,i,1)9999999Then"MsgBox"数据不合要求",48,"输入一个7位整数""ExitSub"EndIfForI=1ToLen(Temp)A(I)=Mid$(St,I,1)NextForI=1To6 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/ForJ=I+1ToLen(Temp)IfA(I)9999999Then"MsgBox"数据不合要求",48,"输入一个7位整数""ExitSub"EndIfForI=1ToLen(Temp)A(I)=Mid$(St,I,1)NextForI=1To6ForJ=I+1ToLen(Temp)IfA(I)1000Fork=1Toi-1Text1=Text1&""&Fb(k)NextFork=2Toi-1Forj=2ToSqr(Fb(k))IfFb(k)Modj=0ThenExitForNextIfj>Sqr(Fb(k))ThenText2=Text2&""&Fb(k)NextEndSub 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/PrivateSubCommand2_Click()EndEndSub实验7_3改错题答案OptionBase1PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sAsStringDima()AsInteger,kAsInteger,gcdAsInteger,lcdAsIntegerList1.AddItem"聪明数对如下："Fori=1To9Forj=iTo9s=""Callgld(i,j,gcd,lcd)Ifi*j-(i+j)=(gcd+lcd)Thenk=k+1ReDimPreservea(2,k)a(1,k)=ia(2,k)=js=s&Str$(a(1,k))&","&Str$(a(2,k))List1.AddItem(s)EndIfNextNextEndSubPrivateSubgld(ByValaAsInteger,ByValbAsInteger,gcdAsInteger,lcdAsInteger)DimaaAsInteger,bbAsInteger,rAsIntegeraa=abb=bDor=aModba=bb=rLoopUntilr=0gcd=alcd=(aa*bb)/gcdEndSub 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/习题答案选择题1.D2.A3.B4.D5.B6.B7.C8.C9.C填空题1.中断2.ctrl+break3.本地4.debug.printk改错题OptionExplicitOptionBase1PrivateSubForm_Click()Dima(10)AsInteger,iAsInteger,jAsIntegerDimb(10)AsInteger,kAsInteger,lAsIntegerRandomizeFori=1To10a(i)=Int(Rnd*19)+1Printa(i);NextPrintj=1k=10Fori=1To10Forl=2Toa(i)-1Ifa(i)Modl=0ThenExitForNextIfl=a(i)Thenb(j)=a(i)j=j+1Elseb(k)=a(i)k=k-1EndIfNextFori=1To10Printb(i);NextPrint 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndSub编程题OptionExplicitOptionBase1PrivateSubCommand1_Click()DimiAsIntegerFori=1ToLen(Text1.Text)Text2.Text=Text2.Text&Convert(Mid(Text1.Text,i,1))&vbCrLfNextEndSubPrivateFunctionConvert(aAsString)AsStringDimAsciiAsIntegerDimBinaryAsStringAscii=Asc(a)DoWhileAscii>0Binary=AsciiMod2&BinaryAscii=Ascii2LoopConvert=BinaryEndFunction第八章文件实验答案实验8_1图片浏览器：PrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_DblClick()DimfileNameAsString 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/fileName=File1.Path+""+File1.fileNameImage1.Picture=LoadPicture(fileName)HScroll1.Max=Image1.Width-Picture1.Width+VScroll1.WidthVScroll1.Max=Image1.Height-Picture1.Height+HScroll1.HeightIfImage1.Width>Picture1.WidthThenHScroll1.LargeChange=HScroll1.Max/10HScroll1.SmallChange=VScroll1.Max/20HScroll1.Enabled=TrueElseHScroll1.Enabled=FalseEndIfIfImage1.Height>Picture1.HeightThenVScroll1.LargeChange=VScroll1.Max/10VScroll1.SmallChange=VScroll1.Max/20VScroll1.Enabled=TrueElseVScroll1.Enabled=FalseEndIfEndSubPrivateSubForm_Load()File1.Pattern="*.jpg;*.bmp"Image1.Left=0:Image1.Top=0HScroll1.Top=Picture1.Height-HScroll1.Height-50HScroll1.Left=0HScroll1.Width=Picture1.Width-50VScroll1.Top=0VScroll1.Left=Picture1.Width-VScroll1.Width-50VScroll1.Height=Picture1.Height-HScroll1.Height-50HScroll1.Min=0:VScroll1.Min=0EndSubPrivateSubHScroll1_Change()Image1.Left=-HScroll1.ValueEndSubPrivateSubVScroll1_Change()Image1.Top=-VScroll1.ValueEndSub实验8_2顺序文件操作 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/OptionBase1Dima(4,4)AsIntegerPrivateSubCommand1_Click()DimsAsIntegerDimiAsIntegerDimjAsIntegerOpen"c:test.txt"ForInputAs#12DoWhileNotEOF(12)i=j4+1Input#12,a(i,(jMod4)+1)j=j+1LoopFori=1To4Forj=1To4Picture1.PrintFormat(a(i,j),"@@@");NextPicture1.PrintNextClose#12Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()DimiAsIntegerDimjAsIntegerDimsumAsIntegerFori=1To4sum=sum+a(i,i)NextText1.Text=sumEndSubPrivateSubCommand3_Click()EndEndSub实验8_3记录文件操作OptionExplicitOptionBase1PrivateTypeStu_ScoreStudentnameAsString*6LanguageAsIntegerMathAsInteger 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EnglishAsIntegerEndTypeDimStudentAsStu_ScoreDimFilenumAsIntegerDimReclengthAsLongDimstrAsStringPrivateSubCommand1_Click()Student.Studentname=Text1Student.Language=Text2Student.Math=Text3Student.English=Text4PrintList1.ListIndexList1.AddItemText1&""&Text2&""&Text3&""&Text4EndSubPrivateSubCommand2_Click()Text1="":Text2="":Text3="":Text4=""EndSubPrivateSubForm_Load()Filenum=FreeFileReclength=Len(Student)Open"score"ForRandomAs#FilenumLen=ReclengthList1.AddItem"姓名语文数学英语"DoWhileNotEOF(Filenum)Get#Filenum,,StudentWithStudentstr=.Studentname&""&.Languagestr=str&.Math&""&.EnglishList1.AddItemstrEndWithLoopList1.RemoveItem(List1.ListCount-1)EndSubPrivateSubForm_Unload(CancelAsInteger)Close#FilenumEndSub 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/习题答案：一．选择题：1.A2.B3.C4.D5.C6.C7.A8.B9.C10.C11.D12.C13.D14.D15.C16.A二．填空题1.目录列表框２．文本３．Close#1４．GFEDCBA5.EOF(Fileno)#Fileno,L6.len(LastRecord)filelen(“score”)7.close#1FreeFilechr8.“data.txt”forinputas#11notEOF(11)sInsert(a(i),0)Preserveb(UBound(b)+1)a(i)9.LineInput(#1,st)print#3,,subStMid(st,i+1,1)p三．改错题第一题：PrivateSubCommand1_Click()DimsAsString,iAsIntegers=Text1.TextCallsub1(s)Open"a.txt"ForOutputAs#12Fori=Len(s)To1Step-1Print#12,Mid(s,i,1)NextClose#12EndSubPrivateSubsub1(stAsString)DimiAsInteger,lAsInteger,kAsIntegerDimpAsInteger,alAsString*1Fori=1ToLen(st)al=Mid(st,i,1)p=i+1DoUntilp>Len(st)Ifal=Mid(st,p,1)ThenFork=pToi+1Step-1Mid(st,k,1)=Mid(st,k-1,1)NextMid(st,i+1,1)=alExitDoElsep=p+1EndIfLoopNext 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndSub第二题：OptionExplicitPrivateFunctionSuShu(mAsLong)AsBooleanDimiAsLongFori=2ToInt(Sqr(m))IfmModi=0ThenExitFunctionNextSuShu=TrueEndFunctionPrivateSubForm_Click()DimstAsString,cAsStringDimnumAsLong,a()AsLongDimiAsLong,jAsLong,kAsLongst=InputBox("请输入任一数字串","查找素数")c=""i=1k=1DoWhilei<=Len(st)Ifk<=Len(st)Thenc=c+Mid(st,k,1)num=Val(c)IfSuShu(num)Thenj=j+1ReDimPreservea(j)a(j)=numEndIfk=k+1Elsec=""i=i+1k=iEndIfLoopOpen"a.txt"ForOutputAs#14Print#14,stFori=1TojPrint#14,a(i)NextClose#14EndSub 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/四．编程题第一题：OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerDimsAsStringOpen"c:test.txt"ForOutputAs#10Fori=1To100Ifprime(i)ThenWrite#10,iEndIfNextClose#10MsgBox"ok"EndSub第二题：OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerOpen"c:test.txt"ForOutputAs#10Fori=1To16Print#10,i;IfiMod4=0ThenPrint#10,vbCrLfEndIfNextClose#10MsgBox"ok"EndSub第三题：OptionExplicitPrivateSubCommand1_Click()DimSourceAsStringDimLineStrAsStringOpenText1.TextForInputAs#10DoWhileNotEOF(10)LineInput#10,LineStr 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Source=Source+LineStrLoopText3.Text=Search(Source,Text2.Text)Close#10EndSubPrivateFunctionSearch(SourceAsString,wordAsString)AsIntegerDimnumAsInteger,iAsIntegerFori=1ToLen(Source)-Len(word)IfMid(Source,i,Len(word))=wordThennum=num+1i=i+Len(word)"跳过word单词长度后继续查找EndIfNextSearch=numEndFunction第四题：OptionExplicitPrivateSubCommand1_Click()DimStudentnameAsStringDimEnglishAsIntegerDimMathAsIntegerDimComputerAsIntegerDimAllscoreAsIntegerDimAvgscoreAsDoubleOpen"c:test.txt"ForInputAs#10Open"c:test1.txt"ForOutputAs#11DoWhileNotEOF(10)Input#10,Studentname,English,Math,ComputerAllscore=English+Math+ComputerAvgscore=Allscore/3Print#11,Studentname,English,Math,Computer,Allscore,AvgscoreLoopClose#10Close#11Kill"c:test.txt"Name"c:test1.txt"As"c:test.txt"EndSub第五题： 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/OptionExplicitPrivateTypeStudentTypeStudentnoAsString*6StudentnameAsString*6EnglishAsIntegerMathAsIntegerComputerAsIntegerEndTypePrivateSubCommand1_Click()DimTempstudentAsStudentTypeDimFilenumAsIntegerDimFilenum1AsIntegerDimReclengthAsLongFilenum=FreeFileReclength=Len(Tempstudent)Open"score"ForRandomAs#FilenumLen=ReclengthFilenum1=FreeFileOpen"tempfile"ForRandomAs#Filenum1Len=ReclengthDoWhileNotEOF(Filenum)Get#Filenum,,TempstudentWithTempstudentIfNot(.Computer<60And.English<60Or.Computer<60And.Math<60Or.English<60And.Math<60)ThenPut#Filenum1,,TempstudentEndIfEndWithLoopClose#FilenumKill"score"Name"tempfile"As"score"EndSub第九章习题一．选择题题号123456答案ABACCB题号789101112答案BBCDDD 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/二．填空题1．左键右键中间键2．Style3．AutoSize4．Picture1.Move200,100,Picture1.Width/2,Picture1.Height/25．Picture1.Line(1000,1000)-Step(1000,1000),RGB(255,0,0),BF6．以(3000,3000)为圆心，水平半径长为500，垂直半径长为1000，60°为起始弧度值，270°为结束弧度值的一段圆弧，并且圆弧的端点和圆心相连接。（或者直接画出如下图也可）7．ABA8.RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))(x1,800),400三．编程题1．OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,yAsSingle,aAsIntegerConstpi=3.1415926Line(50,1500)-(6200,1500)Line(6200,1500)-(6000,1450)Line(6200,1500)-(6000,1550)Line(3000,500)-(3000,2500)Line(3000,500)-(2950,700)Line(3000,500)-(3050,700)Fora=-360To360IfAbs(Cos(a*pi/180))>0.4Theny=(-1)*Tan(a*pi/180)*500+1500x=a*8+3000PSet(x,y),RGB(255,0,0)EndIfIfAbs(Sin(a*pi/180))>0.4Theny=(-1)*Cos(a*pi/180)/Sin(a*pi/180)*500+1500x=a*8+3000PSet(x,y),RGB(0,0,255)EndIfIfaMod90=0Then 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Line(x,1500)-(x,1600)PrintaEndIfNextEndSub2．PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimxAsInteger,yAsIntegerDimflagAsBooleanflag=Falsex=500y=500Fori=1To9Forj=1To9IfflagThenLine(x,y)-Step(200,200),RGB(255,255,255),BFflag=FalseElseLine(x,y)-Step(200,200),RGB(0,0,0),BFflag=TrueEndIfx=x+200Nextjx=500y=y+200NextiEndSub3．PrivateSubCommand1_Click()Constpi=3.1415926DrawWidth=2FillStyle=0FillColor=RGB(180,180,180)Circle(1000,1500),800,,-7*pi/6,-5*pi/6FillColor=RGB(210,210,210)Circle(3000,1500),800,RGB(210,210,210),-7*pi/6,-5*pi/6EndSub第十章习题一．选择题 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/题号12345678答案DCCBCBAA题号910111213141516答案CBAAAABA二．填空题1．数据DatabaseNameRecordSource2．绑定DataSourceDataFieldDataSourceDataField3．AddNewDeleteUpdate4．关系5．关系mdb6．Data.Recordset.Update7．DELETEFROMxshWHERE性别=”男”8．ALTERTABLExshADDCOLUMNSextext(2)三．编程题1．CREATETABLExsh(NumberText(5),NameText(6))‘建立表ALTERTABLExshADDCOLUMNSexText(2)‘添加字段ALTERTABLExshDROPCOLUMNSex‘删除字段SELECTNumber,Name,SexFROMxshWhereSex=“男”‘数据查询INSERTINTOxsh(Number,Name,Sex)VALUE(“98001”,”李小平”，”男”)‘添加纪录DELETEFROMxshWHERESex=”男”‘删除纪录UPDATExshSETName=”王东升”WHEREName=”李小平‘更新纪录”2．（1）．INSERTINTOkch(课程编号,课程名称,课程性质,学分)VALUE(“k004”,”Java程序设计”,”专业选修”,2)(2)．DELETEFROMkchWHERE课程名称=”操作系统”(3)．UPDATEkchSET学分=2WHERE课程编号=“k0033．PrivateSubM1_1_Click()Data1.Recordset.AddNewData1.Recordset.UpdateData1.Recordset.MoveLastEndSubPrivateSubM1_2_Click()Data1.Recordset.MoveNextMsgBox"数据更新成功!!",vbInformation,"提示信息"EndSubPrivateSubM1_3_Click()Data1.Recordset.DeleteData1.Recordset.MoveLastEndSub 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/PrivateSubM1_4_Click()Picture1.Print"课程编号","课程名称","课程性质","学分"Data1.Recordset.MoveFirstDoUntilData1.Recordset.EOFPicture1.PrintData1.Recordset.Fields(0),Data1.Recordset.Fields(1),_Data1.Recordset.Fields(2),Data1.Recordset.Fields(3)Data1.Recordset.MoveNextLoopEndSub模拟练习一答案笔试模拟题（一）答案第一部分计算机基础知识1.2.3.4.5.6.7.8.9.10.ADCABBDCAC11.12.13.14.15.16.17.18.19.20.BCDCDDCDCB第二部分VisualBasic程序设计一、选择题62.63.64.65.66.67.68.69.70.71.DABCDDABBA二、填空题（1）（X+Y<20）Or(X>5AndY>5)（2）31（3）63（4）0（5）4（6）23456（7）678（8）10（9）112 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/（10）111（11）314（12）131（13）6.5（14）4913（15）19.5（16）Val（Text1.Text）（17）x^n或t*x（18）s*n（19）t/s>=10^-5（20）x-1或Sqr(x)（21）Flag=False（22）List1.AddItemx（23）10（24）i+1（25）temp（26）Text2.Text&sort(i)（27）andtotal(p2)Mod6=0（28）"("&p1&","&p2&")"（29）m+Val(Mid(Cstr(n),i,1))（30）total=m第三部分上机改错与编程一、改错题OptionExplicitPrivateSubForm_Click()Dima(10)AsInteger,iAsIntegerFori=1To10a(i)=iNextiFori=1To10"改为Fori=1To9Ifp(a(i)+a(i+1))=FalseThenPrinta(i),a(i+1)"改为p(a(i)+a(i+1))=TrueNextiEndSubPrivateFunctionp(xAsInteger)AsBooleanDimiAsIntegerp=FalseFori=2ToInt(Sqr(x))IfxModi=0ThenExitFor"改为ExitFunctionNexti 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/p=TrueEndFunction二、编程题OptionBase1DimA(5,5)AsIntegerPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To5Forj=1To5A(i,j)=Int((9-1+1)*Rnd+1)Picture1.PrintA(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()DimSum1AsInteger,Sum2AsIntegerDimiAsInteger,jAsIntegerFori=1To5Forj=1To5IfijThenSum2=Sum2+A(i,j)EndIfEndIfNextjNextiText1=CStr(Sum1)&"-"&CStr(Sum2)&"="&CStr(Sum1-Sum2)EndSub模拟练习二答案第一部分基础知识一、选择题DBBBDBBABCAABAADABDC 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/第二部分VB程序设计一、选择题CCCCBAACDB二、填空题1、$$***$$$$*****2、0.61.85.43、112434、152835、221096、sum=1a*(x^2/(2*n*(2*n-1)))Abs(a)<=0.0000001sum7、Len(a)zh(b)1n8、UBound(P)P(I)+P(J)+P(k)IModJ=0I9、Len(st)Mid(st,i,1)A(idx)+1Asc(“a”)25第三部分上机改错与编程一、改错题OptionExplicitPrivateSubForm_Click()DimnAsIntegerDimflgAsBoolean"DimflgAsIntegern=InputBox("inputn:")CallConver(n,flg)Ifflg=TrueThenPrintn;"是降序数"Else 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Printn;"不是降序数"EndIfEndSubPrivateSubConver(nAsInteger,flgAsBoolean)"byvalflgasBooleanDimxAsString,iAsIntegerx=Trim(Str(n))Fori=1ToLen(x)-1IfMid(x,i,1)NextiIfi=Len(x)Thenflg=TrueElseflg=FalseEndSub二、编程题PrivateSubCommand1_Click()‘生成列表DimiAsIntegerDimjAsIntegerDimkAsIntegerFori=10To10000IfPrime(i)ThenForj=2ToSqr(i)Fork=2ToSqr(i)Ifi=j^2+k^2AndjnThenPrime=TrueEndIfEndFunctionPrivateSubCommand2_Click()‘清除列表List1.Clear 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/EndSubPrivateSubCommand3_Click()‘返回EndEndSub模拟练习三答案第一部分基础知识一、选择题1．D2.C3.D4.C5.C6.C7.A8.A9.A10.C11.A12.B13.A14.C15.B16.C17.A18.C19.B20.A第二部分VB基础知识一、选择题21．B22.B23.B24.B25.D26.A27.A28.C29.B30.D二、填空题（1）OptionBase1（2）LBound（3）Ubound（4）过程（5）模块（6）3（7）7（8）23（9）1046（10）341222（11）44（12）108（13）52（14）12-10（15）x<2000(16)x<3000(17)y=0.8*x(18)y=0.7*x(19)t>eps(20)(-1)^n(21)t*x^2/n 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/(22)ExitFor(23)p2=True(24)i(25)True(26)Str2=Str2&Convert(A(I))(27)d=Mid(St,I,1)(28)S=“”（29）S=B&S(30)Convert=S第三部分上机改错与编程一、改错题1)Forj=1ToUbound(b)改为Forj=1ToUbound(b)-12)PrivateFunctionwanshu(xAsInterger,b()AsInterger)AsBoolean改为PrivateFunctionwanshu(ByAalxAsInterger,b()AsInterger)AsBoolean3)Fori=2Tox-1sum=1改为sum=1Fori=2Tox-1二、编程题OptionExplicitDimnAsInteger,Samp()AsIntegerPrivateSubCommand1_Click()DimiAsIntegern=InputBox("输入样本个数n:",,10)ReDimsamp(n)Fori=1Tonsamp(i)=Int(99*Rnd)+1Text1=Text1&Str(samp(i))NextiEndSubPrivateSubCommand2_Click()DimMaxAsInteger,MinAsInteger,iAsIntegerDimnews()AsSingleReDimnews(n)CallMaxMin(samp,Max,Min)Fori=1Tonnew(i)=(samp(i)-Min)/(Max-Min)List1.AddItemsamp(i)&"-->"&new(i) 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/NextiEndSubPrivateSubMaxMin(a()AsInteger,MaxAsInteger,MinAsInteger)DimiAsIntegerMax=a(1):Min=a(1)Fori=2ToUBound(a)Ifa(i)MinThenMax=a(i)EndIfNextiEndSubPrivateSubCommand3_Click()Text1="":List.ClearEndSub模拟练习四答案第一部分1.C2.D3.B4.C5.B6.A7.C8.B9.B10.D11.B12.D13.C14.15.B16.D17.A18.C 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/19.D20.D第二部分一选择题21.A22.A23.B24.D25.D26.C27.B28.A29.A30.C二填空题1.C2.CW3.84.4925.3576.8167.38.9.69.1710.17811.17812.613.514.1715.N/Fm16.P()asInteger17.ReDimPreserveP(Idx)18.I19.Int(41*Rnd)–2020.fan(a)21.b(j)+abs(a(i,j))22.Fzexexp=exp+1ex=ex*2LoopIfM+1=exThenMersenne=TrueEndIfEndFunctionPrivateFunctionPrime(NAsInteger)AsBooleanDimkAsIntegerFork=2ToSqr(N)IfNModk=0ThenExitFunctionNextPrime=TrueEndFunction二．编程题：OptionExplicitOptionBase1 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Dima()AsIntegerPrivateFunctionPrime(nAsInteger)AsBooleanDimkAsIntegerFork=2ToSqr(n)IfnModk=0ThenExitFunctionNextPrime=TrueEndFunctionPrivateSubsubVal(ByValnAsInteger)DimiAsIntegerDimcountAsIntegerFori=2Ton/2IfnModi=0AndPrime(i)=TrueThencount=count+1ReDimPreservea(count)a(count)=iEndIfNextEndSubPrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegerDimsAsStringn=Val(Text1.Text)subVal(n)DoWhilen>1Fori=1ToUBound(a)IfnModa(i)=0Thenn=n/a(i)Ifs=""Thens=s+Str(a(i))Elses=s+"*"+Str(a(i))EndIfExitForEndIfNextLoopText2.Text=sEndSubPrivateSubCommand2_Click() 欢迎光临阳光大学生网,提供最全面的大学生课后习题答案和复习试题免费下载，http://www.sundxs.com/Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()EndEndSub'