主页

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

fjw2002 2003-01-13 03:48:39

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

...全文

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

gq00001 2003-01-13

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

回复赞

ccbl 2003-01-13

回复赞

lxcc 2003-01-13

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

回复赞

fjw2002 2003-01-13

sArray(i)是字符呀。

回复赞

minajo21 2003-01-13

楼上的方法好象不灵嘛。

回复赞

lxcc 2003-01-13

大小排序：
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数组排序

回复赞

fjw2002 2003-01-13

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

回复赞