VB 数组配对

来源：百度知道 编辑：UC知道 时间：2024/05/18 06:24:49
如果a数组 找b数组对应相同的。每个元素只能配对一次。比如a数组有2个值是1.b只有一个，那么这样只能配一对。好像玩扑克牌中的钳乌龟差不多。
2数组已经从小到大排好序了。
指点一二。或给个思路。。

先将数组a和b都按升序排列，然后用下面的代码比较：
Dim i As Long, j As Long, lMatch As Long
i = LBound(a)
j = LBound(b)
Do
If a(i) = b(j) Then
i = i + 1
j = j + 1
lMatch = lMatch + 1
ElseIf a(i) < b(j) Then
i = i + 1
Else
j = j + 1
End If
Loop Until i = UBound(a) Or j = UBound(b)