急！求救：在VB中已经定义了两个数组A和B，要求将这两个数组连接成一个数组C（其中的元素个数为A和B中的元素个数和，不是相加，只是连接），并且对C按升序进行排列！形成D后输出！如果哪位大虾有时间的话，帮我编写一个也行，小弟不甚感激！谢谢

这还不自己写

Option Base 1

Private Sub Form_Click() Dim a(), b(), c(), k As Integer, m As Integer, n As Integer m = InputBox("请输入A数组长度", "数据入") m = Val(m) n = InputBox("请输入B数组长度", "数据入") n = Val(n) ReDim a(m) ReDim b(n) k = m + n ReDim c(k) For i = 1 To m a(i) = InputBox("请输入第" & i & "个元素", "A数组元素输入") a(i) = Val(a(i)) Next i For j = 1 To n b(j) = InputBox("请输入第" & j & "个元素", "B数组元素输入") b(j) = Val(b(j)) Next j For i = 1 To m c(i) = a(i) Next i For i = 1 To n c(m + i) = b(i) Next i For i = 1 To k Print Tab(5 * i); c(i); Next i For i = 1 To k For j = 1 To k - 1 If c(j) > c(i) Then t = c(i) c(i) = c(j) c(j) = t End If Next j Next i For i = 1 To k Print Tab(5 * i); c(i); Next i End Sub

冒泡排序！！！