资源描述：
《VB程序设计总复习题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VisualBasic程序设计课程期末总练习题1•阅读程序，写出运行结果(6小题，24分)【阅读程序1】PrivateSubForm_Click()DimaAsString,bAsStringa=Mid(,,xyzl23,,,4,3)b二Right(”xyzl23“,3)Printa;"”;b;Len(a+b)EndSub单击窗体后，输!ll：1231236【阅读程序2】PrivateSubCommandl_Click()s=24:i=3DoWhilei<5IfsModi=0ThenPrints;:s=sii=i+lLoopEnd
2、Sub单击Command1后，输出：248【阅读程序3】PrivateSubCommandl_Click()Dima(5)AsInteger,kAsIntegera(l)=2Fori=2To5a(i)=a(i-l)+2:Printa(i)k=k+a(i)NextiPrint”k=”;kEndSub单击Command1后，输出：46810k=28【阅读程序4】DimxAsInteger,zAsIntegerSuba()DimyAsIntegerx=x+2:y=y+2:z二x+y+zPrintx;y;zEndSubPrivateSubF
3、orm_Click()DimyAsIntegerx=2:y=6:z=x+y+zCallaPrintx;y;zEndSub单击窗体后，输出：4214,4614【阅读程序5】Functionf(ByValnlAsInteger,n2AsInteger)AsIntegerDimiAsInteger,tAsIntegerPrintHnl=u;nl;,,n2=H;n2DoUntiln2=nlf=f+n2:n2=n2-lLoopEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsInteg
4、er,cAsIntegera=3b=6c二f(a,b)Printa;b;cEndSub单击Command1后，输出：n1=3,n2=63315【阅读程序6】PrivateSubCommand1_Click()DimiAsIntegerOpen"c:al.dat"ForAppendAs#1Fori=2To20IfiMod2=1AndiMod3=0ThenPrint#1,i;NextiClose#1EndSub单击按钮两次后，文件中的数据为：39153915若将改为Outpu后，单击按钮两次后，文件中的数据为：39152.阅读程序，挑
5、选一个正确答案(4选1)填写到程序相应序号的下划线处，必须填写相应的代码，写A/B/C/D无效(4小题，45分)【试题1】输出1・20之间的素数，每行5个，统计这些素数之和PrivateSubCommandl_Click()DimiAsInteger,jAsInteger,cAsIntegerFori=1To20'Forj=1ToSqr(i)If(1)ThenExitForNextjIfj>Sqr(i)Then(2):Printi;Sum=[3)IfcMod5=0Then⑷EndlfNextiPrintPrintSumEndSub请
6、选择：1.jModi=0iModj=0ji=0ij=02.i=i+li=i-lc=c+lc=c-l3.Sum+cSum+iSum-cSum+i+j4.PrintcPrintc;PrintPrint:【试题2]输入一个大于2的整数，判断是否可以分解为两个大于1的证书的乘积。如输入8,则可输出"2*4=8",输入7,则输出“不可分解”。PrivateSubCommandl_Click()DimmAsInteger,iAsIntegerDom=InputBox(nm=H)Loop(5)Fori=2Tom-1IfmModi=0ThenP
7、rinti;”*”；m/i;“=”；m⑹NextiIf(7)ThenPrintH不可分解“EndSub请选择：5.Untilm<2Whilem<=2Whilem>2Untilm<>26.ExitDoi=i+lm=m/iExitfor7.i>mi=mi<=m【试题3】单击“>>”按钮，可将左边列表框所有列表项全部复制到右边组合框中，单击“vv”按钮，可将右边组合框选中项复制到左边列表框；改变滚动条的滑块，可将数据添加到左边列表框。PrivateSubCommandl_Click()，全部复制到右边组合框DimiAsIntege
8、r⑻:i=0DoWhilei<⑼Combo1.AdditemListl.List(i):i=i+1LoopEndSubPrivateSubCommand2_Click()选中项复制到左边列表框If(10)ThenMsgBox”请先选择
