VBA问题,两个数组A(1,1 To 1,5)和B(1,1 To 1,5)要求比较他们包含的元素是否相同.

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 IfEnd Su