【文件属性】：
文件名称：验证身份证号合法性
文件大小：3KB
文件格式：FRM
更新时间：2015-05-01 14:35:06
VB 身份证号 合法性
验证身份证号是否合法？
Private Sub Command1_Click()
Dim a%(17), w(), x$, s$, sum%, i%, y%
Do '这个循环用来保证输入的字符串是17位的
s = Text1.Text
Loop While Len(s) <> 17
w = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)
x = "10X98765432" '这个是因为其中有一个字符是X，只能这样
For i = 1 To 17
a(i) = Mid(s, i, 1)
sum = sum + a(i) * w(i)
Next i
y = sum Mod 11
Label1.Caption = "您身份证最后一位是：" & Mid(x, y + 1, 1)
End Sub