VB6.0数组相加示例程序

数组操作挺常见的，尤其是你在 VB6.0 里做些数学、算法测试的时候。数组与数组相加其实不难，关键是得让两个数组对齐，维度一样、长度一致，不然运行起来麻烦事儿就多了。

VB6.0 的数组声明方式分两种：一种是定长数组，比如Dim arr(1 To 5)；另一种是变长数组，得搭配ReDim动态调整。一般初学者用定长的比较多，上手快，出错也少。

程序逻辑其实也就几步：先定义好两个数组，用For循环跑一遍，把对应位置的数加起来，存到另一个数组里就行了。你想输出的话，用MsgBox弹个结果窗口，还挺直观的。

下面这段代码就是完整例子了，运行一下，结果一目了然：

Private Sub Command1_Click()
  Dim arr1(1 To 5) As Integer
  Dim arr2(1 To 5) As Integer
  Dim arrSum(1 To 5) As Integer

arr1 = Array(1, 2, 3, 4, 5)
  arr2 = Array(6, 7, 8, 9, 10)
For i = LBound(arr1) To UBound(arr1)
    arrSum(i) = arr1(i) + arr2(i)
  Next i
Dim strResult As String
  For i = LBound(arrSum) To UBound(arrSum)
    strResult = strResult & arrSum(i) & " "
  Next i
MsgBox "数组相加的结果为：" & strResult
End Sub

小提醒一下，如果你打算搞二维数组的加法，那循环得套两层，比如For i和For j嵌套那种。思路一样，就是稍微绕点。

嗯，还有一点，有时候你事先不知道数组大小，那就用动态数组配合ReDim Preserve，灵活性高多，但性能得稍微注意下。

如果你对数组声明还不太熟，可以先看看VB6.0 动态数组声明训练那篇文章，讲得还挺清楚的。

，这种小功能，平时调试数据、搞小算法的时候有用。如果你正好用 VB6.0 搞东西，不妨拿这个模板改改试试。