图1

Private Sub Command1_Click( )

   Dim x As Integer，y As Integer

   x = 8

   y = 10^x

   Text1.Text = Str(y)

End Sub                                                 

运行程序时，单击Command1后弹出如上图所示的出错提示，引起该错误的原因是（   ）

校验值计算规则如下：

第一步：将身份证号前17位数字分别乘以不同的系数后相加，对应系数如下表所示。

第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。

例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下：第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189

第二步：189除以11得到余数为2

第三步：由余数2获取校验值X。

根据以上规则小王编写了一个验证身份证号是否有效的VB程序，功能如下：在文本框Text1中输入身份证号，单击“验证”按钮Command1后，在列表框List1中显示验证结果。程序运行界面如图1所示。

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer, s As Integer

d(1)=1

For i=2 To 10

    d(i)=d(i-1)*i

Next i

For i=1 To 5

    s=s+d(i)

Next i

Text1.Text = Str(s)

End Sub

程序运行时，单击命令按钮Command1后，将会出现的提示信息是（  ）