随机问题,用rnd()会重复的问题

kunlun

随机问题

我有6个图片,分别命名为1.jpg  2.jpg...6.jpg

我想让它随机出现,请问有什么办法?我现在用的方法是定义6个变量,每个变量用rnd()随机出现

一个一位小于7的数字,然后通过app.path & "\" & 变量 & ".jpg"调用,但这种方法重复的概率很高,有没有更好的方法,请教各位

海狸先生

一个网上的例子Dim n(1 To 370), i, j, q

     

     For i = 1 To 370

     n(i) = 0

     Next

     j = 0

     Randomize Timer

     While j < 10

     q = Int(Rnd(1) * 369 + 1)

     If n(q) = 0 Then

     Print q

     n(q) = 1

     j = j + 1

     End If

     Wend

laixiaoj

一个网上的例子Dim n(1 To 370), i, j, q

     

     For i = 1 To 370

     n(i) = 0

     Next

     j = 0

     Randomize Timer

     While j < 10

     q = Int(Rnd(1) * 369 + 1)

     If n(q) = 0 Then

     Print q

     n(q) = 1

     j = j + 1

     End If

     Wend

kunlun

呵呵.不会吧.这个例子这么有名呀,你们都发这个贴子给我呀.可是,,我还是不态明白哦.我去试一下