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 'displayarrayend class