vb计算年龄的代码(VB编写的身份证号验证程序)

最近在使用一个信息统计系统,里面要对每个人的身份证号码验证,因为有90多人,一个一个手工输入难免会有错误,如图这种情况。

vb计算年龄的代码(VB编写的身份证号验证程序)(1)

于是用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

[呲牙]

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页