设有如下两组数据。
（1）2，8，7，6，4，28，70，25
（2）79，27，32，41，57，66，78 ，80
 编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，……，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。

以下是此题的【VB源代码】
Private Sub Form_Click()

 Dim A, B, C(8) As Integer
 A = Array(2, 8, 7, 6, 4, 28, 70, 25)
 B = Array(79, 27, 32, 41, 57, 66, 78, 80)
 For i = 0 To 7
  C(i) = A(i) + B(i)
 Next i
Print "第一个数组为：";
For i = 0 To 7
 Print A(i);
Next i
Print
Print "第二个数组为：";
 For i = 0 To 7
    Print B(i);
Next i
Print
Print "第三个数组为：";
 For i = 0 To 7
  Print C(i);
Next i
 Print

End Sub

运行此VB源码后结果情况如下图所示：


visual basic 程序设计教程第4版 课后答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.5.html