Private Sub Command1Click()

Dim a(1 To 4) As Integer

Dim i As Integer

   a(1) = 1

 For i = 2 To 4

   a(i) = 2 * a(i - 1) + 1

 Next i

List1.AddItem Str(a(i))

End Sub

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

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程序。请回答下列问题：

实现该功能的程序代码如下：

Private Sub Command1_Click()

    Dim i As Integer，ch As String，s As String

    Dim my(0 To 127)As Boolean  ‘0～127表示128个ASCII字符的ASCII值

    s=Text1．Text

    For i=0 To 127

        my(i)=False

    Next i

    If    ①   then

        Text2．Text=”密钥长度不足26个字符!”

    Else

        For i=1 To 26

           ch=Mid(s，i，1)

           t=    ②    

           If my(t)=False Then

              my(t)=True

           Else

             Text2．Text=“密钥中有重复字符!”

             Exit Sub

           EndIf

        Next i

        Text2．Text=“密钥正确!”

    EndIf

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

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

  Dim i As Integer, n As Integer

  Dim x As Single, y As Single, x1 As Single, y1 As Single

  Dim d As Single, min As Single

  Dim s As String, t As String

  s = Text1.Text:   x = 25: y = 35                       'A点坐标

  n = 0: min = -1: t = ""

  For i = 1 To {#blank#}1{#/blank#}

    If Mid(s, i, 1) = "," Then

      n = n + 1

      If {#blank#}2{#/blank#} Then

         x1 = Val(t)

      Else

         y1 = Val(t)

         d = {#blank#}3{#/blank#}

         If min = -1 Then min = d

         If d < min Then min = d

      End If

      t = ""

    Else

      t = t + Mid(s, i, 1)

    End If

  Next i

  Label3.Caption = Str(min)

End Sub

玩家通过4种指令控制小人运动：

· 左 X：小人向左移动X个格子

· 右 X：小人向右移动X个格子

· 下 X：小人向下移动X个格子

· 挖矿：收集小人所在格子的金矿

小人收集金矿需要遵循一定的规则：

①小人必须将当前行的金矿全部收集，才能去往下一行，即金矿需从上到下收集

②对于同一行的金矿，小人必须按照从左往右的顺序开始收集

现编写程序，以8*8的矩阵为例，在文本框Text1中输入金矿数量，点击按钮“开始”后，随机产生对应数量的金矿并借助图形控件输出（保证不会在同一个格子出现两个金矿），并且在列表框List1中按顺序输出指令，使小人按照规则得到所有金矿。如图a所示。请回答下列问题。

图a