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

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

第二步：將第一步的計(jì)算結(jié)果除以 11，得到余數(shù)。第三步：根據(jù)第二步的計(jì)算結(jié)果從下表獲取對應(yīng)的校驗(yàn)值。

余數(shù)	0	1	2	3	4	5	6	7	8	9	10
校驗(yàn)值	1	0	X	9	8	7	6	5	4	3	2

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

③

③

（填寫相應(yīng)編號）添加列表框?qū)ο?nbsp;List1。

（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請?jiān)跈M線處填入合適代碼。
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 位每位系數(shù)
Const checkCodeStr=“10X98765432“'存儲余數(shù)對應(yīng)的檢驗(yàn)值
①

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）程序中加框處代碼有誤，應(yīng)修改為

sum Mod 11+1

sum Mod 11+1

。