Private Sub Form_Click() Dim a(10) As Boolean Cls For i = 1 To 10 10: x = Int(Rnd * (10) + 1) If a(x) = False Then Print x: a(x) = True Else GoTo 10 Next i

End Sub

Private Sub Form_Load() Randomize End Sub