Private Sub Command1 Click()

Dim a As Integer, b As Integer

a = 5: b = 8

b = a + b

label1.Caption = Str(b)

End Sub

引发此错误的语句可能为（   ）

图1

Private Sub Command1_Click( )

   Dim x As Integer，y As Integer

   x = 8

   y = 10^x

   Text1.Text = Str(y)

End Sub                                                 

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

图a

山顶上共有10个洞，一只兔子和一只狐狸相遇了，狐狸要吃兔子。兔子对狐狸说：“你可以吃掉我，但必须先找到我。我就藏在这10个洞的其中一个洞中（注：第1~10个洞的编号分别为：1、2、3、4、5、6、7、8、9、0）。你先到1号洞找我，若没找到，则第二次隔一个洞找我，即3号洞；第三次隔两个洞找我，即6号洞；以后以此类推，找到就可以吃掉我。”狐狸答应了，但是狐狸进进出出100次后，也没找到兔子，请问兔子躲藏在哪个洞？

根据规则，前面5次进洞的情况如下表所示。

解决此问题的VB程序界面如右图所示，单击“运行”按钮，在列表框List1中显示兔子可能躲藏的山洞编号。

模拟上述过程的VB程序代码如下。

Private Sub  Run_Click()

Dim i As Integer , k As Integer

Dim hole(0 To 9) As Boolean    'hole(0)表示第10号洞

For i = 0 To 9

   hole(i) = True

Next i

k= _____________  

For i = 1 To 100

   k = k + i

 hole(k Mod 10) = False

Next i

End Sub