最近在使用一個信息統計系統，裡面要對每個人的身份證号碼驗證，因為有90多人，一個一個手工輸入難免會有錯誤，如圖這種情況。
于是用VB6寫了個身份證号碼驗證程序，代碼如下：
添加文本框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)
Next
Label1.Caption = "校驗位是：" & B((k Mod 11) 17) '餘數1-10,對應B(17)-B(27)
End Sub
為了更精簡些，反複修改了3次，應該不能再精簡了吧？[呲牙]
校驗碼計算方法，網上有教程。
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
