- 最後登錄
- 2024-5-9
- 在線時間
- 0 小時
- 註冊時間
- 2015-2-19
- 閱讀權限
- 20
- 精華
- 0
- UID
- 7679325
- 帖子
- 9
- 積分
- 1 點
- 潛水值
- 5480 米
| 若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。 這是以前寫的樂透開獎49號隨機出7碼
******************************************
Private Sub Command1_Click()
Dim num(49) As Boolean
For n = 0 To 6
Randomize
FT = True
While FT
Number = Int(49 * Rnd) + 1
If Not num(Number) Then
num(Number) = True
FT = False ... |
|