最大值 最小值 平均值

Private Sub Command1_Click()
Dim max As Integer, min As Integer, sum As Integer, average As Single
Dim x As Integer, i As Integer
Randomize
max = 10: min = 99
sum = 0
For i = 1 To 20
x = Int(90 * Rnd + 10)
If i Mod 5 <> 0 Then
   Label1.Caption = Label1.Caption & x & Space(4)
Else
   Label1.Caption = Label1.Caption + Chr(13) + Chr(10)
End If
If x > max Then max = x
If x < min Then min = x
sum = sum + x
Next i
average = sum / 20
Text1.Text = max: Text2.Text = min
Text3.Text = average
End Sub