vb随机数生成20个方法

试一下：PrivateSubCommand1_Click()Dimarr(1To20),iFori=1To20Randomizearr(i)=Int(Rnd*101)NextfcarrPrintJoi

PrivateSubCommand1_Click()Dima(9)AsIntegerFori=0To9way1:Randomizea(i)=Int(Rnd()*10)+1Ifi>1ThenForp=0

是不是这样：（fomr的autodraw属性要设定为true）PrivateSubCommand1_Click()DimiAsIntegerDimRndNUmAsInteger'定义随机数DimN1A

ndrnd函数的一种1、Rnd函数返回一个包含随机数值的Single语法Rnd[(number)]如果number的值是Rnd生成小于0每次都使用number作为随机数种子得到的相同结果.大于0序列中

需要在生成随机数后进行判断,是否已经存在,存在返回继续生成即可.dimrndasnewrandomdima（）asstringforiasinteger0to8:newa（i）=random.next

下载即可

OptionExplicitPrivateSubCommand1_Click()RandomizeDimiAsInteger,jAsIntegerDoj=Int(Rnd*39+1)Ifj4Andj18

Rnd函数返回一个包含随机数值的Single.语法Rnd[(number)]可选的number参数是Single或任何有效的数值表达式.返回值如果number的值是Rnd生成小于0每次都使用numbe

PrivateFunctionAverageSub()AsDoubleDimintTotalAsIntegerDimiAsIntergerintTotal=0Randomize()Fori=0To9i

可以先产生一个随机数来选择范围然后根据这个范围来选择随机数范围再产生一个随机数.比如OptionExplicitPrivateSubCommand1_Click()Dimx,yRandomizex=I

窗体加一按钮,一个文本框PrivateSubCommand1_Click()RandomizeFori=1To100Text1.Text=Int(Rnd*90)+10NextEndSu

Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问：就是mod3=0后不会排序啊再答：

我的建议是：第一步、先做一个数组,存上这35个数（可以不是连续的数,也可以是人名、字符串什么的）；第二步、随机生成一个1-35之间的数,输出；第三步：把这个数和数组的第一个单元交换；第四步、从数组的第

fori=0to1000a=int(rnd*90000000)+10000000list1.additemanext'生成1000个随机数fori=0to1000aa:a=int(rnd*900000

dima1,a2a1=int（10+rnd（99））a2=a1=int（10+rnd（99））a3=(a1+a2)/2printa3;

PrivateSubCommand2_Click()Dima(11)AsInteger,sAsStringDimiAsInteger,m1AsInteger,m2AsInteger,avAsDoubl

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

两种方法1补充你的算法,PrivateSubCommand1_Click()Dima(10)AsInteger,nAsIntegerDimiAsInteger,kAsIntegerRandomizea

int((900*Rnd)+100)再问：能具体些吗，小哥再答：dimnasintegerRandomize‘初始化随机函数n=int((900*Rnd)+100)'产生100-999范围内的随机数并

php生成随机数的几种方法,总结如下：第一种方法,非常简单,直接使用系统自带的函数：查看代码1srand((double)microtime()*1000000);2//随机产生0-99之间的整数3$