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相關組件。