算法问题：来着有份！！！

[fjw2002]

随意字符串：4，2，2.1,2.1.1,6,6.7.1........，如何排序！！！！

[xiaoxinghappy]

对排序有什么要求，没要求就一个一个字符的排

[fjw2002]

没有要求，从小到大吧。能具体说说吗？

[lxcc]

大小排序：
dim sArray() as string
dim iArray() as string
dim sTemp as string

sTemp="4，2，2.1,2.1.1,6,6.7.1........，"
sArray=Split(sTemp,",")

dim i as integer
redim iArray(ubound(sArray))
for i=0 to ubound(sArray)
iArray(i)=sArray(i)
next

' 调用排序算法对iArray数组排序

[minajo21]

楼上的方法好象不灵嘛。

[fjw2002]

sArray(i)是字符呀。

[lxcc]

sorry
'这一句改一下
for i=0 to ubound(sArray)
iArray(i)=cdbl(sArray(i))
'iArray(i)=sArray(i)
next

[ccbl]

up

[gq00001]

redim preserve才行，不然数据全丢了