VB编程：设有如下两组数据

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 Su