欢迎来到天天文库
浏览记录
ID:43347780
大小:364.00 KB
页数:26页
时间:2019-09-29
《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=1DoWhilek2、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)<>9OrNotIsNumeri4、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
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)<>9OrNotIsNumeri4、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
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
此文档下载收益归作者所有