用VB函数 计算一维数组所有元素的平均值。要求，子函数实现求平均值，主函数实现数据输入及平均值输出

Question

如题所述

Answer 1

Function Average(mySinge() As Single) As Single
Dim sn As Single
Dim cn As Integer, i As Integer

cn = UBound(mySinge) - LBound(mySinge) + 1

For i = LBound(mySinge) To UBound(mySinge)
sn = sn + mySinge(i)
Next i
Average = sn / cn

End Function追问

可以给我完整版本吗 我是初学者 ><.

追答

private sub Form_load()
dim i,j as integer,x() as single
i=val(inputbox("输入几个数字?"))
redim (i)
for j=1 to i
x(j)=val(inputbox("请输入第" & j & "个数："))
next j
print "平均数=" & Average(x)
end sub

和上面那个函数结合

追问

调试的时候会出现下标越界诶

追答

private sub Form_load()
dim i,j as integer,x() as single
i=val(inputbox("输入几个数字?"))
redim x(i)
for j=0 to i-1
x(j)=val(inputbox("请输入第" & j & "个数："))
next j
print "平均数=" & Average(x)
end sub

本回答被提问者采纳