vb樂透程式 20點

Question

用Vb做一個單純的樂透程式:輸入幾組就印出幾組樂透碼出來 號碼從100個亂數中取6個數出來且要從小到大排序.越淺顯易懂越好...小弟在此先謝謝各位大大摟~~

Answer 1

Private Sub Command1_Click()
Dim A(1 To 100) As Integer, I As Integer, J As Integer, X As Integer, S As String

S = InputBox("輸入組數")
If S = "" Then Exit Sub
If IsNumeric(S) = False Then Exit Sub
For I = 1 To Int(S) '看共有幾組
Randomize
For J = 0 To 5 '亂數選6組
10:
X = Int(100 * Rnd + 1)
If A(X) = 1 Then GoTo 10
A(X) = 1
Next
For J = 1 To 100 '印出來
If A(J) = 1 Then Print J;
A(J) = 0
Next
Print
Next
End Sub

2006-01-03 01:00:58 補充：
哈哈!gidin大,我忘了!!...XD

2006-01-03 17:55:46 補充：
不要這麼說,還要感謝gidin大的提醒Orz

2006-01-03 23:12:41 補充：
If S = 空 表示沒輸入值或按取消就離開程式
If IsNumeric(S) = False Then Exit Sub 輸入值不是數字就離開程式
Randomize 初始化亂數種子,避免每次都得到相同值
10:行號

2006-01-05 23:44:27 補充：
Activate事件:當一個物件成為現用視窗時發生
Click事件:按下一個物件，並接著放開滑鼠鍵時發生
在何時需要產生出何種動作端視程式設計者及使用者須求而訂,並非一定要局限於某種範圍;以本題為例,在Form_Activate Print跟在Command_Click Print 結果是一樣,
Command_Click 反而更方便些..XD

Answer 2

command鍵到底在哪？一直找不到！

Answer 3

Command1_Click()不是按鍵的嗎?我們好像是用Form_activate()做的捏..解釋一下...謝謝

2006-01-06 19:23:48 補充：
原來是如此...真是深奧@@"

2006-01-07 20:20:21 補充：
請問行號是什麼@@?

Answer 4

請問一下~大大你寫的
If S = "" Then Exit Sub
If IsNumeric(S) = False Then Exit Sub
Randomize
還有
10:
這些是什麼意思@@?
能為我解釋嗎?

2006-01-04 22:10:11 補充：
ㄚ...
對後....厲害佩服....
老師有教過....突然忘記呀~
謝謝W.J.S大大嚕!!!~

Answer 5

我覺得我好像有點不禮貌
呵呵 抱歉了 W.J.S大