Private Sub Command1_Click()
Dim a() As Integer, b As Integer, i As Integer
For i = 1 To 10
Randomize
a(i) = Int(90 * Rnd) + 1
If a(i) > 10 Then
Text1 = Text1 & Space(4) & a(i)
End If
If a(i) > 100 Then
Text1 = Text1 & Space(3) & a(i)
End If
If a(i)10 Then Text1 = Text1 & Space(4) & a(i) End If If a(i) > 100 Then Text1 = Text1 & Space(3) & a(i) End If If a(i) < 10 Then Text1 = Text1 & Space(5) & a(i) End I...