24h購物| | PChome| 登入
2007-04-18 09:53:44| 人氣56| 回應0 | 上一篇 | 下一篇

樂透有+特別號 程式

推薦 0 收藏 0 轉貼0 訂閱站台

Private Sub Command1_Click()
Dim lotto(49) As Integer ’步驟一:宣告陣列

Dim i, j, no1, no2, temp As Integer ’變數宣告: i為迴圈控制變數

’no1,no2用來儲存步驟三中,隨機取出之兩元素的註標值
’temp用來作為步驟三中,兩元素質交換


Randomize
For i = 1 To 49
lotto(i) = i
Next i
For i = 1 To 1000
no1 = Int(Rnd * 49) + 1
no2 = Int(Rnd * 49) + 1
temp = lotto(no1)
lotto(no1) = lotto(no2)
lotto(no2) = temp
Next i

Text1.Text = lotto(1)
Text2.Text = lotto(2)
Text3.Text = lotto(3)
Text4.Text = lotto(4)
Text5.Text = lotto(5)
Text6.Text = lotto(6)
Text7.Text = lotto(7)



End Sub

Private Sub Command2_Click()
Text1.Text = ””
Text2.Text = ””
Text3.Text = ””
Text4.Text = ””
Text5.Text = ””
Text6.Text = ””
Text7.Text = ””

End Sub

Private Sub Command3_Click()
End
End Sub

我要檢舉
#程式
台長： ㄉ一ㄜˊ先生
人氣(56) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 數位資訊(科技、網路、通訊、家電) | 個人分類: 〃耍白痴用ㄉ |
此分類下一篇:蠻瞎的即時狀態(歡迎取用)
此分類上一篇:世紀 程式

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文