排序数组A,B合并到C,就是不给小娃看,嘿嘿

王二.麻子

于 2011-05-11 21:50:00 发布

阅读量665

点赞数

文章标签： c

本文链接：https://blog.youkuaiyun.com/spt_petrolor/article/details/6413088

版权

Dim a, b, Flag As Boolean
b = Array(1, 3, 7, 9)
a = Array(2, 4, 5, 8, 10, 11, 19)
Dim c()
Dim numA, numB
numA = UBound(a)
numB = UBound(b)
ReDim c(0 To numA + numB + 1)
numA = 0: numB = 0
Dim i
For i = 0 To UBound(c)
If a(numA) > b(numB) Then
    c(i) = b(numB)
    numB = numB + 1
    If numB > UBound(b) Then
        Flag = False
        Exit For
    End If
Else
    c(i) = a(numA)
    numA = numA + 1
    If numA > UBound(a) Then
        Flag = True
        Exit For
    End If
End If
Next i
If Flag Then
    For i = i + 1 To UBound(c)
        c(i) = b(numB)
        numB = numB + 1
    Next i
Else
    For i = i + 1 To UBound(c)
        c(i) = a(numA)
        numA = numA + 1
    Next i
End If
For i = 0 To UBound(c)
Debug.Print c(i);
Next i