急！解程式語言題目。

Question

樂透彩開獎
按鈕”開獎”鈕，就搖出並顯示七個號碼，每個號碼都是1到42的一個整數，而且不能重複出現。
按鈕”結束”鈕，就停止程式執行。

Answer 1

你的螢幕上要有text1(1) ~ text1(7) 文字框 及 Comand1 按鈕
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a(42) As Integer
Randomize
For i = 1 To 42
a(i) = 0
Next i
For i = 1 To 7
Do
j = (Int(Rnd() * 49) + 1)
Loop While a(j) = 1
a(j) = 1
Text1(i).Text = j
Next i
End Sub
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

2007-01-01 06:36:38 補充：
忘了改一個地方
j = (Int(Rnd() * 49) 1)
49 要改成 42