两个数组求并集

对两个数组求并集，由于对数组的操作不是很熟悉，所以将数组中的数存到listbox中，再对listbox中的数进行操作，将相同的都删除，只留下一个，然后再将得到的数重新保存到数组输出，方法有点复杂，但是能够达到效果，也可以继续编写拓展到任意个数组求并集，也可以将数组元素的输入优化，通过直接在text控件中写入，中间用空格分开，读取的时候再用split函数将其取出，赋给数组进行后续操作，这里不再赘述。下面是源码：

Private Sub Command1_Click()
Dim A(), B(), C()
Dim Num1 As Integer, Num2 As Integer
Dim i As Integer, j As Integer, Ln As Integer
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
On Error Resume Next
Num1 = InputBox("请输入 数组1 的元素个数", "元素个数")
ReDim A(Num1)
For i = 1 To Num1
A(i) = InputBox("请输入 数组1 的 第" & i & "个 元素", "输入元素")
Text1 = Text1 & A(i) & " "
Next i
Num2 = InputBox("请输入 数组2 的元素个数", "元素个数")
ReDim B(Num2)
For i = 1 To Num2
B(i) = InputBox("请输入 数组2 的 第" & i & "个 元素", "输入元素")
Text2 = Text2 & B(i) & " "
Next i
Ln = Num1 + Num2
ReDim C(Ln)
For i = 1 To Num1
C(i) = A(i)
Next i
For i = Num1 + 1 To Ln
C(i) = B(i - Num1)
Next i
On Error Resume Next
For i = 1 To Ln
List1.AddItem C(i)
Next i
For i = 0 To List1.ListCount - 1
For j = i + 1 To List1.ListCount - 1
If List1.List(i) = List1.List(j) Then
List1.RemoveItem (j)
j = j - 1
End If
Next j
Next i
ReDim C(List1.ListCount)
For i = 1 To List1.ListCount
C(i) = List1.List(i - 1)
Text3 = Text3 & C(i) & " "
Next i
End Sub