实现上述功能的VB代码如下, 但划线处代码有错，请改正。

Dim a(1 To 50) As Integer

Private Sub Command1_Click()

Dim i As Integer

k = 0: i = 3

Do While i <= 100

   If  ① prime(i)   Then      ‘⑴

      k = k + 1

      a(k) = i

   End If  

   i = i + 2

Loop

For i = 2 To k

   If   ②a(i) = a(i +1)+2   Then   ‘⑵

      List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))

   End If

Next i

End Sub

Function prime(x As Integer) As Boolean

prime = False

For i = 2 To Int(Sqr(x))

   If  x Mod i = 0  Then

      prime = True

      Exit For

   End If

Next i

End Function

① {#blank#}1{#/blank#}  ②{#blank#}2{#/blank#}  

  k = 0                 '用来计数

  Max = 600             '指定范围600以内

  n = 9                                  

  Do While n <= Max

  Loop

  Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"

End Sub

方框中的代码由以下五部分组成：

① n=n+7

② k = k + 1

③ List1.AddItem Str(n)

④ End If

⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then

代码顺序正确的选项是（  ）

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

Private Sub Command1_Click()

    i＝1

    j＝7

    Do While _______

        i＝_______

        j＝________

    Loop

    Text1.Text＝Str(i)

    Text2.Text＝Str(j)

End Sub

则下列说法正确的是(   )