Private Sub Command1Click()

  Dim a(-1 To 8) As Integer

  Dim i As Integer

  For i = -1 To 8

    a(i) = i * i

  Next i

  List1.AddItem Str (a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为

某旅客退房了，需要把这房子也登记上去，有四种情况需要处理：

1）上靠，例如退的房间号为3，则原来登记的3条记录变成（1 ， 3）， （6，3）， （10，1）．

2）下靠，例如退的房间号为5，则原来登记的3条记录变成（1，2）， （5 ， 4）， （10，1）．

3）上下不靠，例如退的房间号为4，则登记的记录数变成4条（1，2）  ，（4 ， 1）， （6，3），（10，1）．

4）上下靠，例如退的房间号为9，则登记的记录数变成2条（1，2），（6，5）．

小王依据上述描述设计了如下VB程序。请回答下列问题：

山顶上共有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

Private Sub Command1_Click()

Label1.Caption = sj  ‘计算机随机产生一个值

Label2.Caption = Command1.Caption

If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负

    {#blank#}1{#/blank#} = "乙方负"

Else

    Label3.Caption = "乙方胜"

End If

End Sub

Function sj() As String '随机生成石头、剪刀、布

   i = {#blank#}2{#/blank#}  ‘随机生成1~3任一整数

   If i = 1 Then sj = "石头"

   If i = 2 Then sj = "剪刀"

   If i = 3 Then sj = "布"

End Function

Function s(n As Integer) As Integer

 If n=1 Then

   s=1

 Else

   s=s(n-1)+n

 End If

End Function

Private Sub Form_Click()

 Dim x As Integer

 x=s(4)

 Print x

End Sub

程序运行时,单击窗体后,变量x的值为（  ）