mac onedrive 打不开:那里有vb大量代码

来源:百度文库 编辑:高考问答 时间:2024/03/28 19:42:03
网站也行
下载也行
最好种类多一些
不要教程 只要代码
要大量的
最好用记事本写的

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

http://vbboshi.diy.myrice.com/preblem.htm