在VB中计算平均值

Private Function dd(a() As Double, N As Integer, b() As Double, m As Integer)
For i = 3 To N - 4
b(i - 3) = a(i)
Next
m = N - 6
End Function
'排序函数 从大到小
Private Function Px(a() As Double, b As Integer)
Dim max As Double
For i = 0 To b - 2
For j = i + 1 To b - 1
If a(i) < a(j) Then
max = a(j)
a(j) = a(i)
a(i) = max
End If
Next
Next
End Function
Private Sub Command1_Click()
Dim intTemp(16) As Double
Dim intData(10) As Double
Dim N As Integer
Dim sum As Double
Dim l
For i = 1 To 16
Randomize
intTemp(i - 1) = Format((Rnd * 10 + 40), "0.00")
Text1(i).Text = CStr(intTemp(i - 1))
Next i
Call Px(intTemp, 16)
l = dd(intTemp(), 16, intData(), N)
For i = 0 To N - 1
sum = sum + intData(i)
Print CStr(intData(i))
Next
Text1(17).Text = sum / 10
End Sub