vb数组合并

如文本框1有很多如下数组：
1 2 3 4 5
1 2 3 4 6
1 2 3 5 6
1 2 4 5 6
1 3 4 5 6
2 3 4 5 6
2 3 7 8 11
3 6 9 12 13等等数组数据，怎么用一个按钮把1 2 3 4 5,1 2 3 4 6,1 2 3 5 6,1 2 4 5 6,1 3 4 5 6,2 3 4 5 6合并成1 2 3 4 5 6这样的数组，因为这6组数据属于1 2 3 4 5 6，遇到有这样的数组就合并成6个数的数组，其它的按原来5个数显示在文本框2中，并且1 2 3 4 5,1 2 3 4 6,1 2 3 5 6,1 2 4 5 6,1 3 4 5 6,2 3 4 5 6这6组就不要显示了，只要如下所示格式：

1 2 3 4 5 6
2 3 7 8 11
3 6 9 12 13
再次感谢老师了！！！

你的数组合并的规律呢？
为什么是1 2 3 4 5 6 ?
为什么是2 3 7 8 11 和3 6 9 12 13？
我直接 1 2 3 4 5 6 7 8 9 11 12 13不是全包括了，全部数组都属于这个？
还有，为什么是2 3 7 8 11，而不是 2 3 4 5 6 ?
根本没有规律啊。

你的问题 首先没有定义全局变量， 你开始说你要把数组1，2合并到1里不是多此一举，，开始全部写到1里不就完了， 后来好了 把数组1，2 合并到另一个数组，，这个是可行的，， 越界，，，加了个全局变量就可以了，， 代码在下面，，测试可行 dim shuzu2(), shuzu1(), m, n as double private sub command1_click() n = inputbox("", "输入数组1个数") redim shuzu1(1 to n) for i = 1 to val(n) a = inputbox("", "请输入数字") shuzu1(i) = a text2 = text2 & shuzu1(i) & "," next i '数组2的输入 m = inputbox("", "输入数组2个数") redim shuzu2(1 to m) for i = 1 to val(m) a = inputbox("", "请输入数字") shuzu2(i) = a text1 = text1 & shuzu2(i) & "," next i end sub '将数组2合并到数组1 private sub command3_click() redim hebing(1 to m + n) as integer for i = 1 to n hebing(i) = shuzu1(i) text3 = text3 & hebing(i) next i for i = n + 1 to m + n hebing(i) = shuzu2(i - n) '在这里总说下标越界。。。 text3 = text3 & hebing(i) next i end sub 请采纳。