如何利用Visual Basic开发身份证号码批量验证工具软件.docVIP

如何利用Visual Basic开发身份证号码批量验证工具软件 如何利用Visual Basic开发身份证号码批量验证工具软件 　　 　　作者/刘小龙 　　 　　通过对身份证号码实际应用中存在的问题进行详细分析，我们发现每学年的学籍建档、国家助学金申报等方面都离不开身份证号码。同时，人工核对信息工作量大，也易出错，势必对工作造成一定的影响。为此，我们运用大学学习的一些VB知识，根据身份证号码编码规则编写了《身份证号码批量验证工具》软件，使身份证号码核对工作变得简单、轻松。 　　 　　一、软件的设计步骤 　　 　　二、软件详细设计 　　 　　1. 解决方案与软件特色 　　 　　本程序使用VB在Windows XP环境开发，解决了身份证号码验证过程中存在的易出错、工作量大的问题，支持Excel文件批量验证及信息追加，绿色免安装、小巧、实用性强。 　　 　　2. 具体设计 　　 　　下面就根据软件的操作流程图进行介绍软件的功能和实现原理： 　　 　　（1）操作流程图。 　　 　　参数设置说明：身份证号码、性别、出生年月所在列均以阿拉伯数字表示，性别、出生年月信息的追加属于项。 　　 　　（2）身份证号码校验值计算函数代码。 　　 　　Public Function sfzjym（num As String） As String 　　 　　Dim n1，n2，n3，n4，n5，n6，n7，n8，n9，n10，n11，n12，n13，n14，n15，n16，n17，y，s As Integer 　　 　　n1=Val（Mid$（num，1，1））*7 　　 　　n2=Val（Mid$（num，2，1））*9 　　 　　n3=Val（Mid$（num，3，1））*10 　　 　　n4=Val（Mid$（num，4，1））*5 　　 　　n5=Val（Mid$（num，5，1））*8 　　 　　n6=Val（Mid$（num，6，1））*4 　　 　　n7=Val（Mid$（num，7，1））*2 　　 　　n8=Val（Mid$（num，8，1））*1 　　 　　n9=Val（Mid$（num，9，1））*6 　　 　　n10=Val（Mid$（num，10，1））*3 　　 　　n11=Val（Mid$（num，11，1））*7 　　 　　n12=Val（Mid$（num，12，1））*9 　　 　　n13=Val（Mid$（num，13，1））*10 　　 　　n14=Val（Mid$（num，14，1））*5 　　 　　n15=Val（Mid$（num，15，1））*8 　　 　　n16=Val（Mid$（num，16，1））*4 　　 　　n17=Val（Mid$（num，17，1））*2 　　 　　y=n1+n2+n3+n4+n5+n6+n7+n8+n9+n10+n11+n12+n13+n14+n15+n16+n17 　　 　　s=y Mod 11 　　 　　Select Cases 　　 　　Case 0 　　 　　sfzjym=“1” 　　 　　Case 1 　　 　　sfzjym=“0” 　　 　　Case 2 　　 　　sfzjym=“X” 　　 　　Case 3 　　 　　sfzjym=“9” 　　 　　Case 4 　　 　　sfzjym=“8” 　　 　　Case 5 　　 　　sfzjym=“7” 　　 　　Case 6 　　 　　sfzjym=“6” 　　 　　Case 7 　　 　　sfzjym=“5” 　　 　　Case 8 　　 　　sfzjym=“4” 　　 　　Case 9 　　 　　sfzjym=“3” 　　 　　Case 10 　　 　　sfzjym=“2” 　　 　　End Select 　　 　　End Function 　　 　　函数参数为18位身份证号码，返回值为身份证号码的校验值，即身份证号码最后一位，整个计算过程严格按照GB11643-1999 　　 　　《公民身份号码》中的规定完成。 　　 　　（3）验证代码。 　　 　　Private Sub yz_Click（） 　　 　　On Error GoTo errh 　　 　　Dim app As 　　 　　Dim appworkbook As Workbook 　　 　　Dim appworksheet As Worksheet 　　 　　Dim hs1 As Integer，hs2 As Integer，err As Integer 　　 　　Dim adr As String，sfzbh As String 　　 　　err=0 　　 　　=1 　　 　　adr$=Mid$（ “\” ， 2， Len（ “\” ） -