超级麻烦的vb题 ，帮帮我吧，快晕死了

来源：百度知道 编辑：UC知道 时间：2024/05/08 20:11:00
5、设有如下两组数据：

A:2，8，7，6，4，28，70，25

B:79，27，32，41，57，66，78，80

编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2＋79，8＋27，…，并把结果放到第3个数组中，最后输出第3个数组的值。
希望尽量详细，谢了

Private Sub Command1_Click()
Dim a$, b$, s1, s2, s3(), i%
a = "2，8，7，6，4，28，70，25"
b = "79，27，32，41，57，66，78，80"

s1 = Split(a, "，")
s2 = Split(b, "，")
ReDim s3(UBound(s1))

For i = 0 To UBound(s1)
s3(i) = Val(s1(i)) + Val(s2(i))
Next

Print Join(s1)
Print Join(s2)
Print Join(s3)
End Sub

Private Sub Command1_Click()
Dim arr1(), arr2(), arr3(7) As Integer
arr1 = Array(2, 8, 7, 6, 4, 28, 70, 25)
arr2 = Array(79, 27, 32, 41, 57, 66, 78, 80)
For i = 0 To UBound(arr1)
arr3(i) = arr1(i) + arr2(i)
Next
For i = 0 To UBound(arr3)
Me.Print arr1(i) & "+" & arr2(i) & "=" & arr3(i)
Next
End Sub