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

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 Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息