作者lytn (sapphira)
看板Visual_Basic
标题Re: [VB6 ] 请问一个问题??麻烦各位大大了
时间Tue Jan 6 02:13:32 2009
※ 引述《hebe52h (Aki)》之铭言：
: ※ 引述《hebe52h (Aki)》之铭言：
: : 要做个大小的排序显示1~7
: : 有7个数如:49 41 19 59 40 23 49
: : 它会显示: 5 4 1 7 3 2 5
: : 正确的显示:5 4 1 7 3 2 6
: : 如何让第二个"49"显示成为六
: : 意思就是要让相同的数字,也可以比出大小
: : 较慢出现的数字较大
我只会笨方法, 保留你原本的K()
另外复制一份KT()=K() 然後对 KT排序, KT=(19,23,40,41,49,49,59),然後
for i =0 to KT.length-1
for j=0 to K.length-1
if KT(i)==K(j) and KT(i)!=KT(i-1) '这个条件要对第一个元素作特例处理
key=key+1
S(j)=KEY '把KEY 指派到你想存的地方
end if
next
next
最後预期S长得像是 S=( 5, 4,1,7,3,2,6)
可能会有非VB语法出现,但是我想讨论流程应该就可以了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.130.186
※ 编辑: lytn 来自: 140.113.130.186 (01/06 02:17)