软件开发培训班 >> 编程开发 >> VbScript


vbs的sort排序

　　本文标签：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相关组件 。