VB题,产生20个20~40之间的两位随机整数,统计不同数据出现的次数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/01 11:29:19
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
dima,max,min,sum,averagesum=0max=20min=50fori=1to20a=(Rnd*50)+50sum=sum+aifamaxthenmax=aprintanextpr
PrivateSubForm_click()Dimn(1To20)AsIntegerDimi,j,ave,tempRandomizeFori=1To20n(i)=Int((51*Rnd)+50)Pri
Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=
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)+下限
PrivateSubCommand1_Click()ClsDimmArr%(1To20),Max%,Min%,sum%,i%Max=50Min=100Fori=1To20RandomizemArr(i
privatesubcommand1_click()dimjs,os,i,afori=1to20a=int(Rnd*99)+1ifamod2=0thenjs=js+ielseos=os+inextpr
'窗体放一个按钮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
楼主看看这个:Private Sub Command1_Click() Dim aNum(19) As Long,&
Private Sub Command1_Click() Dim a%(0 To 19), b
PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex