u 随机生成30个在1—100间各不相同的正整数，并在屏幕上每10个一行显示出来

Private Sub Form_Click()
Randomize
Dim a(50) As Integer
For i = 0 To 29
ab:
a(i) = Int(Rnd() * 100)
For j = 0 To i - 1
If a(i) = a(j) Then GoTo ab
Next j
If i Mod 10 = 0 Then Print

Print a(i);
Next i
Print
End Sub
'就是产生30个随机数,每产生一个就和数组前面的进行比较,有相同的就重新产生一个数,依次类推........