vb请写出产生3位整数的随机数函数

理论上是不可能的,但可以用两个随机数来生产很大的一个随机数,比如：a=Int(10^Int((100*Rnd)+1)*Rnd+1)

For i = 1 To 10 改为 For i = 0 To 9For&nbs

x=123a=val(left(x))b=val(mid(x,2,1))c=val(right(x,1))或者：a=int(x/100)b=int((x-a*100)/10)c=x-a*100-b*1

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

int(10+rnd()*90)

PrivateSubCommand1_Click()Dima,b,cAsIntegerDimmaxRandomizea=Int(900*Rnd+100)b=Int(900*Rnd+100)c=Int(

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

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

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

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

Dimr(9)AsIntegerPrivateSubCommand1_Click()'产生随机数DimiAsIntegerRandomizeFori=0To9r(i)=Int(Rnd*90)+10Pi

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

PrivateSubCommand1_Click()Dima()AsInteger,i,j,m,nAsIntegerPrint"产生100个100～300之间的整数"RandomizeFori=1To

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

下面不知道是不是你需要的：varcharactors="ab1cd2ef3gh4ij5kl6mn7opq8rst9uvw0xyz";varvalue='',i;for(j=1;j再问：不用产生英文的可

随机数输出至xntom的随机数：x=Int(Rnd()*(n-m))+m再问：你这回答的里边是不是要把n，m调换啊？再答：写错了……x=Int(Rnd()*(m-n))+m再问：最后的那个m呢，不改为

因为0

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

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

公式是有问题的,正确的写法应该是CInt(Rnd*9000)+1000