请问如何产生1个（1-100）无重复的随机数？

请教怎么产生1个（1-100）无重复的随机数？？
请教怎么产生1个（1-100）无重复的随机数？？

[解决办法]

VB code

Private Sub Command1_Click()    Dim i As Long, j As Long, bSF As Boolean, num As Long    Dim s As String, ss(100) As Long, n As Long    For i = 1 To 10000       bSF = False       num = Int(Rnd * 100 + 1)       For j = 0 To UBound(ss)          If num = ss(j) Then             bSF = True             Exit For          End If       Next j       If bSF = False Then          ss(n) = num          s = s & num & " "          n = n + 1       End If       If n > 100 Then Exit For    Next i    Text1.Text = sEnd Sub
[解决办法]
看我的博客里的文章：“跳蚤算法基本原理”
[解决办法]
int(rnd*100)+1