Private Sub Command1_Click()Dim a(50) As IntegerFor i = 1 To 50 Randomize a(i) = Int(Rnd * 40 + 10) Print a(i) & " "; If i Mod 10 = 0 Then Print End IfNext iEnd Sub
