Re: [VB6 ] 請問一個問題??麻煩各位大大了
※ 引述《lytn (sapphira)》之銘言：
: ※ 引述《hebe52h (Aki)》之銘言：
: 我只會笨方法, 保留你原本的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.121.115.12
→
01/06 23:41, , 1F
01/06 23:41, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 4 之 4 篇)：