28,391
社区成员
发帖
与我相关
我的任务
分享4位数的数字排序
一个全由数字组成的四位数，如“0521”、“4222”......
通过什么最简单的方法来进行数字排序，如“0521”排列成“0125”，“4222”排列成“2224”，请教，过来脑子吃紧，想不出来了.....
通过什么最简单的方法来进行数字排序，如“0521”排列成“0125”，“4222”排列成“2224”，请教，过来脑子吃紧，想不出来了.....
...全文
请发表友善的回复…
发表回复
fangq 2005-08-17
- 打赏
- 举报
<script language="vbscript">
dim a(5)
str=2365
for i=1 to len(str)
a(i)=mid(str,i,1)
next
for i=1 to 4
for j=i to 4
if a(i)>a(j) then
dd=a(j)
a(j)=a(i)
a(i)=dd
end if
next
next
str=a(1)+a(2)+a(3)+a(4)
msgbox str
</script>
dim a(5)
str=2365
for i=1 to len(str)
a(i)=mid(str,i,1)
next
for i=1 to 4
for j=i to 4
if a(i)>a(j) then
dd=a(j)
a(j)=a(i)
a(i)=dd
end if
next
next
str=a(1)+a(2)+a(3)+a(4)
msgbox str
</script>
99028 2005-08-17
- 打赏
- 举报
4位是个例子了，要是10位呢，怎办才好
eduxh 2005-08-17
- 打赏
- 举报
只有四位也用不着太在意效率了，想怎么排就怎么排咯
ljg2597758 2005-08-17
- 打赏
- 举报
冒泡！
