我國居民身份證號是由 18 位字符組成，其中前 17 位是數字，第 18 位是校驗位（校驗位字符在“0”～“9”或“X”中選取）。由前 17 位數字經過一定的規則計算得到校驗值，在查驗居民身份證號有效性時，如果校驗位中的字符與計算所得校驗值相等則身份證號有效，否則無效。
校驗值計算規則如下：
第一步：將身份證號前 17位數字分別乘以不同的系數后相加，對應系數如下表所示。

位數	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
系數	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

第二步：將第一步的計算結果除以 11，得到余數。第三步：根據第二步的計算結果從下表獲取對應的校驗值。

余數	0	1	2	3	4	5	6	7	8	9	10
校驗值	1	0	X	9	8	7	6	5	4	3	2

例如：某身份證號為 34052419800101001X．要計算此身份證的校驗值步驟如下：第一步：計算 3*7+4*9+0*10+5*5+……+1*2=189
第二步：189 除以 11 得到余數為 2
第三步：由余數 2 獲取校驗值 X。
根據以上規則小王編寫了一個驗證身份證號是否有效的 VB 程序，功能如下：在文本框 Text1 中輸入身份證號，單擊“驗證”按鈕 Command1 后，在列表框 List1 中顯示驗證結果。程序運行界面如圖 a 所示。
（1）設計程序界面時，應使用圖 b 中的

③

③

（填寫相應編號）添加列表框對象 List1。

（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“'存儲余數對應的檢驗值
①

idcode=Text1．Text

idcode=Text1．Text

sum=0
For i=1To 17Step 1
a=Val（Mid（idCode,i,1））
b=②

Val（Mid（xs,i*2-1，2））

Val（Mid（xs,i*2-1，2））

sum=sum+a*b
Next i
sum Mod 11
pos=
checkCode=Mid（checkCodeStr,pos,1）
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
If checkCode=Mid（idCode,18，1）Then result=“有效“
Else
result=“無效“
End if
List1．AddItem （idCode &““& result）
End Sub
（3）程序中加框處代碼有誤，應修改為

sum Mod 11+1

sum Mod 11+1

。