利用子过程或函数实现对一维数组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
