[VB6 ] 關於取亂數不重複

看板Visual_Basic作者kclsixbig30 (...)時間16年前 (2008/06/26 17:30)推噓3(3推 0噓 2→)

留言5則, 3人參與討論串1/3 (看更多)

我是一個剛接觸的ＶＢ的新手，最近學到取亂數下面是我寫的程式碼 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

06/26 18:14, , 1^F

06/26 18:14, 1^F

→

harehsi

06/26 18:15, , 2^F

06/26 18:15, 2^F

→

harehsi

06/26 18:16, , 3^F

06/26 18:16, 3^F