Private Sub Command1_Click()
Dim n As Byte, i As Byte
n = InputBox("请输入数据的个数")
ReDim a(n) As Single
For i = 1 To n
a(i) = InputBox("a(" + Str(i) + ")=", "输入数据a")
Next i
print fsum
End Sub
Private Function fsum(x() As Double, n As Integer) As Double
Dim i As Integer, x As Single
For i = 1 To n
fsum = fsum + x Next i
fsum = fsum / n
End Function
题目是编制通用函数的过程，计算double 类型一维数组所有元素的平均值。
下面一部分没问题的 上面我就不知道怎么弄了。。。求大神啊， 我刚学VB。