完全看不出來程式有什麼問題
不可能有重覆數字
別說
For i = 0 To 5
即使
For i = 0 To 38
也不會重複

雖然我vb很爛,但這樣子的結果應該不會錯