Question

VB问题，各位大神麻烦了~~~

将两个有序数且A和B合并成另一个有序的数组C 。（不懂为什么老是提示下界越界。。。主要是不知道那个C的界限怎么定。。。）
Option Base 1
Dim a() As Variant, b() As Variant, c() As Variant, v As Variant
Private Sub Form_Click()
a = Array(1, 3, 5, 7, 9, 11, 15, 20, 25, 30)
b = Array(2, 4, 6, 8, 10, 12)
Dim i%, j%, k%
i = 1: j = 1: k = 1
Do While a(i) <= UBound(a) And b(j) <= UBound(b)
If a(i) < b(j) Then
c(k) = a(i)
i = i + 1
Else
c(k) = b(j)
j = j + 1
End If
k = k + 1
Loop
Do While a(i) <= UBound(a)
c(k) = a(i)
i = i + 1
Loop
Do While b(j) <= UBound(b)
c(k) = b(j)
j = j + 1
Loop
For Each v In c()
Print v;
Next
End Sub

Answer 1

在
　 a = Array(1, 3, 5, 7, 9, 11, 15, 20, 25, 30)
　 b = Array(2, 4, 6, 8, 10, 12)
后面加一行：
　 ReDim c(Ubound(a) + Ubound(b) + 1) as Variant

Answer 2

数组C初始定义的时候是一个动态数组，但是在第一次使用的时候没有对C进行明确上下限定义，因此出现错误