验证身份证号是否合法?
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