vb 从20到90中产生3行20列数字,每一行都从小到大排列.

Private Sub Form_Click()
Dim a(1 To 60) As Integer
Dim t%
Randomize
For i = 1 To 60
a(i) = Int(Rnd * 79) + 20
Next i
For i = 1 To 59
For j = 1 To 60 - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
For i = 1 To 60
Print a(i);
If i Mod 10 = 0 Then
Print
End If
Next i
End Su