VB程序填空复习题

《VB程序填空复习题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、二级VB程序设计练习程序填空1．下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。数组b(30)存放所产生的无重复的随机整数，运行结果如图所示。PrivateSubCommand1_Click()Dimb(30),jAsInteger,kAsIntegerDimyAsInteger,xAsSingle,minAsIntegerForj=1To30lb:x=RndIfx>0.5Theny=1Elsey=-1b(j)=y*Int(Rnd*301)k=1DoWhilek

2、pPrintb(j);IfjMod10=0ThenPrintNextjmin=b(1)Forj=1To30Ifb(j)

3、mAsStringmsum=0forj=2to9m=Mid(mno,j,1)msum=msum+Val(m)Nextjmjy=msummod9Ifmjy=val(left(mno,1))ThenTag=1ElseTag=0EndIfEndSubCommand1_Click事件用于调用foe子过程，对输入到文本框Text1的准考证号进行校验，如果校验正确，显示“正确”，否则显示“错误”，同时显示正确的校验码。PrivateSubCommand1_Click()DimnnAsInteger,mtagAsIntegerIfLen(Text1)<>9OrNotIsNumeri

4、c(Text1)ThenMsgBox"非法数据，请重新输入！"Text1=""Text1.SetFocusExitSubEndIfCallfoe(Text1,nn,mtag)IfmtagThenPrint"正确"ElsePrint“错误”;nnEndIfEndSub1．下面的程序按从小到大的顺序随机产生不超过20个介于100到400（包括100、400）的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。数组b(20)用于存放所产生的随机数，运行结果如图所示。PrivateSubCommand1_Click()Dimb(20),iAsInteger,

5、jAsInteger,sumAsSinglej=1Dore:b(j)=Int(Rnd*301+100)Ifb(j)=400Orj=20ThenExitDoElseIfb(j)<=b(j-1)ThenGoToreEndIfj=j+1Loopsum=0Fori=1TojPrintb(i);Sum=sum+b(i)NextiPrint"aver=";sum/jEndSub1．新的身份证号由18位组成，最低位（右边）为校验位，其算法是：10-（前17位之和关于10的模）。函数foe用于对18位的身份证进行校验。参数mstr存放身份证号，md为产生的校验位，若校验正确，函数返回

6、“True”，否则返回“False”。PublicFunctionfoe(ByValmstr$,md%)AsBooleanDimmpAsString,msumAsIntegermsum=0Fori=1To17mp=Mid(mstr,i,1)msum=msum+Val(mp)Nextimd=10–msummod10Ifmd=val(right(mstr,1))Thenfoe=TrueElsefoe=FalseEndIfEndFunctionCommand1_Click事件用于调用foe子过程，对输入到文本框Text1的身份证号进行校验，如果校验正确，显示“True”，否

7、则显示“False”和的校验码值。PrivateSubCommand1_Click()DimmmAsIntegerIfLen(Text1)<>18OrNotIsNumeric(Text1)ThenMsgBox"非法数据，请重新输入！"Text1=""Text1.SetFocusExitSubEndIfIffoe(Text1,mm)=TrueThenPrint"True"ElsePrint“False”;mmEndIfEndSub1．EndSub本程序随机产生N（15）个A到J的大写字母，按字母降序排序后，将连续出现的字用压缩形式显示。例如，连续5个H