會公佈答案
但在公佈答案前
想看看那些高手可以看出問題點
能看出來
真的很不簡單
第一次看到這個程式
發覺寫這程式的人真是利害
樂透程式碼可以寫到這麼短
後來仔細研究才發現這程式碼絕對不能拿來跑樂透
這是個vb6的程式
程式如下
Option Base 1
'樂透，39號取出6個號碼
Private Sub Form_Load()
Dim ball(39) As Integer
Dim i, b1, num As Integer
Randomize
'把球編號 1至39號
For i = 1 To 39
ball(i) = i
Next
num = 39
For i = 0 To 5
b1 = Int(Rnd() * num) + 1 '亂數選號
Text1(i).Text = ball(b1) '選中的號碼，放入Text1文字方塊中
ball(b1) = ball(num)
num = num - 1
Next i
End Sub