作者fumizuki (小狮)
看板Visual_Basic
标题Re: [请益] 乱数间依大小排列
时间Mon Apr 18 16:39:06 2005
※ 引述《s70296 (132)》之铭言：
: 请问各位 如果有5个乱数
: 要从左到右从大到小排列
: 应该从何下手 请各位给小弟一点提示 感谢
用 google 搜寻，一堆结果...
http://www.google.com.tw/
最基本的循序：
For i = min To max
For j = i + 1 To max
If nums(i) < nums(j) Then swap nums(i),nums(j)
Next
Next
Sub swap(a,b)
Dim tmp: tmp = nums(i): nums(i) = nums(j): nums(j) = tmp
End Sub
快速排序法：
http://cpatch.org/siva/document/vbweb/quicksort.htm
--
VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.222.155.162
1F：推 seansylin:这是由小到大的bubble sort218.166.216.139 04/18
2F：→ seansylin:如果要由大到小则改成 nums(i) < nums(j)218.166.216.139 04/18
3F：→ seansylin:改成 For j = i + 1 To max -i 会比较快218.166.216.139 04/18
4F：→ seansylin:搞错了，那是另一种bubble sort所以不行这样改218.166.216.139 04/18
5F：推 fumizuki:我打的是 nums(i) < nums(j) 啊 @_@" 210.58.156.43 04/18
6F：→ s70296:感谢2位回答 问题已解决 <O>218.165.131.197 04/18