用VB实现18位身份证输入错误的批量验证

用VB实现18位身份证输入错误的批量验证
在学校里，建学生档案、中考、高考报名时通常都要班主任收集和输入学生的身份证号码，因为身份证数字位数多，既容易输错，逐一验证更是费工夫，如果能够用程序进行批量验证，把输错的号码找出来，只针对错误的号码进行验证就轻松得多了。

本算法只能发现输入错误的18位身份证号码，不涉及身份证信息的解读和真伪验证。

VB程序的界面很简单，最少只要一个TEXTBOX和一个命令按钮（下图）。

TEXTBOX只要把MultiLine（多行）属性设为True和ScrollBar(滚动条)属性设为2-Vertical(垂直)即可。

这样TEXTBOX就可以容纳多个身份证号码，每个一行。

在EXCEL 表格里输好然后统一复制过来即可。

18位身份证的验证算法是这样的：
①.将前面的身份证号码17位数分别乘以不同的系数。

从第一位到第十七位的系数分别为：7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
②.将这17位数字和系数相乘的结果相加。

③.用加出来和除以11，看余数是多少？
④.余数只可能有0 1 2 3 4 5 6 7 8 9 10这11个数字。

其分别对应的最后一位身份证的号码为1 0 X 9 8 7 6 5 4 3 2。

而程序的实现过程就是先把TEXTBOX内的身份证号码按行拆成字符数组，然后逐个对每个身份证号码的前17位进行计算，得出其校验码再与第18位号码进行对照，如果相同就是对的，如果不同则说明有输入错误。

然后在每个错误的身份证号码后加上相关信息，使用者可以根据错误信息，只针对有错误的身份证号码来核对证件上的身份证号码。

按钮的代码如下：
Private Sub Command1_Click()
REM 准备工作，前17位系数和对应检验码放入数组
wi$ = "7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2"
yzm$ = "1 0 X 9 8 7 6 5 4 3 2"
Dim s1() As String
Dim s2() As String
s1 = Split(wi$, " ")
s2 = Split(yzm$, " ")
REM 获取身份证号并验证
Dim s() As String
temp$ = Text1.Text
s = Split(temp$, vbNewLine)
x = UBound(s) '检测数组的上标
For i = 0 To x
If Len(s(i)) = 18 Then
su = 0
For j = 1 To 17
c$ = Mid$(s(i), j, 1)
a = Val(c$)
su = su + a * Val(s1(j - 1))
Next j
y = su Mod 11
c$ = Mid(s(i), 18, 1)
If UCase(c$) <> s2(y) Then
s(i) = s(i) & " ←校验错误"
End If
Else
s(i) = s(i) & " ←不是18位"
End If
Next
REM 清除TEXTBOX并把字符数组信息写入TEXTBOX Text1.Text = ""
For i = 0 To x
Text1.Text = Text1.Text & s(i) & vbNewLine
Next
End Sub
验证结果如下图：。