n = 0 : m = 0

For  i = 1 To 100

     If  Rnd > 0.5  Then

        n = n + 1

     Else

     m = m + 1

Next  i 

……

小金仔细分析该程序段后，发现其中缺少了（   ）

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

小张编写了一个2查找孪生素数对(差值为 2)的 VB 程序，功能如下：在文本框Text1中输入一个整数n（n≤1000000），单击“求素数对”按钮Command1，在列表框List1中显示2到n范围内的素数，在标签Label2中显示素数个数，在标签Label3中显示孪生素数对个数。程序运行界面如图所示。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim n As Long, i As Long, j As Long

Dim tAs Long '存储素数个数

Dim countAs Integer '存储素数对个数

Dim p As Long

Dim a(2 To 10000000)As Integer

n = Val(Text1.Text)

For i = 2 To n

    a(i) = 1

Next i

p = 2

Do While p <= Int(Sqr(n))

    If a(p) = 1 Then

        j = 2

        Do While j <= n \ p

                       '(1)

            j = j + 1

        Loop

    End If

    p = p + 1

Loop

t = 0

For i = 2 To n

    If a(i) = 1 Then t = t + 1

Next i

count = 0

For i = 2 To n - 2

    If  Then      '(2)

        count = count + 1

        List1.AddItem ads(i, 1) & ads(i + 2, 5)

    End If

Next i

Label2.Caption = "总共有" + Str(t) + "个素数"

Label3.Caption = "其中有" + Str(count) + "个孪生素数对"

End Sub

Function ads(xAs Integer, n As Integer) As String

'整数转换成长度固定的字符串，代码略

End Function

图a

图b

小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。

图1

图2

DIM A(6) AS INTEGER

FOR I= 1 TO 6

  A(I)= I

NEXT I

PRINT A(I)