Private Sub Form_Load()

       x=1

  For i=1 To 5

  x=x*i

   Next i

   End Sub

Private Sub Command1_Click()

    Dim n As Integer, i As Integer, s As String

    n = Val(Text1.Text)

    s = ""

    For i = 1 To 2 * n - 1

        If i <= n Then  ① Else  ②  

Next i

    Label1.Caption = s

End Sub

为实现以上功能，划线①②处应分别填写（   ）

实现上述功能的VB程序如下,请回答下列问题:

Private Sub Command1_Click()

  Dim a(0 To 5) As Integer

  Dim i As Integer               ’①

  a(0) = 1                      '②

  For i = 1 To 5

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

  Next i

  Text1.Text = Str(a(6))         '④

End Sub

实现上述功能的 VB 程序如下，请回答下列问题：

key = Val (Text1. Text)

i =0：j=9：n=0

Do While i<= j

    m=(i+j)\2

    n=n+1

    If key <= a(m) Then

        j=m-1

    Else

        i=m+1

    End If

Loop

s=i

Do While i<9 And a(i)= a (i+1)

    i=i+1

Loop

Label2.Caption = Str(n) +“：”+ Str(i + 1-s)

数组元素a(0~9)的值依次为“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中输入“8”，点击“查找”按钮后，Labe12 中输出的结果是(    )