用vb产生20个20至40之间的两位随机正整数
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/23 17:22:48
Dima%(1To20)Fori=1To20a(i)=Int(Rnd*90+10)Printa(i);NextPrintFori=1To20Ifa(i)Mod2=1ThenPrinta(i);EndI
试一下:PrivateSubCommand1_Click()Dimarr(1To20),iFori=1To20Randomizearr(i)=Int(Rnd*101)NextfcarrPrintJoi
窗体中加命令按钮,单击事件代码如下:PrivateSubCommand1_Click() Randomize Dima(1To20)AsInteger&nb
PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(
PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima
PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1
PrivateSubCommand1_Click()RandomizeDima(1To10)Dimmax,min,avemin=50:max=20Fori=1To10a(i)=Int(Rnd*21+3
PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To
利用Rnd函数产生随机数的范围为:Int((上限-下限+1)*Rnd)+下限
Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe
我已经上机验证过了,正确.思路:产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s
PrivateSubCommand1_Click()RandomizeDima(1To10)Dimmax,min,avemin=50:max=20Fori=1To10a(i)=Int(Rnd*21+3
'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS
再问:谢了,能否把程序给提供一下,我不会再答:好吧!
PrivateSubCommand1_Click()RandomizeFori=1To20a=Int(Rnd()*21+30)Printa;IfiMod4=0ThenPrintNextEndSub这里
产生2~99之间的1次1个随机数randomizeInt((99-2)*Rnd+1)产生1~n之间的1次20个随机数RandomizeDimtemAsInteger,jAsInteger,iAsInt
subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu
Subform_click()Dimi(10)Forn=1To10i(n)=Int(Rnd*30+20)Nextmaxnum=20Forn=1To10Ifi(n)>maxnumThenmaxnum=i
PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex
Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim