比较2个Array内容是否相同

比较2个Array内容是否相同，不判断位置是否相同。
Function ArraysAreEqual (vA As Variant, vB As Variant) As Variant

 

Dim IsEqual As Variant
ArraysAreEqual = True
 if ubound(vA) <> ubound(vB) then
Msgbox "2个数组长度不同"
exit Function
end if

Forall a In vA
    IsEqual = False
    Forall b In vB
        If a = b Then
            IsEqual = True
            Exit Forall
        End If
    End Forall
    If Not IsEqual Then
        ArraysAreEqual = False
        Exit Function
    End If
End Forall

End Function