中职VB语言程序设计程序填空题综合练习(三)

VB语言程序设计综合练习：程序填空题题目：单击“打印”按钮在图片框pics中输出如下图所示的图形。（要求for）.PrivateSubcommand1_Click()DimiAsIntegerDimjAsIntegerFori=1To5pics.PrintTab(10);Forj=1Topics.PrintSpc(1);NextjForj=pics.Print"*";Nextjpics.Print1NextiEndtxtslbla，并建立如下菜单：菜单项菜单名称说明操作（O）mnuop一级菜单….产生随机数mnura二级菜单….计算mnujs二级菜单10个两位随机整数，显示在文本框txts标签lbla（for循环）Dima(1To10)AsIntegerPrivateSubmnujs_Click()DimsumAsInteger2Fori=1To10Nextilbla.Caption=sum/10EndSubPrivateSubmnura_Click()txts.Text=""Fori=1To10a(i)=txts.Text=NextiEndSub题目：制作顶级菜单（标题是：操作，名称是：mnuop，二级子菜单（标题：产生，名称：mnura）和二级子菜单（标题：运行，mnuru。点击子菜单“产生”时，生成一个100~200之间的随机整数，显示在label1label2（涉及的循环要求用for循环）3PrivateSubmnura_Click()Label1.Caption=Int(Rnd*101)+100EndSubPrivateSubmnurun_Click()DimxAsIntegerx=Val(Label1.Caption)Fori=2ToIf ThenLabel2.Caption="不是素数"ExitForEndIfNextIf ThenLabel2.Caption="是素数"EndIfEndSubtext1xex的近似值，要4求最后一项的值小于等于0.000001时停止计算，结果显示在标签label3ex的展开式为：ex=1+x/1!+x2/2!+x3/3!+…+xn/n序运行界面如图所示。（要求用dowhile……loop）PrivateSubCommand1_Click()DimxAsIntegerDimsAsDimnAsx=Val(Text1.Text)s=1:n=1t=DoWhilet>0.000001s=s+tt=Loop5Label3.Caption=sEndSubCommand1100~15053SUM（for）PrivateSubCommand1_Click()DimiAsIntegerFori=100To150If ThenPrinti;Sum=EndIfNextiPrintPrint"和为："∑""EndSub6150～200之间的素数，程序运行界面如图下所示。lblpr中输出结果（forPrivateSubCommand1_Click()Fori=150To200Forj=2Toi-1If ThenExitForNextjIf Thenlblpr.Caption=lblpr.Caption&NextiEndSub1020~80在窗体上输出。运行界面如图所示（for循环）7PrivateSubForm_Click()Dims(1To10)AsIntegerDimmaxAsIntegerDimtAsIntegerRandomizePrint"原始数据："Fori=1To10s(i)=Prints(i);"";NextPrintFori=1To9max=iForj=Ifs(max)<s(j)Thenmax=jNextt=s(max)8s(max)=s(i)=tNextPrint"排序后的数据："Fori=1To10Prints(i);"";NextEndText1Label1，并建立如下菜单：菜单项菜单名称说明操作（O）mnuop一级菜单….产生随机数mnura二级菜单….判断mnupd二级菜单110～99之间的随机整数，显9PrivateSubmnupd_Click()DimdAsIntegerd=Val(Text1.Text)ModIf ThenLabel1.Caption="是奇数"ElseLabel1.Caption="不是奇数"EndIfEndSubPrivateSubmnura_Click()Text1.Text=EndSubCommand1，产1010lblrCommand2标签lblre（for）Dims(1To10) AsStringPrivateSubCommand2_Click()lblre.Caption=""Fori=1To5temp=s(i)s(i)=s(11-i)=tempNextiFori=1To10lblre.Caption=lblre.Caption&s(i)NextiEndSub11PrivateSubCommand1_Click()lblr.Caption=""Fori=1To10s(i)=lblr.Caption=lblr.Caption&s(i)NextiEndSub“产生随机字母”Command110lblu上；单击排序”Command2，将排序后的字母输出到图示的标签lblsort（for循环）Dims(1To10) AsStringPrivateSubCommand1_Click()12lblu.Caption=""Fori=1To10s(i)=lblu.Caption=lblu.Caption&s(i)NextiEndSubPrivateSubCommand2_Click()lblsort.Caption=""Fori=1To9Min=iFor