用VB函數(shù)，計算一維數(shù)組所有元素的平均值。要求，子函數(shù)實現(xiàn)求平均值，主函數(shù)實現(xiàn)數(shù)據(jù)輸入及平均值輸出？函數(shù)Average（mySinge（）As Single）As SingleDim sn As Si

用VB函數(shù)，計算一維數(shù)組所有元素的平均值。要求，子函數(shù)實現(xiàn)求平均值，主函數(shù)實現(xiàn)數(shù)據(jù)輸入及平均值輸出？

函數(shù)Average（mySinge（）As Single）As Single

Dim sn As Single

Dim cn As Integer，i As Integer

cn=UBound（mySinge）-LBound（mySinge）1

對于i=LBound（mySinge）To UBound（mySinge）

sn sn mySinge（i）

Next i

Average=sn/cn

End Function

將sum初始值sum設(shè)置為0，然后依次累加數(shù)組元素，最后除以元素個數(shù)n得到平均值。C程序示例如下：#include<stdio。H>double leave（double*a，INTN）{intitdoublesum=0For（I=0I<ni）sum=sum a[I]return（sum/N）}intmain（）{double[]={1，2，3，4，5，6}，meannnn=sizeof（a）/sizeof（double）mean=ave（a，N）printf（“ave=gN”，mean）return N0}