首页 / 编程脚本 / 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相关组件。