主函數(shù)實現(xiàn)數(shù)據(jù)輸入及平均值輸出？

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