Vb的函数

'下面代码产生8个0-100之间的互不相同的随机数，要改成其他范围内的随机数，请自行修改

Dim S As String, i As Long, j As Long, n As Long
S = ","
For i = 1 To 8 '8个随机数（可修改）
Do
n = Int(Rnd * 100) '0-100之间（可修改）
j = InStr(1, S, "," & n & ",", vbTextCompare)
DoEvents
Loop Until j = 0
S = S & n & ","
Next
If Len(S) > 0 Then S = Mid(S, 2, Len(S) - 2)
Debug.Print S

Randomize
MsgBox Int(Rnd * 100)

如果需要不重复的，则每次每生随机数时，检查已有的随机数，如果重复的则继续 Int(Rnd * 100)