页面导航： 首页 → 脚本专栏 → vbs → 正文内容 vbs sort

发布：dxy 字体：[增加 减小] 类型：转载

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相关组件。

文章评论

共有 位脚本之家网友发表了评论我来说两句