随机函数的编写

Question

http://www.csdn.net/expert/topic/750/750648.xml?temp=.501034

Answer 1

Dim a(100)
Dim i, j, count
For i = 0 To 99
100:
a(i) = Int(Rnd * 1000 + 1)
    For j = 0 To i - 1
    If a(i) = a(j) Then GoTo 100
    Next
Next

Answer 2

Dim a(100)
Dim i, j, count
For i = 0 To 99
100:
a(i) = Int(Rnd * 1000 + 1)
    For j = 0 To i - 1
    If a(i) = a(j) Then GoTo 100
    Next
Next

Answer 3

http://www.csdn.net/Expert/memberInfo.asp?Roomid=2&typenum=8&tabletype=now&searchKeys=随机&author=&whichpage