Private Sub Form_Click()
Cls
Dim a(10) As Integer
Dim i As Integer
For i = 0 To 9
Randomize
a(i) = Rnd * 100
Print a(i)
Print
Next
Dim max As Integer
max = a(0)
For i = o To 9
If a(i) > max Then
max = a(i)
End If
Next
Print "the max is:" & maxEnd Sub