VB 编写程序,生成10个无重复数（即互不相等）的两位随机数

两种方法
1 补充你的算法,
Private Sub Command1_Click()
Dim a(10) As Integer,n As Integer
Dim i As Integer,k As Integer
Randomize
a(1) = Int(Rnd * 90) + 10
k = 1
Do
n = Int(Rnd * 90) + 10
For i = 1 To 10
If a(i) = n Then Exit For
Next i
If i > 10 Then
k = k + 1
a(k) = n
End If
Loop While k < 10
For i = 1 To 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
2利用集合
Private Sub Command1_Click()
Dim Zjh As New Collection
Dim Tempjh As New Collection
Dim i As Integer,k As Integer
For i = 10 To 99
Zjh.Add i
Next
For i = 1 To 10
Randomize
k = Int(Rnd() * Zjh.Count + 1)
Tempjh.Add Zjh(k)
Zjh.Remove k
Next
For i = 1 To Tempjh.Count
Text1 = Text1 & Tempjh(i)
Next
End Su