数组相加演示(VB6.0源代码编写)

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