资源描述:
《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”请先选择