Private Sub Command1_Click()
Dim a%(1 To 10), i%, max%, min%
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i)
Next i
max = a(i): min = a(i)
For i = 1 To 99
If a(i) > max Then max = a(i)
If a(i)max Then max = a(i) If a(i) < min Then min = a(i) Next i Text1.Text = max T...