身份证采集和验证VB代码

来源：百度知道 编辑：UC知道 时间：2024/07/04 02:12:08
求问各位VB高手,如何写关于身份证采集和验证的VB代码,也就是先在FORM1中采集数据,生成身份证号,再在FORM2中输入身份证号,点"验证"输出采集了的数据,应该要用二维数组.

Private Function getCheckCode(ByVal sfID As String) As String
'身份证号码升位和校验函数
'
'输入15位号码返回18位新号码
'输入18位号码计算是否正确，如果正确返回原号码否则返回"错误"
'如果号码长度不等于15或18位返回"错误"
'
Dim strJiaoYan As Variant
Dim intQuan As Variant
strJiaoYan = Array("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2")
intQuan = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1)
Dim strTemp As String
Dim intTemp As Integer
Dim i As Integer
If Len(sfID) = 15 Then
strTemp = Mid(sfID, 1, 6) & "19" & Mid(sfID, 7)
ElseIf Len(sfID) = 18 Then
strTemp = Left(sfID, 17)
Else
getCheckCode = "错误"
Exit Function
End If
For i = 0 To Len(strTemp) - 1
intTemp = i