Private Sub Form_Click()
Dim i As Integer
Dim s As Single
Dim min As Single
Dim max As Single
Dim m As Single
s = 0
For i = 1 To 10
m = Val(InputBox(""))
If i = 1 Then
max = m
min = m
Else
If max < m Then max = m
If min > m Then min = m
End If
s = s + m
Next i
Print "最大值是:" & max
Print "最小值是:" & min
Print "平均值是:" & s / 10
End Sub
温馨提示:内容为网友见解,仅供参考