Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        dim a1 as Array = {1,2,3}

        dim a2 as Array = {3,2,1}

        dim result = CompareArrays(a1,a2)

        Console.WriteLine("comparison = " & result)

        dim a3 as Array ={"a","b","c"}

        dim a4 as Array = {"b","c","h"}

        result = CompareArrays(a3,a4)

        Console.WriteLine("comparison = " & result)

    End Sub

    Function CompareArrays(array1, array2) as Boolean

        Console.WriteLine(array1)

        If array1.Length <> array2.Length Then

            return false

        End If

       Array.Sort(array1)

       Array.Sort(array2)

        For i as integer = 0 To UBound(array1)

           if(array1(i) <> array2(i))

            return false

           End If

        Next

    return true

    End Function

End Module