asp Array sort

最新推荐文章于 2018-09-08 17:21:52 发布

bingtingabc

最新推荐文章于 2018-09-08 17:21:52 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：新类文章标签： asp

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/bingtingabc/article/details/6671759

新类专栏收录该内容

13 篇文章

订阅专栏

本文提供了一个使用简单交换算法对整数及字符串数组进行升序和降序排列的示例。展示了如何通过比较元素并交换位置来实现排序过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sort: Ascending

<%
MyArray=Array(25,14,20,45,25,4,1,31,22,7)

max=ubound(MyArray)

For i=0 to max
   For j=i+1 to max
      if MyArray(i)>MyArray(j) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
     end if
   next
next

Response.write ("The sorted values are those ones: <BR>")

For i=0 to max
Response.write (MyArray(i) & "<BR>")
next
%>

The sorted values are these ones:
1
4
7
14
20
22
25
25
31
45

Sort: Descending

<%
MyArray=Array("John","Peter","Anna","Alberto","George","Unai")

max=ubound(MyArray)

For i=0 to max
   For j=i+1 to max
      if MyArray(i)<MyArray(j) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
     end if
   next
next

Response.write ("The sorted values are these ones: <BR>")

For i=0 to max
Response.write (MyArray(i) & "<BR>")
next
%>

The sorted values are these ones:
Unai
Peter
John
George
Anna
Alberto

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。