用VB怎么合并数组？高手来救我呀！！！

显示全部楼层 · 2008-6-9 11:07:07

我要编写一个程序来合并两个已经按照升序排列好的数组
例如数组A： 1，2，3，5，9，11，16，18
数组B： 4，5，6，7，8，10，12，15，17，19，21，23
需要用到三个List的控件
我是初学，很多东西不会弄
希望高手来帮帮我啊！
谢谢lairice的回答补充，我还想问一下该怎么解决c(j)=b(j-i) 这一句的下标越界问题呢？

千问 · 2008-6-9 11:07:07

dim C() dim I as integer,J as Integerredim C(ubound(A)+ubound(B))for i=0 to Ubound(A)c(i)=A(i)nextfor j=i to Ubound(b+i)c(j)=b(j-i)next=========================输入错误,应该是for j=i to Ubound(b)+i=========================redim C(ubound(A)+ubound(B)+1)

千问 · 2008-6-9 11:07:07

我给你解释一下吧。ReDim 是重新定义数组大小的先将C定义为A+B的大小，然后再一个一个把值赋过去，这样就是合并数组了。ReDim 数组变量名(大小)估计你的问题是出在Ubound这个函数上。