有人能幫寫出這程式嗎?

Question

號碼為1~49。假設這49 個號碼在Box 1。而Box 2 一開始是空的。
先抽48（8 注）個號碼到Box 2。然後在Box 1 所留下來的這個號碼，我們把它
標示成A。
接著再從Box 2 裡抽5 個號碼，與A 配對成1 注，放到Box 1 裡面。則Box 2 剩
48 − 5 = 43個號碼，再抽42（7 注）的號碼，放到Box 1 裡面。那麼現在Box 2
只剩1 個號碼。
因為Box 2 現在有一個號碼，我們把A 放到Box 2，再從Box 1 抽4 個號碼到
Box 2，那們會形成最後1 注。加起來一共17 注。
它的特色為有4 個號碼重複3 次，有45 個號碼重複2 次。這套系統是由英國大
學教授與教職員所發展出來的，他們認為要數字越周全才能越容易贏得大獎。他
們花了四年的時間，終於贏得頭獎，平均每人均分3300 萬元（台幣）。

不好意思這程式對我來說好複雜唷=3=
能否說明一下大概程式語法的意思

Answer 1

'版本VB6.0Private Sub Command1_Click()    Dim M$(16), B(1 To 49) As Boolean, X$(5), Y%(1 To 49)    Dim A$, C$, I%, J%, N%        Randomize    A = Format(Int(Rnd * 49 + 1), "00")    B(A) = True        For I = 0 To 7        For J = 0 To 5            Do              N = Int(Rnd * 49 + 1)            Loop Until B(N) = False            B(N) = True: Y(N) = 1            X(J) = Format(N, "00")        Next        M(I) = SWP(X)    Next    Erase B: B(A) = True: X(0) = A    For J = 1 To 5        Do          N = Int(Rnd * 49 + 1)        Loop Until B(N) = False        B(N) = True: Y(N) = 2        X(J) = Format(N, "00")    Next    M(8) = SWP(X)    Do      N = Int(Rnd * 49 + 1)    Loop Until B(N) = False    B(N) = True    C = Format(N, "00")        For I = 9 To 15        For J = 0 To 5            Do              N = Int(Rnd * 49 + 1)            Loop Until B(N) = False            B(N) = True: Y(N) = Y(N) + 1            X(J) = Format(N, "00")        Next        M(I) = SWP(X)    Next    Erase B: B(A) = True: X(0) = A: B(C) = True: X(1) = C    Y(A) = 2: Y(C) = Y(C) + 1    For J = 2 To 5        Do          N = Int(Rnd * 49 + 1)        Loop Until B(N) = False        B(N) = True: Y(N) = Y(N) + 1        X(J) = Format(N, "00")    Next    M(16) = SWP(X)    Print Join(M, vbCrLf), Tab(1)    For I = 1 To 49        Print Format(I, "00"); "("; Y(I); ")  ";        If I Mod 7 = 0 Then Print    NextEnd SubFunction SWP$(X$())    Dim I%, J%, T$        For I = 0 To UBound(X) - 1        For J = I To UBound(X)            If Val(X(I)) > Val(X(J)) Then T = X(I): X(I) = X(J): X(J) = T        Next    Next    SWP = Join(X)End Function全部專案及執行檔(樂透.exe)放置以下連結(只能放7天)作業系統在2000以下且無灌VB者 樂透.exe 可能無法執行:點我下載

2006-11-10 00:45:35 補充：
我只是照你的條件下去寫,應該不會很複雜阿.

Answer 2

= ="呆的意見好纏唸....不過還是很感謝發表原來報紙有啊!

Answer 3

這個我在報紙上看過
也不小心把程式也出來...
但是我有點不想告訴你怎麼寫耶...