冰楓論壇»論壇 › 程式設計/技術交流 › VisualBasic › 身分證字號產生器

12 3 4 / 4 頁下一頁

查看: 21064|回覆: 53

[分享] 身分證字號產生器

[複製鏈接]

god82718

103 主題	0 好友	413 積分

高級贊助會員

Rank: 20

UID: 32369
帖子: 249
主題: 103
精華: 0
積分: 413
楓幣: 2278
威望: 34
存款: 0
贊助金額: 1500
推廣: 0
ＧＰ: 4
閱讀權限: 150
性別: 保密
在線時間: 78 小時
註冊時間: 2013-7-3
最後登入: 2023-9-9

發消息

電梯直達

1樓

發表於 2013-7-5 13:32:38 |只看該作者 |正序瀏覽

VB真的是一個很好玩的東西已經停不下來拉XD

遊客【如果您要看隱藏內容請選擇繼續閱讀】

繼續閱讀文章 - 解除隱藏文章限制

收藏0 推0 噓0

把本文推薦給朋友或其他網站上,每次被點擊增加您在本站積分: 1鑰匙

回覆

使用道具舉報

複製連結並發給好友，以賺取推廣點數

簡單兩步驟，註冊、分享網址，即可獲得獎勵！一起推廣文章換商品、賺$$

airlife917339

40 主題	0 好友	70 積分

新手上路

Rank: 1

UID: 411075
帖子: 236
主題: 40
精華: 0
積分: 70
楓幣: 386
威望: 69
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 126
閱讀權限: 10
性別: 保密
在線時間: 22 小時
註冊時間: 2023-11-11
最後登入: 2025-3-19

發消息

54樓

發表於 2023-11-11 04:41:42 |只看該作者

這是當年註冊會員必備的程式嗎？來試看看

點評回覆

使用道具舉報

asd38726398

1458 主題	33 好友	1350 積分

金牌會員

Rank: 6 Rank: 6

UID: 65578
帖子: 1966
主題: 1458
精華: 0
積分: 1350
楓幣: 495
威望: 1332
存款: 0
贊助金額: 0
推廣: 2
ＧＰ: -27
閱讀權限: 70
性別: 保密
在線時間: 362 小時
註冊時間: 2014-6-13
最後登入: 2023-6-20

發消息

53樓

發表於 2016-7-13 21:18:03 |只看該作者

這程式還蠻常見的

[發帖際遇]: asd38726398 為抵制「鼎腥」黑心食品，響應環臺「秒買秒退『林諷營』」，花費車資 2 楓幣

幸運榜 / 衰神榜

點評回覆

使用道具舉報

刀劍神域

19 主題	2 好友	16 積分

新手上路

Rank: 1

UID: 123103
帖子: 149
主題: 19
精華: 0
積分: 16
楓幣: -255
威望: 14
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 22
閱讀權限: 10
性別: 保密
在線時間: 46 小時
註冊時間: 2015-12-6
最後登入: 2025-5-24

發消息

52樓

發表於 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