[VB6 ] 關於取亂數不重複

[kclsixbig30 (...)]

我是一個剛接觸的ＶＢ的新手，最近學到取亂數

下面是我寫的程式碼
Private Sub Command1_Click()
For i = 1 To 7
         Text1 = Int(Rnd * 46) + 1
         Text2 = Int(Rnd * 46) + 1
         Text3 = Int(Rnd * 46) + 1
         Text4 = Int(Rnd * 46) + 1
         Text5 = Int(Rnd * 46) + 1
         Text6 = Int(Rnd * 46) + 1
         Text7 = Int(Rnd * 46) + 1
Next i
End Sub
如何取到不重複的阿


順便在問一下，我有２個表單，現在想把form2的資料，在form1中使用command顯示出來

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.132.59.49
推 harehsi:我到的爛方法是把取到的數先和已取到的數比較
→ harehsi:要是沒有重覆再存到陣列裡
→ harehsi:因為你只要７個,應該不會太浪費吧?
推 albb0920:拿一個陣列存候選，抽索引值
推 jokkson:用HashTable