Private Sub Command1_Click()Dim i%, m%Dim a(5) As Integer m = 0 For i = 1 To 5 a(i) = 10 + Rnd * 90 Print a(i); If m < a(i) Then m = a(i) Next i PrintPrint mEnd Sub