Private Sub form_click()
Dim a(1 To 10) As String * 1
re: a(1) = Int(Rnd * 301 + 100)
If a(1) > 390 Then GoTo re
n = 2
Do While n <= 9
c = Int(Rnd * 301 + 100)
If c > a(1) Then b = c
Loop
For i = 1 To 10
Print a(i);
Next
End Sub