Private Sub Command1_Click()
Dim arr(4) As Integer
Dim j As Long, Aver As Single
For j = 1 To 4
arr(j) = Text1(j - 1)
Next
Aver = Avg(arr)
Print "平均值是："; Aver
End Sub
Private Sub Form_Load()
Dim j As Long
For j = 0 To 3
Text1(j) = ""
Next
Command1.Caption = "求平均值"
End Sub
Private Function Avg(ByVal a) As Single
Dim j As Long, n As Long, s As Single
n = UBound(a)
For j = 1 To n
s = s + a(j)
Next
Avg = s / n
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024