vb.net 数据排序倒序代码

vb.net 数据排序倒序代码

imports system

public class mainclass
   
    shared sub main()
        dim myarray as [string](  ) = {"w", "i", "a", "t"}

        console.writeline("display myarray...")
        displayarray(myarray)

        console.writeline("reverse and display myarray...")
        array.reverse(myarray)
        displayarray(myarray)

        dim myotherarray as [string](  ) = _
          {"e", "l", "s", "t", "o", "b", "f", "v"}

        console.writeline("display myotherarray...")
        displayarray(myotherarray)

        console.writeline("sort and display myotherarray...")
        array.sort(myotherarray)
        displayarray(myotherarray)

    end sub
    public shared sub displayarray(byval thearray(  ) as object)
        dim obj as object
        for each obj in thearray
            console.writeline("value: {0}", obj)
        next obj
        console.writeline(controlchars.lf)
    end sub 'displayarray

end class