VB程序设计复习3

《VB程序设计复习3》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VisualBasic程序设计课程复习1一.阅读程序，写出运行结果【阅读程序1】PrivateSubForm_Click()DimaAsString,bAsStringa=,,abcdef,b=“xyzl23”PrintLeft(a,3)；Mid(b,4,3)EndSub单击窗体后，输出：【阅读程序2】PrivateSubCommandl_Click()PrintInt(y)DimxAsSingle,yAsSinglex=5.2:y=2.5ifNotx>yThenPrintInt(x)ElseEndSub单击Command1后,输出：【阅读程序3】Priv

2、ateSubCommand1_Click()DimiAsInteger,sAsIntegers=l:i=lDoWhilei<=5s=s+ii=i+2LoopPrint”s=”;sEndSub单击Command1后,输出：【阅读程序4】PrivateSubCommandl_Click()Dima(4)AsIntegers=l:i=lFori=lTo4a(i)=i:Printa(i);NextiFori=lTo3K=k+a(i)*2NextiPrintMk=M;kEndSub单击Command1后，输出：【阅读程序5】Subf(xAsInteger,ByVai

3、yasInteger)x=x*1():y=y+10Print“x=”；x;ny=u;yEndSubPrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=3:b=5Callf(a,b)Printna=M;a;Hb=n;bEndSub单击窗体后，输出：【阅读程序6】PrivateSubCommand1_Click()Open"c:a1.dat"ForOutputAs#1fl=l:f2=lPrint#l,fl;f2Fori=1To2f3=fl+f2Print#1,f3;fl=f2:f2=f3NextiClose

4、#1EndSub单击按钮两次后，文件屮的数据为：若将OutputAs#l改为AppendAs#l后，再单击按钮一次后，文件中的数据为：一.阅读下列程序，在各小题提供的若干可选答案中，挑选一个正确答案填写到程序相应序号的下划线处。必须填写相应的代码，写A/B/C/D无效【阅读填空1】在窗体输出100-130之间的素数，并统计素数个数。PrivateSubCommand1_Click()DimnAsIntegerJAsInteger,cAsIntegerForn=100To130Fori=2ToSqr(n)If(1)ThenExitForNextjThenIf

5、⑵⑶Printi;EndlfNextnPrint”素数的个数：”;cEndSub请选择：⑴A•iModn=0B.nModi=0C・i=0D.ni=0⑵A.i>Sqr(n)B.i

6、im小(3,3)AsInteger,iAsIntegerFori=lTo3Forj=lTo3X(i,j)二Rnd*10⑹NextjNextiPrintn主对角线之和：H；⑺EndSub请选择:⑷A.a()AsIntegerB.aAsIntegerC・a()D.aA.djx=djx+x(i,j)B.x(i,j)=x(i,j)+djxC.djx=djx+a(i,j)D.a(i,j)=a(i,j)+djx(6)A.Printx(j,i);B.Printx(i,j);C.Printx(j,i)x(j,i)(7)A・djx(x,3,3)B.djx(a,3,3)C.d

7、jx(x,3)【阅读填空3】运行程序,D.PrintD.djx(a,3)在左边列表框(Listl)产生5个随机二位整数,钮，査找左边列表框中的最小值，并添加到右边组合框中。PrivateSubForm_Load()DimIAsIntegerRandomizeFori=1To5List1.AdditemNextiEndSubPrivateSubCommand1_Click()，选屮项复制到左边列表框DimiAsInteger,MinAsIntegerMin二(9)Fori=(10)IfListl.List(i)

8、Additem(12)EndSub请选择：(8)A.Rnd*10+