Re: [VB6 ] 請問一個問題??麻煩各位大大了
※ 引述《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)
討論串 (同標題文章)