module1.bas

蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 Visual Basic 程序设计教程（第四版） 主编 蒋加伏 张林峰 找了好久的（不带密码的）

Attribute VB_Name = "Module1"
Public Sub combin(a() As Variant, b() As Variant, c() As Variant)
Dim ia, ib, ic As Integer
Do While ia <= UBound(a) And ib <= UBound(b)
If a(ia) < b(ib) Then           '将较小的数组元素加入数组c
c(ic) = a(ia)
ia = ia + 1
Else
c(ic) = b(ib)
ib = ib + 1
End If
ic = ic + 1
Loop
'将未处理完的数组（可能是a数组，也可能是b数组）的剩余元素并入c数组
Do While ia <= UBound(a)
c(ic) = a(ia)
ia = ia + 1
ic = ic + 1

Loop
Do While ib <= UBound(b)
c(ic) = b(ib)
ib = ib + 1
ic = ic + 1
Loop
End Sub