vb编程问题

利用子过程或函数实现对一维数组A[10]中求奇数下标元素的和. 设计要求:A数组的起始下标可随意,但是必须用子过程或函数进行功能设计.在窗体上要利用相应控件或直接在窗体上显示数组的原始值和求出的奇数下标元素和 .

Private Sub Command1_Click()

Dim a(0 To 9) As Integer

Dim i, n As Integer

n = 10

For i = 0 To 9

a(i) = i

Next i

Call fun(a, n)

End Sub

Sub fun(ByRef a() As Integer, ByVal n As Integer)

Dim i, sum As Integer

sum = 0

For i = 1 To n - 1 Step 2

sum = sum + a(i)

Next i

Print sum

End Sub