VBA问题,两个数组A(1,1 To 1,5)和B(1,1 To 1,5)要求比较他们包含的元素是否相同.比方说A数组包含1、2、10、7、4,B数组包含1、2、4、7、10则他们是相同的.
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/02 23:24:37
VBA问题,两个数组A(1,1 To 1,5)和B(1,1 To 1,5)要求比较他们包含的元素是否相同.比方说A数组包含1、2、10、7、4,B数组包含1、2、4、7、10则他们是相同的.
VBA问题,两个数组A(1,1 To 1,5)和B(1,1 To 1,5)要求比较他们包含的元素是否相同.
比方说A数组包含1、2、10、7、4,B数组包含1、2、4、7、10则他们是相同的.
VBA问题,两个数组A(1,1 To 1,5)和B(1,1 To 1,5)要求比较他们包含的元素是否相同.比方说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