Question

vb:一个数组中，将每两个数相加，最后赋给一个数组

有一个数组a()=(1,2,3,4,5,6,7,8,9,0....)
将每两个数相加，最后得到的数组应该是3，7，11，15，9....
非常着急。。请懂vb的朋友帮帮我
O(∩_∩)O谢谢。。。

Answer 1

首先a()必须是偶数个元素
然后就简单了
Private Sub Command1_Click()
Dim b(5) As Single
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
For i = 0 To 4
b(i) = a(2 * i) + a(2 * i + 1): Print b(i)
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
For i = 0 To UBound(a) Step 2
Debug.Print a(i) + a(i + 1), a(i), a(i + 1)
Next
End Sub

Answer 3

for i=0 to n-1
b(i)=a(i)+a(i+1)
next i

Answer 4

（1,2,16,17）