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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 00:52:24
VB编程:设有如下两组数据VB编程:设有如下两组数据A:2,7,7,6,27,70,25B:79,27,32,41,57,66,70编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,7+27,.,25+

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

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