理光大图复印机多少钱:身份证采集和验证VB代码

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 = intTemp + Mid(strTemp, i + 1, 1) * intQuan(i)
Next
intTemp = intTemp Mod 11
getCheckCode = strTemp & strJiaoYan(intTemp)
If Len(sfID) = 18 And strJiaoYan(intTemp) <> Right(sfID, 1) Then getCheckCode = "错误"
End Function

你说的不太明白。
如果分前期和后期是这样的。
前期采集，用form1采集。
后期验证，用form2验证。
如果验证有这个身份证号，把前期采集的数据输出就行了。
当然还要看你的说法倒底是什么才能给个例子。