VB用随机数函数产生两个0~100的整数a.b.

在语句前加randomize试试

+a再取整和取整后+a是一样的所以两个公式都是对的~~谢谢采纳~~

VB的Rnd函数,其作用就是产生(0,1)之间的随机数,还不是[0,1].即：0根据上式,结合VB的Int（）等函数,可以产生你所需要的任意范围内的随机数.例如1：根据0那么就有：0例如2：0再问：怎

dima,max,min,sum,averagesum=0max=20min=50fori=1to20a=(Rnd*50)+50sum=sum+aifamaxthenmax=aprintanextpr

Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

PrintInt(Rnd*57)+1再问：错的再问：都是固定的数。再问：而且是10～57之间的一个随机数再答：在刚才的语句前面加语句Randomize再答：RandomizePrintint(Rnd*

int(rnd*100)+1产生1-100的随机数,自己修改

PrivateSubCommand1_Click()Dima(1)AsIntegerFori=0To1a(i)=Int(Rnd*10+1)Ifa(0)a(1)ThenPrinta(i);NextiEn

Randomize'不能有括号Fori=0To9a(i)=Int(Rnd*9+1)Nexti

Dimsum,max,minSubaaa(ByRefsum,ByRefmax,ByRefmin)min=100'给最小值先给一个比较大的值Fori=1To100s=Int(Rnd(1)*(67-0))

说实在的,你的第二段话我没怎么看明白我就按照标题帮助你一下吧,你想要一个有小数的随机数区间,其实并不难,只需要在你原来的代码上稍作改动就行,我们以5~10举例吧,如果你需要得到5~10之间省略到6位小

VisualBasic中随机函数格式：Rnd()功能：求[0,1)之间的一个随机数语法：Rnd[(number)]如果number的值是Randomize生成小于0,每次都使用number作为随机数种

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

有两种办法,一是4位单独生成,然后组成4位数,生成一位就判断一下,如果重复就重新生成.另一就是直接生成4位数,判断各位有没有重复,如果有就重新生成一个,如果不重复就退出.这是按第一情况来生成的.Pri

privatesubcommand1_click()dima%,b%,c%a=val(text1)b=val(text2)c=Int(Rnd*(a-b+1)+b)text3=cEndsu

sum=val(label1.caption)+val(label2.caption)

PrivateSubCommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*400)+1PrintaEndSu

PrivateSubCommand1_Click()Dob=Int(Rnd*10)+1c=Int(Rnd*10)+1IfbModc=0ThenExitDoLoopWhilebcIfb>cThenPri

Randomize'时间随机数functionRandShu()asSingerRandShu=CSinger((2.5-1.5+1)*Rnd+1.5)endfunctoin