最近在使用一個信息統計系統，裡面要對每個人的身份證号碼驗證，因為有90多人，一個一個手工輸入難免會有錯誤，如圖這種情況。
于是用VB6寫了個身份證号碼驗證程序，前面發過一次代碼 ，經過頭條幾位高手指點，重新修改了一下代碼，用array給數組賦值，并放在form_load()裡面。直接賦值效率最高，array最簡單，但是多了一個可變數組變量。
Dim B
Private Sub Command1_Click()
Dim k&, j&, i(17) As Long
For j = 1 To 17
i(j - 1) = Val(Mid(Text1.Text, j, 1)) * (B(j - 1)) '第1位到第17位分别乘以B(0)...B(16),所有積求和
k = k i(j - 1)
Next
Label1.Caption = "校驗位是：" & Str(B((k Mod 11) 17)) '餘數1-10,對應B(17)-B(27)
End Sub
Private Sub Form_Load()
B = Array(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)
End Sub
[呲牙]
,更多精彩资讯请关注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 
