例六：数组排序
| 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相关组件。 |
专注于自动化、性能研究，博客为原创，转载请注明文章来源
