Dim S(1 to 4) As String,T(1 TO 100) As String,Hege As Integer
'S()中有以文本形式儲存的值，各值長度為1，是用","隔開的
S(1)="6,9,0,1,6" '第1和第4個值是相等都是“6”
S(2)="1,1,0,1,3"'第1和2、1和4、2和4值相等，
S(3)="7,2,3"'沒有相等的值
S(4)="6,6"'相等
'在每個S(N)中查找一對相等的值，如果有就將他們的索引值寫在前面，后面寫將剩下值的索引值，裝入陣列T()中。沒有對子就不做任何處理(直接落掉，不用裝入陣列T（）中）。
'如計算以上4個S（）要求結果為：
T(1)="1,5,2,3,4" '這是S（1）的
'因為S（2）里有三個1，索引分別是1,2,4 因此 1-2是一對；1-4是一對；2-4也是一對因此會有三次輸出（每次只找一對相同值）
T(2)="1,2,3,4,5" '這是S（2）的
T(3)="1,4,2,3,5"'這也也也也也是S（2）的
T(4)="2,4,1,3,5"'這也也也也也是S（2）的
’因為S（3）沒有對子，就直接next
T(5)="1,2"'這是S（4）的
Hege=5
'計算量上W，S（）的長度也不是固定的，有些有100多個值，因此尋求最快的計算思路。謝謝
uj5u.com熱心網友回復：
好好想想你的說明吧，混亂的不行.....
uj5u.com熱心網友回復：
自己邏輯都沒搞清楚，詞不達意。。。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/108037.html
標籤：VB基礎類
上一篇：求助！實時錯誤 -2147417848（80010108）物件‘DO’的方法 'IKHCard'失敗
下一篇：新人求教