隨機(jī)問題,用rnd()會重復(fù)的問題

kunlun

隨機(jī)問題

我有6個(gè)圖片,分別命名為1.jpg  2.jpg...6.jpg

我想讓它隨機(jī)出現(xiàn),請問有什么辦法?我現(xiàn)在用的方法是定義6個(gè)變量,每個(gè)變量用rnd()隨機(jī)出現(xiàn)

一個(gè)一位小于7的數(shù)字,然后通過app.path & "\" & 變量 & ".jpg"調(diào)用,但這種方法重復(fù)的概率很高,有沒有更好的方法,請教各位

海貍先生

一個(gè)網(wǎng)上的例子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

一個(gè)網(wǎng)上的例子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

呵呵.不會吧.這個(gè)例子這么有名呀,你們都發(fā)這個(gè)貼子給我呀.可是,,我還是不態(tài)明白哦.我去試一下