[已解决]2个数组怎么比较

釜底抽薪

就是有2个数组，数组里面放的就是双精度的数值 比如
Sub add()
Dim ar(1), br(1), i As Integer
    ar(0) = 123: ar(1) = 456
    br(0) = 123: br(1) = 456

    For i = LBound(ar) To UBound(ar)
        If ar(i) = br(i) Then r = r + 1
    Next i
    If r = 2 Then
        MsgBox "数组相同"
    Else
        MsgBox "数组不同"
    End If
End Sub

问题 1 有什么方法可以直接比较2个数组不 比如 ar=br
问题 2  上面的例子就是数组元素放的内容是一直，顺序也一样，要是顺序不一样的话 那数组就是不一样吗，有什么方法容错下

最佳答案

月排行榜 / 总排行榜

砂海

2022-6-4 11:45

数组只能 逐个值比较 ,
Sub add()
Dim ar(1), br(1), i As Integer
    ar(0) = 123: ar(1) = 456
    br(0) = 123: br(1) = 456

    For i = LBound(ar) To UBound(ar)
        If ar(i) <> br(i) Then
            MsgBox "数组不同"
            Exit Sub
        End If
    Next i

    MsgBox "数组相同"
   
End Sub
========================================
但一维数组 可以 用join 转为文本
Sub add2()
Dim ar(1), br(1), i As Integer, ar文本 As String, br文本 As String
    ar(0) = 123: ar(1) = 456
    br(0) = 123: br(1) = 456

    ar文本 = Join(ar, "◆")
    br文本 = Join(br, "◆")
   
    If ar文本 = br文本 Then
        MsgBox "数组相同"
    Else
        MsgBox "数组不同"
    End If

End Sub

跳转到最佳答案楼层

砂海

数组只能 逐个值比较 ,
Sub add()
Dim ar(1), br(1), i As Integer
    ar(0) = 123: ar(1) = 456
    br(0) = 123: br(1) = 456

    For i = LBound(ar) To UBound(ar)
        If ar(i) <> br(i) Then
            MsgBox "数组不同"
            Exit Sub
        End If
    Next i

    MsgBox "数组相同"
   
End Sub
========================================
但一维数组 可以 用join 转为文本
Sub add2()
Dim ar(1), br(1), i As Integer, ar文本 As String, br文本 As String
    ar(0) = 123: ar(1) = 456
    br(0) = 123: br(1) = 456

    ar文本 = Join(ar, "◆")
    br文本 = Join(br, "◆")
   
    If ar文本 = br文本 Then
        MsgBox "数组相同"
    Else
        MsgBox "数组不同"
    End If

End Sub

釜底抽薪

砂海 发表于 2022-6-4 11:45
数组只能 逐个值比较 ,
Sub add()
Dim ar(1), br(1), i As Integer

好吧，也只能这样，逐个值比较 就是数组里面的值的顺序不一样 也会造成不一致

eennoo

如果都是数组内没重复还可以这样写，位运算符xor
Sub main()
Dim a, b, i
i = 0
a = Array(123, 456)
b = Array(456, 123)
result = opera(a, b, 0)
If result = 0 Then MsgBox "数组相同" Else MsgBox "数组不同"
End Sub

Function opera(arr, brr, i) As Long

If UBound(arr) = UBound(brr) Then
If i <= UBound(arr) Then opera = opera(arr, brr, i + 1) Xor arr(i) Xor brr(i)
Else
opera = 1
End If
End Function

excel用账户

1. Sub add()
   
2. Dim ar(1), br(1), i As Integer
   
3.     ar(0) = 123: ar(1) = 456
   
4.     br(0) = 456: br(1) = 123
   
5. 
   
6.     For i = LBound(ar) To UBound(ar)
   
7.         For j = LBound(br) To UBound(br)
   
8.             If ar(i) = br(j) Then r = r + 1
   
9.         Next j
   
10.     Next i
    
11.     If r = 2 Then
    
12.         MsgBox "数组相同"
    
13.     Else
    
14.         MsgBox "数组不同"
    
15.     End If
    
16. End Sub
    

复制代码

砂海

Sub add()
    '字典不是EXCEL的自带功能 , 未完整安装就没有
    Dim D
    Set D = CreateObject("scripting.dictionary")    '建立字典
   
    Dim ar(2), br(2), i As Integer
    Dim cr(2), j As Integer
   
    ar(0) = 123: ar(1) = 456: ar(2) = 123
    br(0) = 123: br(1) = 123: br(2) = 456

    For i = LBound(ar) To UBound(ar)
        D(ar(i)) = D(ar(i)) + 1
    Next i

    For i = LBound(br) To UBound(br)
        D(br(i)) = D(br(i)) - 1
    Next i

    For i = LBound(ar) To UBound(ar)    '其实可以只循环不重复值得个数 , 字典有去重功能 , 本程序未使用 , 不是几句话能说清楚的
        If D(ar(i)) <> 0 Then
            MsgBox "数组不同"
            Exit Sub
        End If
    Next i
   
    MsgBox "数组相同"
   
End Sub