算法问题:来着有份!!!

fjw2002 2003-01-13 03:48:39
随意字符串:4,2,2.1,2.1.1,6,6.7.1........,如何排序!!!!
...全文
10 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
gq00001 2003-01-13
redim preserve才行,不然数据全丢了
回复
ccbl 2003-01-13
up
回复
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
没有要求,从小到大吧。能具体说说吗?
回复
xiaoxinghappy 2003-01-13
对排序有什么要求,没要求就一个一个字符的排
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告