vb如何产生两个不同随机数

Question

随机产生两个【1，10】上的随机数，要求随机数不能相同

Answer 1

Private Sub Command1_Click()
Randomize Timer
Dim f As Boolean
Dim a As Integer, b As Integer
f = True
While f
  a = Int(Rnd * 10 + 1)
  b = Int(Rnd * 10 + 1)
  If a <> b Then f = False
Wend
Print a, b

End Sub

Answer 2

Private Sub Command1_Click()
Dim a(1) As Integer
For i = 0 To 1
a(i) = Int(Rnd * 10 + 1)
If a(0) <> a(1) Then Print a(i);
Next i
End Sub本回答被提问者采纳