图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

i = 1: j = 7: s = ""

key = 34

Do While i <= j

   m = (i + j) \ 2

   If key = a(m) Then

      s = s + "2": Exit Do    'Exit Do 表示退出循环

   ElseIf key < a(m) Then

      j = m - 1: s = s + "1"

Else

      i = m + 1: s = s + "3"

End If

Loop

Text1.Text = s

数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（  ）

  a = "360"

  b = Val(a)

  c = Len(a)

  If b > c Then

    Label1.Caption = "取数值"

  Else

    Label1.Caption = "取字符"

  End If

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。

    Private Sub Command1  Click()

    Dim a(1 To 10)As Integer

    Dim i As Integer

    For i=1 To 10

    a(i)=i * i

    Next i

    List1．Add Item Str(a(i))

    End Sub

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

实现上述功能的VB程序如下：

Private Sub Command1_Click()

  List1.Clear

  Dim five(1 To 5) As Integer

  Dim i As Integer, j As Integer, k As Integer

  Dim p As Integer, find_pair As Boolean

  '随机抽取5张牌，将牌的点数存储在数组five中，并在List1中显示。代码略

  i = 5: p = 1: find_pair = False

  Do While i>= 2

    j=p

    Do While j <= i - 1

      If five(j) > five(j + 1) Then

        t = five(j): five(j) = five(j + 1): five(j + 1) = t

      ElseIf five(j) = five(j + 1) And Not find_pair Then

        t = five(1): five(1) = five(j): five(j) = t

        t = five(2): five(2) = five(j + 1): five(j + 1) = t

        find_pair = True

        i = i + 1

        p = _____________

        Exit Do

      End If

      j = j + 1

    Loop 

    i = i - 1

  Loop

  k = 0

  For i = 3 To 4

    If  Then k = k + 1

  Next i

  If five(1) = five(2) And k = 2 Then

    Label1.Caption = "运气不错:)"

  Else

    Label1.Caption = "运气一般:|"

  End If

End Sub

请回答下列问题：