23 lines
790 B
Plaintext
23 lines
790 B
Plaintext
Dim Shared list1(4) As Integer = {1, 2, 1, 5, 2}
|
|
Dim Shared list2(5) As Integer = {1, 2, 1, 5, 2, 2}
|
|
Dim Shared list3(4) As Integer = {1, 2, 3, 4, 5}
|
|
Dim Shared list4(4) As Integer = {1, 2, 3, 4, 5}
|
|
|
|
Function Orden(listA() As Integer, listB() As Integer) As Boolean
|
|
Dim As Integer i = 0, l1, l2
|
|
l1 = Ubound(listA, 1)
|
|
l2 = Ubound(listB, 1)
|
|
While listA(i) = listB(i) And i < l1 And i < l2
|
|
i += 1
|
|
Wend
|
|
If listA(i) < listB(i) Then Return True
|
|
If listA(i) > listB(i) Then Return False
|
|
Return l1 < l2
|
|
End Function
|
|
|
|
If Orden(list1(), list2()) Then Print "list1<list2" Else Print "list1>=list2"
|
|
If Orden(list2(), list3()) Then Print "list2<list3" Else Print "list2>=list3"
|
|
If Orden(list3(), list4()) Then Print "list3<list4" Else Print "list3>=list4"
|
|
|
|
Sleep
|