vb中如何产生不相等随机数，下面这个代码怎么做

vb中如何产生不相等随机数，下面这个代码怎么做

Private Sub Command1_Click()
Randomize
Dim a(1 To 50) As Integer, i As Integer, k As Integer
For i = 1 To 50
a(i) = Int(Rnd * 100)
For k = 1 To i - 1
If a(i) = a(k) Then
i = i - 1
Exit For
End If
Next k
Next i

For i = 1 To 50
Text1.Text = Text1.Text + Str(a(i)) + Space(2)
Next i
End Sub

既然是随机数那就是随机出现的数字，如果想让随机数末尾相加互补，相等那么 只能随机一个数字，另一个数字由公式算出。

再定义一个变量j 然后代码如下（结果输出代码没问题略，但是都在同一行了，自己修改吧）： Randomize j = 1 a(1) = Int(Rnd * 100) For i = 2 To 49 a: a(i) = Int(Rnd * 100) For k = 1 To i - 1 If a(i) = a(k) Then GoTo a End If Next k Next i