vbs+sort排序效果代码

Function fSortArray(aSortThisArray)

Dim oArrayList, iElement

Set oArrayList = CreateObject( "System.Collections.ArrayList" )

For iElement = 0 To UBound(aSortThisArray)

oArrayList.Add aSortThisArray(iElement)

Next

oArrayList.Sort

set fSortArray = oArrayList

End Function

myarray=Array(50,20,30)

MsgBox myarray(0)

MsgBox fSortArray(myarray)(0)

'CreateObject( "System.Collections.ArrayList" )调用了mscoree.dll,是.NET Framework相关组件。