作者hebe52h (Aki)
站内Visual_Basic
标题Re: [VB6 ] 请问一个问题??麻烦各位大大了
时间Tue Jan 6 23:31:19 2009
※ 引述《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
1F：→ OracleRoot:一行文请推文 01/06 23:41