Question

利用VB编写两个数组的比较

两个数组中的数只要有一个不相等,则说明这两个数组不相等,只有两个数组中所有的数都相等，才说明两个数组相等，这段程序怎么编。

Answer 1

' 假设数组为 Integer a[], b[]
Dim i As Interger
If ((LBound(a) <> LBound(b)) Or (UBound(a) <> LBound(b))) Then
    Msgbox("两个数组维数不等。")
Else
    For i = LBound(a) To UBound(a)
        If (a[i] <> b[i])
            Msgbox("两个数组第" & i & "个元素不等。")
            Exit For 
        End If
    Next i
End If

多维数组自行添加嵌套循环，上述代码仅供参考思路。

Answer 2

Private Function MyCompare(a() As Integer, b() As Integer) As Boolean
Dim aa, bb, i As Integer
aa = UBound(a)
bb = UBound(b)
MyCompare = True
If aa <> bb Then
MyCompare = False
Else
For i = 0 To aa
If a(i) <> b(i) Then
MyCompare = False
Exit For
End If
Next
End If
End Function