比方说A数组包含1、2、10、7、4,B数组包含1、2、4、7、10则他们是相同的。
Sub test()
a1 = Array(1, 2, 10, 7, 4)
a2 = Array(1, 2, 7, 4, 10)
tempArray1 = a1
tempArray2 = a2
For i = 0 To 4
For j = 0 To 4
If tempArray1(i) <> "" And tempArray2(j) <> "" Then
If tempArray1(i) = tempArray2(j) Then
tempArray1(i) = ""
tempArray2(j) = ""
End If
End If
Next j
Next i
For i = 0 To 4
If tempArray1(i) <> "" Or tempArray2(i) <> "" Then
Count = Count + 1
End If
Next i
If Count = 0 Then
MsgBox "the two arrays are the same"
Else
MsgBox "the two arrays are different"
End If
End Sub
a1 = Array(1, 2, 10, 7, 4)
a2 = Array(1, 2, 7, 4, 10)
tempArray1 = a1
tempArray2 = a2
For i = 0 To 4
For j = 0 To 4
If tempArray1(i) <> "" And tempArray2(j) <> "" Then
If tempArray1(i) = tempArray2(j) Then
tempArray1(i) = ""
tempArray2(j) = ""
End If
End If
Next j
Next i
For i = 0 To 4
If tempArray1(i) <> "" Or tempArray2(i) <> "" Then
Count = Count + 1
End If
Next i
If Count = 0 Then
MsgBox "the two arrays are the same"
Else
MsgBox "the two arrays are different"
End If
End Sub
温馨提示:答案为网友推荐,仅供参考