it hurts:vb如何产生1~10不同的10个随机数

来源:百度文库 编辑:高校问答 时间:2024/04/27 18:41:07
print Int(Rnd*10)+1那是一个 你还要+上种子才好
我要的是10个不同的
我有思路是 产生一个就放到一个数组中 再产生一个时
判断和前一个是否相同 垒加
可是我做不出来
2楼可以自己运行吗?

就是你说的啊..

dim a(10),x,y
randomize
x=0
while x<10
a(x)=rnd*9+1
for y=0 to x
if a(y)=a(x) then
a(x)=0
exit for
end if
next
if a(x)<>0 then x=x+1
wend

可以先让第一个数随机产生,然后判断后面随机产生的数与前一个不同,如果不同就输出...

你可以使用随机数函数,
循环使用“print Int(Rnd*10)+1"语句,就可以产生若干个1-10之间的随机数