数组相加演示(VB6.0源代码编写) Dim a(), b(), c() Dim i As Integer, j As Integer, k As Integer a = Array(1, 2, 3) '如果数组个数有变，可直接在此修改 b = Array(10, 20) '如果数组个数有变，可直接在此修改 '以下代码为通用格式，无论a、b数组如何变化，均会得出数组c的值 ReDim c((UBound(a) + 1) * (UBound(b) + 1) - 1) i = -1 For j =