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

Do While n <= 9
c = Int(Rnd * 301 + 100)
If c > a(1) Then b = c
Loop
n<=9中n并没有增加或减小，按照Do While循环来说，应该是当循环条件为假的时候停止循环。
If c > a(1) Then b = c就算符合了这个if的条件执行的语句是b=c就是变量赋值，并没有跳出循环。
从上面的分析来说，应该是死循环。