《Visual Basic程序设计教程》习题参考答案

第1章习题一、选择题1.B2.A3.B4.A二、填空题1.事件驱动或消息驱动2.工程资源管理器、窗体三、问答题1.11个菜单项。文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。2.可以自行定义。标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。四、编程题（略）习题一、选择题1.A二、练习题1.S1.把x赋值给同类型变量t；S2.把y赋值给x；S3.把t赋值给y。2.S1.输入a、b、c；S2.如果a<b，则交换a与b的数据；S3.如果a<c，则交换a与c的数据；S4.如果b<c，则交换b与c的数据；S5.输出a、b、c。3.S1.输入整数N；S2.给整数K赋值2；S3.如果K大于N-1，则转S6；S4.如果N除以K的余数为0，则转S7；S5.K加1再赋值给K，转S3.；S6.如果K大于N-1，则N为素数；否则N不是素数。4.S1.输入整数N；S2.将N赋值给K；S3.给整数nx赋值0；S4.计算nx乘以10加K除以10的余数，再赋值给nx；S5.计算K除以10的整数商，赋值给K；S6.如果K>0，则转S4；否则，转S7；S7.如果N=nx，则N为回文数，否则N不是回文数。5.6.习题一、选择题1.D2.C3.A4.B5.D6.A7.B8.D9.B10.D11.A.12.C13.C14.C二、填空题1.标题、引用2.②④⑤3.64.GotFocus、Resize5.AddItem、Clear6.Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7.PictureBox，Frame8.OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1.答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。属性窗口的属性列表只包含对象的只读属性和非运行属性，而不包含对象的运行属性，所以，并非包括对象的所有属性。2.答：可以获得焦点的基本控件对象有TextBox、CommandButton、CheckBox、OptionButton、ListBox、ComboBox和文件管理控件（后述）。当界面上有多个文本框、还有命令按钮，如果没有特别设置，在程序启动时，最先加入窗体的控件将具有焦点。3.答：复选框的Value属性值设为2，只是复选框变为灰色，代表当前状态为暂时不可用，用鼠标单击它，即可改变其状态；但若设置其Enabled属性值为False，则该复选框将处于非活动状态，不再响应鼠标事件。若把一个控件的Visible属性设为False，意味着该控件将不可见。四、练习题（略）习题选择题1.D2.C3.B4.C5.C6.B7.A8.A9.C10.C11.B12.B13.C14.B15.C16.B17.A18.C填空题1.标准2.事件、事件过程或其它通用过程3.124.①②、③④、⑤⑥5.①③④6.3、Dim、Static7.a/(b+c/d)8.(x+Sqr(x^2+1))^(1/3)9.Log(y+Cos(x)^2)10.(d/3)^(2*x)/211.Abs((Exp(x)+Sin(x)^3)/(x+y))12.Log((Exp(x*y)+Abs(Atn(z)+Cos(x)^3))/(x+y–z))13.”输入一个数”,“程序示例”、1.514.MsgBox(“z的值1.5大于0”,48,”程序示例”)编程题1.（略）习题一、选择题1.C2.D3.C4.D5.C6.D二、填空题1.6552.DDEF、FEDDEF3.654.111085.i=3、i<36.n=1、y=y+p、Untilp<=0.000001或Whilep>0.0000017.a1=a*x*(3–2*i)/(2*i)、ExitDo、a18.s=1、a=a*(-1)*x^2/(n*(m+1))、UntilAbs(a)<=0.0000001或WhileAbs(a)>0.00000019.310.2、2三、编程题1.（界面略）OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<=0Theny=2-xElseIfx<=2Theny=x+2ElseIfx<=5Theny=x^2Elsey=25-xEndIfText2.Text=yEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub2.（界面略）方法1：OptionExplicitPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,kAsIntegerDimlcdAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)k=mDoUntilkModm=0AndkModn=0k=k+1Looplcd=kText3.Text=lcdEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndSub方法2：OptionExplicitPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,kAsInteger,rAsIntegerDimgcdAsInteger,lcdAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)k=m*nDor=mModnm=nn=rLoopUntilr=0gcd=mlcd=k/gcdText3.Text=lcdEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusEndSub3.（界面略）OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,bAsStringn=Val(Text1.Text)Dob=CStr(nMod2)&bn=n\2LoopUntiln=0Text2.Text=bEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub4.（界面略）OptionExplicitPrivateSubCommand1_Click()DimsumAsInteger,prcAsIntegerDimnAsInteger,iAsIntegersum=0prc=1Fori=1To10n=InputBox("输入一个数n：",,5)Printn;sum=sum+nprc=prc*nNextiPrintPrint"10个数之和=";sumPrint"10个数之积=";prcEndSub5.（界面略）OptionExplicitPrivateSubCommand1_Click()DimyAsSingle,nAsInteger,pAsIntegerp=1n=1y=0Dop=p*(2*n)n=n+1y=y+1/pLoopUntil1/p<=0.00001Print"数列和为：";yEndSub6.（界面略）OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimp1AsInteger,p2AsInteger,p3AsIntegerFori=1To100n=Int(Rnd*90)+10Text1.Text=Text1.Text&Str(n)IfiMod10=0ThenText1.Text=Text1.Text&vbCrLfIfn<=40Thenp1=p1+1ElseIfn<=70Thenp2=p2+1Elsep3=p3+1EndIfNextiText2.Text=Str(p1)Text3.Text=Str(p2)Text4.Text=Str(p3)EndSub7.（界面略）OptionExplicitPrivateSubCommand1_Click()DimiAsInteger,nAsIntegerRandomizeFori=1To20n=Int(Rnd*900)+100Text1.Text=Text1.Text&Str(n)IfiMod10=0ThenText1.Text=Text1.Text&vbCrLfIfnMod2<>0ThenList1.AddItemnElseList2.AddItemnEndIfNextiEndSub8.（界面略）OptionExplicitPrivateSubCommand1_Click()DimstAsString,kAsInteger,iAsIntegerDimpAsString*1,qAsStringst=Text1.Textk=Len(st)Fori=1Tokp=Mid(st,i,1)Ifp>="0"Andp<="9"Thenq=q&pEndIfNextiText2.Text=qEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub9.（界面略）OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerFora=1To100Forb=1To100Forc=1To100Ifa*a+b*b=c*cAnda<=bThenText1.Text=Text1.Text&a&"^2+"&b&"^2="&c&"^2"Text1.Text=Text1.Text&vbCrLfEndIfNextcNextbNextaEndSub10.（界面略）OptionExplicitPrivateSubCommand1_Click()DimnAsIntegerDimaAsInteger,bAsInteger,cAsIntegerForn=100To999a=n\100b=(nMod100)\10c=nMod10Ifa<bAndb<cThenList1.AddItemnNextnEndSub11.（界面略）OptionExplicitPrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimfaAsSingle,fbAsSingle,fcAsSinglea=Val(Text1.Text)b=Val(Text2.Text)fa=a^3-a^4+4*a^2-1fb=b^3-b^4+4*b^2-1Iffa*fb>0Ora>1Ora<0Orb>1Orb<0ThenText1.Text=""Text2.Text=""ExitSub'退出过程EndIfDoc=(a+b)/2fc=c^3-c^4+4*c^2-1Iffa*fc>0Thena=cfa=a^3-a^4+4*a^2-1Elseb=cfb=b^3-b^4+4*b^2-1EndIfLoopUntilAbs(a-b)<=0.0000001Text3.Text=Val(c)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub第6章习题一、选择题1.C2.B3.C4.C5.C6.A7.B二、填空题1.2、7、161514132.DHL、NRV、XBF3.210、101、0124.7、8、1三、编程题1.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(15)AsInteger,iAsInteger,tAsIntegerFori=1To15a(i)=Int(Rnd*99)+1Text1.Text=Text1.Text&Str(a(i))NextiFori=1To15\2t=a(i)a(i)=a(15-i+1)a(15-i+1)=tNextiFori=1To15Text2.Text=Text2.Text&Str(a(i))NextiEndSub2.（界面略）方法1：使用标记数组OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(20)AsInteger,iAsInteger,jAsIntegerDimb(20)AsIntegerFori=1To20a(i)=Int(Rnd*90)+10b(i)=1Text1.Text=Text1.Text&Str(a(i))IfiMod10=0ThenText1.Text=Text1.Text&vbCrLfNextiFori=1To19Forj=i+1To20Ifa(i)=a(j)Andb(j)<>0Thenb(j)=0NextjNextiFori=1To20Ifb(i)<>0ThenText2.Text=Text2.Text&Str(a(i))NextiEndSub方法2：使用动态数组OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(20)AsInteger,iAsInteger,jAsIntegerDimb()AsInteger,kAsIntegerFori=1To20a(i)=Int(Rnd*90)+10Text1.Text=Text1.Text&Str(a(i))IfiMod10=0ThenText1.Text=Text1.Text&vbCrLfNextiReDimb(1)b(1)=a(1)k=UBound(b)Fori=2To20Forj=1TokIfa(i)=b(j)ThenExitForNextjIfj>kThenk=k+1ReDimPreserveb(k)b(k)=a(i)EndIfNextiFori=1ToUBound(b)Text2.Text=Text2.Text&Str(b(i))NextiEndSub3.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(20)AsInteger,iAsInteger,jAsIntegerDimkAsInteger,b(20)AsSingle,maxAsSingleFori=1To20a(i)=Int(Rnd*90)+10Text1.Text=Text1.Text&Str(a(i))IfiMod10=0ThenText1.Text=Text1.Text&vbCrLfNextiFori=1To20Forj=0To3k=i+jIfk>20Thenk=k-20b(i)=b(i)+a(k)Nextjb(i)=b(i)/4Nextimax=b(1):k=1Fori=2To20Ifb(i)>maxThenmax=b(i):k=iEndIfNextiText2.Text=maxFori=kTok+3Text3.Text=Text3.Text&Str(a(i))NextiEndSub4.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(4,5)AsInteger,iAsInteger,jAsIntegerDimc(5)AsInteger,fsAsIntegerFori=1To4Forj=1To5a(i,j)=Int(Rnd*76)-40Picture1.PrintTab((j-1)*5);a(i,j);NextjPicture1.PrintNextiForj=1To5Fori=1To4c(j)=c(j)+Abs(a(i,j))NextiNextjfs=c(1)Fori=2To5Ifc(i)>fsThenfs=c(i)NextiText1.Text=Val(fs)EndSub5.（界面略）OptionExplicitOptionBase1Dima(4,5)AsIntegerPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerRandomizeFori=1To4Forj=1To5a(i,j)=Int(Rnd*9)+1Picture1.Printa(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsInteger,row(4)AsIntegerFori=1To4Forj=1To5row(i)=row(i)+a(i,j)NextjList1.AddItemrow(i)NextiEndSubPrivateSubCommand3_Click()DimiAsInteger,jAsInteger,col(5)AsIntegerDimsAsStringForj=1To5Fori=1To4col(j)=col(j)+a(i,j)NextiNextjFori=1To5s=s&col(i)&""NextiText1=sEndSubPrivateSubCommand4_Click()Picture1.ClsList1.ClearText1.Text=""EndSubPrivateSubCommand5_Click()EndEndSub6.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerDimnAsIntegerFori=1To5Forj=1To5Ifi+j<6ThenDon=Int(Rnd*90)+10LoopUntilnMod2=0a(i,j)=nElseDon=Int(Rnd*90)+10LoopUntilnMod2<>0a(i,j)=nEndIfPic1.Printa(i,j);NextjPic1.PrintNextiEndSub7.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerDims1AsInteger,s2AsInteger,s3AsIntegerFori=1To5Forj=1To5a(i,j)=Int(9*Rnd)+1Picture1.Printa(i,j);s1=s1+a(i,j)NextjPicture1.PrintNextiFori=1To5Forj=1To5Ifi<>1Andi<>5Andj<>1Andj<>5Thens2=s2+a(i,j)EndIfNextjNextiFori=1To5Forj=1To5Ifi=jOri+j=6Thens3=s3+a(i,j)NextjNextiText1=s1Text2=s1-s2Text3=s3EndSubPrivateSubCommand2_Click()EndEndSub8.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(4,5)AsInteger,iAsInteger,jAsIntegerDimmax_vAsInteger,flagAsBooleanDimmAsInteger,kAsIntegerRandomizeflag=FalseFori=1To4Forj=1To5a(i,j)=Int(50*Rnd)+1Picture1.PrintRight(Space(2)&Str(a(i,j)),4);NextjPicture1.PrintNextiFori=1To4max_v=a(i,1):m=1Forj=2To5Ifa(i,j)>max_vThenmax_v=a(i,j)m=jEndIfNextjFork=1To4Ifmax_v>a(k,m)ThenExitForNextkIfk>4ThenText1=iText2=mflag=TrueEndIfNextiIfNotflagThenMsgBox"数组A没有鞍点！",vbOKOnly,"求鞍点"EndSubPrivateSubCommand2_Click()Picture1.ClsEndSub9.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dimyh(6,6)AsInteger,iAsInteger,jAsIntegerDimkAsIntegerFori=1To6Forj=1ToiIfj=1Ori=jThenyh(i,j)=1Elseyh(i,j)=yh(i-1,j-1)+yh(i-1,j)EndIfNextjNextiFori=1To6k=3*(6-i+1)PrintSpc(k);CStr(yh(1,1));'Yh存放杨辉三角形的数组Forj=2ToiPrintRight(Space(10)&CStr(yh(i,j)),6);'NextjPrintNextiEndSub10.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(4,5)AsInteger,iAsInteger,jAsIntegerDimrow(4)AsInteger,maxvAsInteger,minvAsIntegerDimLAsInteger,SAsInteger,tAsIntegerRandomizeFori=1To4Forj=1To5a(i,j)=Int(90*Rnd)+10Pic1.Printa(i,j);row(i)=row(i)+a(i,j)NextjPic1.PrintText1.Text=Text1.Text&CStr(row(i))&vbCrLfNextimaxv=row(1):L=1minv=row(1):S=1Fori=2To4Ifrow(i)>maxvThenmaxv=row(i)L=iElseIfrow(i)<minvThenminv=row(i)S=iEndIfNextiFori=1To5t=a(L,i)a(L,i)=a(S,i)a(S,i)=tNextiFori=1To4Forj=1To5Pic2.Printa(i,j);NextjPic2.PrintNextiEndSubPrivateSubCommand2_Click()EndEndSub11.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima()AsInteger,iAsInteger,jAsIntegerDimb()AsInteger,nAsIntegern=InputBox("输入矩阵阶数n：","求转置矩阵",5)ReDima(n,n),b(n,n)Fori=1TonForj=1Tona(i,j)=Int(30*Rnd)+1Text1=Text1&Str(a(i,j))NextjText1=Text1&Chr(13)&Chr(10)NextiFori=1TonForj=1Tonb(i,j)=a(j,i)Text2=Text2&Str(b(i,j))NextjText2=Text2&Chr(13)&Chr(10)NextiEndSubPrivateSubCommand2_Click()EndEndSub12.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA(3,3)AsInteger,IAsInteger,JAsIntegerDimL1AsInteger,L2AsInteger,MAsLong,NAsIntegerDimMaxAsLongForI=1To3ForJ=1To3A(I,J)=Int(Rnd*89)+10Picture1.PrintA(I,J);NextJPicture1.PrintNextIForI=1To3ForJ=1To3IfI<>JThenN=6-(I+J)M=1#*A(1,I)*A(2,J)*A(3,N)IfM>MaxThenMax=ML1=I:L2=JEndIfEndIfNextJNextIText1="A(1,"&CStr(L1)&")*A(2,"&CStr(L2)&")*A(3,"&CStr(6-L1-L2)&")="Text1=Text1&Str(M)EndSub13.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA()AsInteger,NAsInteger,IAsInteger,JAsIntegerDimkAsIntegerN=InputBox("输入一个奇数N:","求幻阵",3)Label1.Caption=CStr(N)&"阶幻阵为："ReDimA(N,N)I=NJ=(N+1)\2A(I,J)=1k=1DoUntilk>=N*NI=I+1J=J+1k=k+1IfI<=NAndJ>NThenA(I,1)=kJ=1ElseIfI>NAndJ<=NThenA(1,J)=kI=1ElseIfI>NAndJ>NThenA(I-2,J-1)=kI=I-2J=J-1ElseIfI<=NAndJ<=NAndA(I,J)<>0ThenA(I-2,J-1)=kI=I-2J=J-1ElseA(I,J)=kEndIfLoopForI=1ToNForJ=1ToNPicture1.PrintA(I,J);NextJPicture1.PrintNextIEndSubPrivateSubCommand2_Click()Picture1.ClsEndSub14.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimnAsInteger,a()AsInteger,iAsInteger,jAsIntegerDimb()AsInteger,maxAsInteger,kAsIntegerDimc()AsInteger,pAsIntegern=InputBox("输入方阵阶数n：","数组处理",5)ReDima(n,n),b(2*n-1)Fori=1TonForj=1Tona(i,j)=Int(Rnd*9)+1Picture1.Printa(i,j);NextjPicture1.PrintNextiFork=1To2*n+1Fori=1TonForj=1TonIfi+j=k+1Thenb(k)=b(k)+a(i,j)NextjNextiNextkmax=b(1)k=1Fori=2ToUBound(b)Ifb(i)>maxThenmax=b(i)k=iEndIfNextiText1.Text=maxFori=1TonForj=1TonIfi+j=k+1Thenp=p+1ReDimPreservec(p)c(p)=a(i,j)EndIfNextjNextimax=c(1)Fori=2ToUBound(c)Ifc(i)>maxThenmax=c(i)NextiText2.Text=maxEndSub第7章习题一、选择题1.A2.D3.A4.D5.D6.B7.B8.B9.C10.B11.D二、填空题1.-1、1、42.icBa、baicBa、baba3.101101、001110、0110114.5、12、255.23、37、156.23、477.108、5-2、12-10三、编程题1.（界面略）OptionExplicitPrivateSubCommand1_Click()DimCAsSingle,FAsSingleIfText1<>""ThenC=Text1.TextF=CtoF(C)Text2.Text=FElseIfText2.Text<>""ThenF=Text2.TextC=FtoC(F)Text1.Text=CElseText1.Text="请输入数据"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Activate()Text1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateFunctionCtoF(CAsSingle)AsSingleCtoF=C*9/5+32EndFunctionPrivateFunctionFtoC(FAsSingle)AsSingleFtoC=(F-32)*5/9EndFunction2.（界面略）OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,NAsIntegerForI=1To30N=Int(Rnd*90)+10Text1=Text1&N&""IfI=15ThenText1=Text1&vbCrLfIfPrime(N)ThenList1.AddItemNElseList2.AddItemNEndIfNextIEndSubPrivateFunctionPrime(NAsInteger)AsBooleanDimKAsIntegerForK=2ToSqr(N)IfNModK=0ThenExitFunctionEndIfNextKPrime=TrueEndFunctionPrivateSubCommand2_Click()Text1=""List1.ClearList2.ClearEndSub3.（界面略）OptionExplicitPrivateSubCommand1_Click()DimAAsInteger,BAsInteger,IAsIntegerDimSumAsInteger,SqAsLong,SAsStringA=Text1B=Text2ForI=AToBS=""Sq=I*ISum=Szh(Sq,S)IfPrime(Sum)ThenS=I&"^2="&Sq&":"&S&"="&SumList1.AddItemSEndIfNextIEndSubPrivateFunctionSzh(ByValNAsInteger,SAsString)DimFAsIntegerDoF=NMod10Szh=Szh+FS=F&"+"&SN=N\10LoopUntilN=0S=Left(S,Len(S)-1)EndFunctionPrivateFunctionPrime(NAsInteger)AsBooleanDimKAsIntegerForK=2ToSqr(N)IfNModK=0ThenExitFunctionEndIfNextKPrime=TrueEndFunctionPrivateSubCommand2_Click()Text1=""Text2=""List1.ClearEndSub4.（界面略）OptionExplicitPrivateSubCommand1_Click()DimNAsInteger,IAsInteger,JAsIntegerText1=""N=InputBox("输入验证范围",,50)ForI=4ToNStep2ForJ=2ToI-1IfI-J>=2AndI-J>=JAndProme(J)AndProme(I-J)ThenText1=Text1&CStr(I)&"="&Str(J)&"+"&Str(I-J)&vbCrLfEndIfNextJNextIEndSubPrivateFunctionProme(NAsInteger)AsBooleanDimKAsIntegerProme=FalseForK=2ToSqr(N)IfNModK=0ThenExitFunctionNextKProme=TrueEndFunction5.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA(20)AsInteger,IAsIntegerDimKAsIntegerA(1)=Int(Rnd*100)+1ForI=2To20DoK=Int(Rnd*100)+1LoopUntilCompare(K,A,I)A(I)=KNextIForI=1To20Picture1.PrintLeft(A(I)&"",4);IfIMod5=0ThenPicture1.PrintEndIfNextIEndSubPrivateFunctionCompare(NAsInteger,A()AsInteger,MAsInteger)AsBooleanDimIAsIntegerForI=1ToMIfN=A(I)ThenExitFunctionNextICompare=TrueEndFunctionPrivateSubCommand2_Click()Picture1.ClsEndSub6.（界面略）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA(5,5)AsInteger,JAsIntegerDimRAsInteger,CAsInteger,IAsIntegerPicture1.ClsText1=""RandomizeForI=1To5ForJ=1To5A(I,J)=Int(90*Rnd)+10Picture1.PrintA(I,J);NextJPicture1.PrintNextICallLarge(A,R,C)Text1="A("&CStr(R)&","&CStr(C)&")="&Str(A(R,C))EndSubPrivateSubLarge(N()AsInteger,RAsInteger,CAsInteger)DimIAsInteger,JAsInteger,MaxAsIntegerMax=N(1,1)R=1:C=1ForI=1To5ForJ=1To5IfMax<N(I,J)ThenMax=N(I,J)R=I:C=JEndIfNextJNextIEndSub7.（界面略）OptionExplicitPrivateSubCommand1_Click()DimNAsLong,FlgAsBoolean,SAsStringForN=100000To999999S=""Flg=FalseCallPower(N,Flg,S)IfFlgThenList1.AddItemN&"="&SEndIfNextNEndSubPrivateSubPower(NAsLong,FAsBoolean,SAsString)DimKAsInteger,SumAsLong,LAsLongDimIAsIntegerL=NForI=1To3K=LMod100Sum=Sum+K^3S=K&"^3"&"+"&SL=L\100NextIIfSum=NThenS=Left(S,Len(S)-1)F=TrueEndIfEndSub8.（界面略）OptionExplicitPrivateSubCommand1_Click()DimArmsAsInteger,IAsInteger,FlgAsBooleanForI=10To9999Flg=FalseCallArmstrong(I,Flg)IfFlgThenText1=Text1&Str(I)&vbCrLfEndIfNextIEndSubPrivateSubCommand2_Click()Text1=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubArmstrong(AAsInteger,BoolAsBoolean)DimLengAsInteger,PAsInteger,IAsIntegerDimMutlAsLongLeng=Len(CStr(A))ForI=1ToLengMutl=Mutl+Val(Mid(CStr(A),I,1))^LengNextIIfMutl=AThenBool=TrueEndSub9.（界面略，用于存放评分的文本框Text1为控件数组）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimF(0To5)AsInteger,Avg(2,10)AsSingleDimIAsInteger,SumAsInteger,KAsIntegerDimMc(10)AsInteger,SAsString,AnwAsIntegerForK=1To10Sum=0ForI=0To5DoF(I)=InputBox("输入"&K&"号运动员分数：")IfF(I)<5OrF(I)>10ThenMsgBox"运动员分数不可小于5或大于10，重新输入"EndIfLoopUntilF(I)>=5AndF(I)<=10Text1(I)=F(I)Sum=Sum+F(I)NextIAnw=MsgBox("是否正确？",4)IfAnw=vbNoThenK=K-1ElseAvg(1,K)=(Sum-Max_Min(F))/4Avg(2,K)=KEndIfForI=0To5Text1(I)=""NextINextKCallSort(Avg,Mc)List1.AddItem"编号"&"得分"&"名次"ForI=1To10S=Left(""&Avg(2,I)&"",6)&Left(Avg(1,I)&"",6)&Mc(I)List1.AddItemSNextIEndSubPrivateSubCommand2_Click()DimIAsIntegerForI=1To5Text1(I)=""NextIList1.ClearEndSubPrivateSubCommand3_Click()EndEndSubPrivateFunctionMax_Min(a()AsInteger)AsIntegerDimIAsInteger,UbAsInteger,MaxAsInteger,MinAsIntegerMax=a(0):Min=a(0)ForI=1ToUBound(a)IfMax<a(I)ThenMax=a(I)ElseIfMin>a(I)ThenMin=a(I)EndIfNextIMax_Min=Max+MinEndFunctionPrivateSubSort(a()AsSingle,M()AsInteger)DimIAsInteger,JAsInteger,TAsSingleDimKAsInteger,PAsIntegerForI=1ToUBound(a,2)-1P=IForJ=I+1ToUBound(a,2)Ifa(1,P)<a(1,J)ThenP=JEndIfNextJIfI<>PThenT=a(1,P)'交换平均分a(1,P)=a(1,I)a(1,I)=TT=a(2,P)'交换编号a(2,P)=a(2,I)a(2,I)=TEndIfNextIK=1M(1)=1ForI=1To9Ifa(1,I)=a(1,I+1)ThenM(I+1)=M(I)K=K+1ElseK=K+1M(I+1)=KEndIfNextIEndSub10.（界面略）OptionExplicitPrivateSubCommand1_Click()DimEpsAsSingle,XAsSingle,FAsSingleIfText3=""ThenX=InputBox("输入X的值")Text3=CStr(X)ElseX=Val(Text3)EndIfIfText2=""ThenEps=InputBox("输入ε的值",,0.000001)Text2=CStr(Eps)ElseEps=Val(Text2)EndIfF=Fun_Sum(X,Eps)Text1=CStr(F)EndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Activate()Text1=""Text2=""Text3=""Text3.SetFocusEndSubPrivateFunctionFun_Sum(XAsSingle,EpsAsSingle)AsSingleDimSAsS