作者hebe52h (Aki)
站内Visual_Basic
标题[VB6 ] VB数值比大小的程式??
时间Mon Dec 15 21:08:22 2008
我用乱数产生10组乱数
每组有7个0~99不等的数
例:1 82 81 27 74 68 2 44
2 43 26 17 32 81 31 65
3 77 7 82 62 82 50 57
4
5
6
7
8
9
10
等等...就不多打了
主要是想了解
每组要怎麽比出它的大小
例如:第一组 82 81 27 74 68 2 44
可以变成 7 6 2 5 4 1 3 (这是第一组的大小排序)
请问这程式要怎麽打呢??
麻烦各位了
谢谢..
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.115.12
1F：→ MOONRAKER:噗 这跟直接产生1-7的乱数不是一样吗 12/16 08:13
2F：→ hebe52h:不是产生乱数1~7..是先产生一组乱数後比较从最小到最大 12/16 13:07
3F：→ hebe52h:最小的为1..例:2最小所以为1..82最大排在第7 12/16 13:09
4F：→ MOONRAKER:看不懂 你不是要变成 7625413 那不就是直接产生1-7乱数 12/16 14:16
5F：→ hebe52h:就像是我打的产生第一组乱数:82 81 27 74 68 2 44 12/16 14:21
6F：→ hebe52h:然後比较这7个数的优先顺序,最小为1到最大7 12/16 14:23
7F：推 Y78:要排序的话 list就可以了 12/16 18:27
8F：→ MOONRAKER:排序啊 自己写insertion sort就很简单了 12/16 21:54
9F：→ MOONRAKER:VB6.0真的有list好用吗？ 12/16 21:54
10F：→ hebe52h:insertion sort是什麽??我是初学 12/16 21:56
11F：→ hebe52h:可以给我的提示或是有哪个函数可以用的?? 12/16 21:57
12F：→ hebe52h:我的排序不要照顺序唷!!要跟配合乱数大小来排如例子 12/16 21:59
13F：→ MOONRAKER:我越来越听不懂了 排序就是大到小或小到大 12/16 22:17
14F：→ MOONRAKER:是要怎样不按顺序 insertion sort以下送你个网页看 12/16 22:23
15F：→ MOONRAKER:……算了 怎麽中文的网页都写得那麽烂 我现教你别的好了 12/16 22:39
16F：→ MOONRAKER:Selection sort: 令阵列大小为 n ,(1)for i=1 to n 12/16 22:42
17F：→ MOONRAKER:(2)for j=i+1 to n (3)在[j, n]中找出最小值所在位置 m 12/16 22:42
18F：→ MOONRAKER:(4)交换阵列的 m 和 i 两格(5)以此类推 12/16 22:43
19F：→ hebe52h:谢谢你的指教.. 12/16 23:10
20F：→ hebe52h:不过我的意思是如:20 54 31 51 9这五个数 12/16 23:11
21F：→ hebe52h:最小为9所以它显示1..第二小为20显示2以此类推 12/16 23:13
22F：→ hebe52h:只是这1~5的数字不是照顺序排.. 12/16 23:14
23F：→ hebe52h:是以它跑出来的数字比过大小後分别配上它是第几位大小 12/16 23:16