vb 常考编程题型

《vb 常考编程题型》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1．利用随机函数产生20个50到100之间的随机整数，显示它们的最大值、最小值和平均值DimmaxAsInteger,minAsInteger,sumAsIntegern=Int(Rnd*51)+50max=nmin=nsum=sum+nPrintn;Fori=1To19Randomizen=Int(Rnd*50)+50Ifn>maxThenmax=nIfn

2、2求两个数的最大公约数和最小公倍数方法一:辗转相除法Dimm%,n%,r%,t5m=InputBox("请输入第一个整数")n=InputBox("请输入第二个整数")Ifm

3、nModi=0AndmModi=0ThenPrintn&","&m&"这两个数的最大公约是"&iExitForEndIfNextiPrintn&","&m&"这两个数的最小公倍数是"&n*m/iEndSub3判断一个数是否为素数，假定概数是n方法一：如果是不素数提前结束循环，是素数，退出循环是循环变量的值不满足终止PrivateSubForm_Click()Dimn%,i%n=InputBox("请输入一个数")Fori=2Ton-1IfnModi=0ThenPrintn&"不是素数"ExitForEndIfNextiIfi=nThe

4、nPrintn&"是素数"EndIfEndSub方法二：不管这个数是否为素数，假定它是素数，用一个变量（一般用flag）记住它是素数的状态（flag=1）,否则反之flag=0PrivateSubForm_Click()Dimn%,i%,flag%flag=1n=InputBox("请输入一个数")Fori=2Ton-1IfnModi=0Thenflag=0ExitForEndIfNextiIfflag=1ThenPrintn&"是素数"ElsePrintn&"不是素数"EndIfEndSub4找出100到300之间的所有素数，并且5

5、个一行输出PrivateSubForm_Click()Dimn%,i%,flag%n=0Forj=100To300flag=1Fori=2Toj-1IfjModi=0Thenflag=0ExitForEndIfNextiIfflag=1ThenPrintj;n=n+1IfnMod5=0ThenPrintEndIfNextjEndSub5求DimiAsInteger,fzAsInteger,fmAsIntegerDimsumAsSingleDimtAsSinglefz=1t=1i=1sum=0DoWhile1/t>=0.000001su

6、m=sum+fz/ti=i+1t=t*(2*i)*(2*i+1)fz=-fzLoopForm1.Print"其和为",Format(sum,"0.0000000")6求1+3+5+7+……+100的和PrivateSubForm_Click()Dimi%,sum%sum=0Fori=1To100Step2sum=sum+iNextiPrint"1+3+....+100="&sumEndSub7求1!+2!+3!+…..10!之和PrivateSubForm_Click()Dimi%,sum!,f!‘注意这里定义为单精度，否则产生错误s

7、um=0f=1Fori=1To10f=f*isum=sum+fNextiPrint"1!+2!+....+10!="&sumEndSub8打印九九乘法表PrivateSubForm_Click()Dimi%,j%Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPrintTab((j-1)*9+1);se;NextjPrint'每输入完一行，打印换行，继续输出下一行NextiEndSub打印下三角九九乘法表PrivateSubForm_Click()Dimi%,j%Fori=1To9Forj=1Toise=i&"

8、×"&j&"="&i*jPrintTab((j-1)*9+1);se;NextjPrint'每输入完一行，打印换行，继续输出下一行NextiEndSub打印上三角九九乘法表PrivateSubForm_Click()Di