你的问题 首先没有定义全局变量，你开始说你要把数组1，2合并到1里不是多此一举，，开始全部写到1里不就完了，后来好了 把数组1，2 合并到另一个数组，，这个是可行的，，越界，，，加了个全局变量就可以了，，代码在下面，，测试可行Dim shuzu2(), shuzu1(), m, n As DoublePrivate 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 IEnd Sub'将数组2合并到数组1Private 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 IEnd Sub |
