Private Sub Command1_Click()
For i = 0 To 7
Text1(i).Text = 3 + Int(Rnd * 7)
Next i
End Sub

Private Sub Command2_Click()
For i = 0 To 7
Label1(i).Caption = Val(Text1(i).Text) ^ 2
Next i
End Sub

Private Sub Command3_Click()
For i = 0 To 7
Text1(i).Text = 3 + Int(Rnd * 7)
Next i
For i = 0 To 7
Label1(i).Caption = Val(Text1(i).Text) ^ 2
Next i
End Sub

Private Sub Command4_Click()
Max = Val(Text1(i0).Text)
For i = 0 To 7
If (Max < Val(Text1(i).Text)) Then
Max = Val(Text1(i).Text)
End If
Next i
Label2.Caption = Max
End Sub

Private Sub Command5_Click()
Min = Val(Text1(0).Text)
For i = 0 To 7
If (Min > Val(Text1(i).Text)) Then
Min = Val(Text1(i).Text)
End If
Next i
Label3.Caption = Min
End Sub

Private Sub Command6_Click()
k = 0
For i = 0 To 7
If (Val(Text1(i).Text) < 7) Then
k = k + 1
End If
Next i
Label4.Caption = k

End Sub

Private Sub Command7_Click()
s = 0
For i = 0 To 7
s = s + Val(Text1(i).Text)
Next i
Label5.Caption = s
End Sub

Private Sub Command8_Click()
s = 0
For i = 0 To 7
s = s + Val(Text1(i).Text)
Next i
Label6.Caption = s / i
End Sub

Private Sub Command9_Click()
p = 1
For i = 0 To 7
p = p * Val(Text1(i).Text)
Next i
Label7.Caption = p / i
End Sub