自己做个内部函数,代码为:
Dim A As object = args(0)
Dim B As object = args(1)
For i As Integer = 0 To Math.min(a.Length,b.Length) - 1
If a(i) > b(i) Then
Return 1
ElseIf a(i) < b(i) Then
Return - 1
End If
Next
Return 0
假定函数名为comparearray,你可以这样调用:
Dim A As String() = {"0","A","2"}
Dim B As String() = {"0","a","2"}
Return Functions.Execute("comparearray",a,b)
数字也行:
Dim A As Integer() = {1,2,3}
Dim B As Integer() = {7,8,9}
Return Functions.Execute("comparearray",a,b)