如何获得随机数？
vb吧
全部回复
仅看楼主
level 2
十三爪金龙 楼主
[瀑布汗~]有4个数（1、2、3、4）
对，就1、2、3、4这4个数
如何将他们随即输出？？？
就是把他们顺序打乱一下之后输出!必须的不重复！
别跟哥说 int（rnd*4)+1 这个哥也会
可这个不是说把1、2、3、4这4个数都输出、而是有重复的
顺便问下：为什么自己编个想获得数组的函数老出错呢？（不编的话相同代码要出现4次- -!)
2013年01月01日 05点01分 1
level 13
ID_saac
dim a(4) as integer
for i = 1 to 4 '建立数组
a(i) = i
next i
for i = 1 to 4
j = Int(Rnd*4)+1
x = a(j) '交换a(i)和a(j)
a(j) = a(i)
a(i) = x
next i
2013年01月01日 05点01分 2
十三爪金龙
这样交换的话，有重复的啊，没把1、2、3、4都输出来
2013年01月01日 06点01分
ID_saac
回复 十三爪金龙 :怎么会有重复，只是把a()这个数组的成员顺序相互交换而已。
2013年01月01日 06点01分
十三爪金龙
回复 ID_saac :把你的代码复制，在 a(i) = x 之后 print x或者 print a(i)就知道了
2013年01月01日 06点01分
l4m2
概率不对
2013年01月01日 13点01分
1