随机生成10个不重复的整数

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Form_Load
End Sub
 
Private Sub Form_Load()
   
Dim p As String
   
Randomize
   
p = ""
   
For i = 1 To 10
   
Do
   
X = Int(Rnd * 90) + 10
   
yes = 0
   
For j = 1 To i - 1
   
If X = a(j) Then yes = 1: Exit For
   
Next
   
Loop While yes = 1
   
a(i) = X
   
p = p & Str(a(i)) & ","
   
Next
   
Label1.Caption = LTrim(Left(p, Len(p) - 1))
   
End Sub