python身份证号码校验第十七位系数_我国居民身份证号是由18位字符组成，其中前17位是数字，第18位是校验位（校验位字符在“0”~“9”或“X”中选取）。由前17位数字经过一定的规则计算得到校验值...

(2)

实现上述功能的 VB 程序如下，请在划线处填入合适代码。

Private Sub

Command1_Click()

Dim i As Integer,

a As Integer, b As Integer, sum As Integer, pos As Integer

Dim idCode As

String, result As String

Const xs =

"0709100508040201060307091005080402"    '存储前17位每位系数

Const

checkCodeStr = "10X98765432"

'存储余数对应的检验值

________

sum = 0

For i = 1 To 17

Step 1

a = Val(Mid(idCode, i, 1))

b = ________

sum = sum + a * b

Next i

pos =

checkCode = Mid(checkCodeStr, pos, 1)

If checkCode = Mid(idCode, 18, 1) Then

result = "有效"

Else

result = "无效"

End if

List1.AddItem (idCode & "    " & result)

End Sub