樂透遊戲

這是本人設計的程式~有興趣可以下載看看~1~49碼的...本人最高中過4碼


此程式下載點
解壓縮密碼：痞子版權著作請勿非正常管道取得

Dim a(6), b(6)

Private Sub Command1_Click()
t = 1
For i = 1 To 6
Text1(i) = " "
Text2(i) = " "
Text1(i).BackColor = RGB(255, 255, 255)
Text2(i).BackColor = RGB(255, 255, 255)
Next i
For i = 1 To 6
333:
a(i) = Val(InputBox("請輸入1~49數字:"))
If t > 1 Then
For j = 1 To t
If a(i) = Text1(j) Then
MsgBox " 警告!" + Chr(13) +"你輸入數字有重複，請重新輸入!", 16,"警告"
Text1(i) = " "
GoTo 333:
End If
Next j
End If
If a(i) < 1 Or a(i) > 49 Then
MsgBox " 警告!" + Chr(13) + "你輸入數字 ..

訪客只能看到部份內容，免費 加入會員

x0

angel2005大大您好
小弟可以請教您Randomize亂數出現重複的數字如何解決？
可以教小弟寫法嗎？先謝謝你囉~~~

x0

angel2005大大不用了我找到相關資料了.....

x0

值得下載下來研究。
謝謝大大您~~~無私的分享~~~
辛苦了！！！

x0