vb編程怎麼設置注冊碼-tft每日頭條

首页

每日頭條

生活

vb編程怎麼設置注冊碼

更新时间：2024-10-12 09:22:49

最近在使用一個信息統計系統，裡面要對每個人的身份證号碼驗證，因為有90多人，一個一個手工輸入難免會有錯誤，如圖這種情況。

vb編程怎麼設置注冊碼（VB編寫的身份證号驗證程序）1

于是用VB6寫了個身份證号碼驗證程序，代碼如下：

vb編程怎麼設置注冊碼（VB編寫的身份證号驗證程序）2

添加文本框Text1,标簽Label1，按鍵Command1

Private Sub Command1_Click()

Dim B() As String: Dim k&, j&, i(17) As Long

Const A As String = "7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1,0,X,9,8,7,6,5,4,3,2"

B() = Split(A, ",")

For j = 1 To 17

i(j - 1) = Val(Mid(Text1.Text, j, 1)) * Val(B(j - 1)) '第1位到第17位分别乘以B(0)...B(16),所有積求和

k = k i(j - 1)

Label1.Caption = "校驗位是：" & B((k Mod 11) 17) '餘數1-10,對應B(17)-B(27)

End Sub

為了更精簡些，反複修改了3次，應該不能再精簡了吧？[呲牙]

校驗碼計算方法，網上有教程。

Comments

Welcome to tft每日頭條 comments! Please keep conversations courteous and on-topic. To fosterproductive and respectful conversations, you may see comments from our Community Managers.

Show More Comments

推荐阅读

衛生用品包括哪些範圍

日化用品（洗手液、洗衣液）；婦女經期衛生用品（衛生巾、衛生護墊、衛生栓）；尿布等排洩物衛生用品（尿褲、尿布、隔尿墊）；皮膚、黏膜衛生用品（濕紙巾、衛生濕紙巾）；隐形眼鏡護理用品（隐形眼鏡護理液、隐形眼鏡保存液、隐形眼鏡清潔劑）；婦科衛生用品（女士抗/抑菌洗劑、陰道洗液）；其他的一次性衛生用品（紙巾紙、衛生棉、化妝棉/紙/巾、手/指套、口罩、紙質餐飲具、避孕套）。一次性醫療衛生用品：注射類、導管類、

2024-10-12

麥飯石是什麼材料

1、麥飯石屬火山岩類，其主要礦物質是火山岩，5000—7550萬年前，火山噴發出的熔岩埋于地下，經過...

2024-10-12

繪制直線的快捷命令是什麼?

1、輸入“L”按确定鍵便可以畫直線。2、在命令行輸入直線的快捷命令L然後敲擊回車（或者空格），這時，...

2024-10-12

八角樹苗嫁接方法

1、全年2－9月份，八角都可以嫁接，成苗率達85％以上。一般春季（2－3月份），宜采用切接法或頂芽合...

2024-10-12

15國自貿區是哪15個國家

東盟十國（印度尼西亞、馬來西亞、菲律賓、泰國、新加坡、文萊、柬埔寨、老撾、緬甸、越南）以及中國、日本、韓國、澳大利亞、新西蘭。RCEP被視為全球規模最大的自貿協定，其覆蓋22億人口，約占世界總人口的30%。RCEP整合了東盟與中國、日本、韓國、澳大利亞、新西蘭多個“10+1”自貿協定以及中、日、韓、澳、新西蘭5國之間已有的多對自貿夥伴關系，還在中日和日韓間建立了新的自貿夥伴關系。RCEP通過采用區