VB编程：设有如下两组数据VB编程：设有如下两组数据A：2,7,7,6,27,70,25B:79,27,32,41,57,66,70编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,7+27,.,25+

Question

VB编程：设有如下两组数据
VB编程：
设有如下两组数据
A：2,7,7,6,27,70,25
B:79,27,32,41,57,66,70
编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,7+27,.,25+70,并把相应的结果放入第三个数组中,最后输出三个数组的值

Answer 1

Private Sub Command1_Click()
Dim i As Long
Dim a, b, c
a = Array(2, 7, 7, 6, 27, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 70)
ReDim c(UBound(a))
For i = 0 To UBound(a)
c(i) = a(i) + b(i)
Next
MsgBox Join(a, ",") & vbCrLf & Join(b, ",") & vbCrLf & Join(c, ",")
End Sub