设有如下两组数据:
(1) 2,8,7,6,4,28,70,25
(2) 79,27,32,41,57,66,78,80
编程,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+28,。。。,25+80,并把相应的结果放入第三个数组中,组后输出第三个数组的值。
设有如下两组数据:
(1) 2,8,7,6,4,28,70,25
(2) 79,27,32,41,57,66,78,80
编程,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+28,。。。,25+80,并把相应的结果放入第三个数组中,组后输出第三个数组的值。
Private Sub Command1_Click()
Dim c()
a = Split("2,8,7,6,4,28,70,25", ",")
b = Split("79,27,32,41,57,66,78,80", ",")
ReDim c(UBound(a))
For i = 0 To UBound(a)
c(i) = Val(a(i)) + Val(b(i))
Print c(i)
Next
End Sub