Re: [請益] 亂數間依大小排列
※ 引述《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
推
218.166.216.139 04/18, , 1F
218.166.216.139 04/18, 1F
→
218.166.216.139 04/18, , 2F
218.166.216.139 04/18, 2F
→
218.166.216.139 04/18, , 3F
218.166.216.139 04/18, 3F
→
218.166.216.139 04/18, , 4F
218.166.216.139 04/18, 4F
推
210.58.156.43 04/18, , 5F
210.58.156.43 04/18, 5F
→
218.165.131.197 04/18, , 6F
218.165.131.197 04/18, 6F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
