Private Sub Command1_Click()
Dim a() As Integer
ReDim a(100)
a(1) = Int(Rnd() * 1000 + 1)
Print a(1)
For i = 2 To 10
For k = 1 To i - 1
t= Int(Rnd() * 1000 + 1)
Ifa(k) = t Then
i= i - 1
ExitFor
EndIf
Next
a(i)= t
Print t
Next
End Sub
Private Sub Command1_Click()
Dim a() As Integer
ReDim a(100)
a(1) = Int(Rnd() * 1000 + 1)
Print a(1)
For i = 2 To 10
For k = 1 To i - 1
t= Int(Rnd() * 1000 + 1)
Ifa(k) = t Then
i= i - 1
ExitFor
EndIf
Next
a(i)= t
Print t
Next
End Sub