Sub 随机产生10个二位正整数_芐雨()
Dim arr, din, d As Object
Set d = CreateObject("scripting.dictionary")
Randomize
Do
d(Int(Rnd() * 90 + 10)) = ""
Loop Until d.Count = 10
For i = 1 To 10
dmin = Application.Min(d.keys)
If Len(arr) = 0 Then
arr = dmin
Else
arr = arr & "," & dmin
End If
d.Remove (dmin)
Next
MsgBox arr
End Sub
是不是这样?这是10个不重复的2位正整数