Vb一维数组，赋值、求和、求平均值,如何编程啊？

Question

Vb一维数组，赋值、求和、求平均值,如何编程啊？求大神们帮忙啊！！！！！！！

Answer 1

下面是数据一个简单的例子，赋值、求和、求平均值都包括了：
Dim a(4) As Long '定义数组a(4)
Private Sub Command1_Click()
    Dim i As Long, x As Long, y As Double
    For i = 0 To 4
        a(i) = i '给数组赋值
        Print "a(" & i & ")=" & a(i)
        x = x + a(i)'计算数组和
    Next
    Print "数组和是：" & x
    y = x / (UBound(a) + 1)'平均数
    Print "数组平均数是：" & y
End Sub