討論串[VB6 ] 請問一個問題??麻煩各位大大了
共 4 篇文章
首頁
上一頁
1
下一頁
尾頁
內容預覽:
我只會笨方法, 保留你原本的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
(還有102個字)
內容預覽:
i=k(0) & k(1) & k(2) & k(3) & k(4) & k(5) & k(6)一開始產生的7個亂數. for x=0 to 6-1. for y=x+0 to 6. if k(x)>k(y) then. t=k(y). k(x)=k(y). k(y)=t. end if. next
(還有213個字)
首頁
上一頁
1
下一頁
尾頁