请问如何实现对一个字符串数组拼音顺序排列

Question

http://www.blueidea.com/user/qswh/GB2312.html

Answer 1

运行的时候提示strGB对象不存在

Answer 2

用vbscript来解决比较好，但是vbs的数组没有sort方法，所以需要自己定义，速度是跟
js数组的sort方法差不多。
<script language=vbscript>
function QuickSort(byref tArray,iStart,iEnd)
dim o1,o2,i,j
'Swaptimes=Swaptimes+1
if iEnd>iStart then
i=iStart-1
j=iEnd
o1=tArray(iEnd)
do while true
dim t
t=0
i=i+1
do while strcomp(tArray(i),o1,1) < 0
i=i+1
loop
do while j>0
j=j-1
if strcomp(tArray(j),o1,1) <= 0 then exit do
loop
if i > j then exit do
Swap tArray,i,j
loop
if i <> iEnd then Swap tArray,i,iEnd
QuickSort tArray,iStart,i-1
QuickSort tArray,i+1,iEnd
end if
end function

sub Swap(byref tArray,iFrom,iTo)
dim tmp
'如果文本相同，那么不交换位置
SwapTimes=Swaptimes+1
tmp=tArray(iFrom)
tArray(iFrom)=tArray(iTo)
tArray(iTo)=tmp
end sub
ts=Array("来吧","宝贝","哈哈","蜜糖")
QuickSort ts,0,ubound(ts)
msgbox join(ts,",")
</script>