|
- UID
- 123103
- 帖子
- 149
- 主題
- 19
- 精華
- 0
- 積分
- 16
- 楓幣
- -279
- 威望
- 14
- 存款
- 0
- 贊助金額
- 0
- 推廣
- 0
- ＧＰ
- 22
- 閱讀權限
- 10
- 性別
- 保密
- 在線時間
- 46 小時
- 註冊時間
- 2015-12-6
- 最後登入
- 2019-10-19
|
發表於 2016-7-10 17:45:43
|顯示全部樓層
Private Sub Command1_Click()
Randomize
id1 = Chr(Int(Rnd * 26) + 65)
id2 = Int(Rnd * 2) + 1
id3 = Int(Rnd * 10)
id4 = Int(Rnd * 10)
id5 = Int(Rnd * 10)
id6 = Int(Rnd * 10)
id7 = Int(Rnd * 10)
id8 = Int(Rnd * 10)
id9 = Int(Rnd * 10)
msg = id1
Select Case id1
Case Is = "A"
id1 = 10
Case Is = "B"
id1 = 11
Case Is = "C"
id1 = 12
Case Is = "D"
id1 = 13
Case Is = "E"
id1 = 14
Case Is = "F"
id1 = 15
Case Is = "G"
id1 = 16
Case Is = "H"
id1 = 17
Case Is = "I"
id1 = 34
Case Is = "J"
id1 = 18
Case Is = "K"
id1 = 19
Case Is = "L"
id1 = 20
Case Is = "M"
id1 = 21
Case Is = "N"
id1 = 22
Case Is = "O"
id1 = 35
Case Is = "P"
id1 = 23
Case Is = "Q"
id1 = 24
Case Is = "R"
id1 = 25
Case Is = "S"
id1 = 26
Case Is = "T"
id1 = 27
Case Is = "U"
id1 = 28
Case Is = "V"
id1 = 29
Case Is = "W"
id1 = 32
Case Is = "X"
id1 = 30
Case Is = "Y"
id1 = 31
Case Is = "Z"
id1 = 33
End Select
id10 = 10 - ((Mid(id1, 1, 1) + Mid(id1, 2, 1) * 9 + id2 * 8 + id3 * 7 + id4 * 6 + id5 * 5 + id6 * 4 + id7 * 3 + id8 * 2 + id9 * 1) Mod 10)
msg = msg & id2 & id3 & id4 & id5 & id6 & id7 & id8 & id9 & id10
Text1.Text = msg
End Sub |
|
[複製鏈接]
發表於 2016-7-9 04:11:06
