howard572 發表於 2015-3-18 22:21:21

現在有學到程式語言 對ＶＢ就會感到很熟悉

x94cj86 發表於 2015-4-25 19:23:17

真的很想知道呢

S8551600 發表於 2015-4-28 14:30:35

申請遊戲的  神vb

zz4837242 發表於 2015-5-2 12:19:24

非常感謝您的分享喔!

litung 發表於 2015-5-6 14:04:36

以前也有寫過
不過是用 excel 寫的
一次產生十萬組，用來申請楓之谷帳號用的

這也太慘了吧，聽音樂還會被扣coco

21278051 發表於 2016-7-9 04:11:06

刀劍神域 發表於 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

asd38726398 發表於 2016-7-13 21:18:03

這程式還蠻常見的

airlife917339 發表於 2023-11-11 04:41:42

這是當年註冊會員必備的程式嗎？來試看看
頁: 1 2 3 [4]
查看完整版本: 身分證字號產生器