作者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