Dim a(1 To 10) As Integer

  Dim i As Integer, j As Integer, m As Integer

  Dim key As Integer

  i = 1: j = 10: key = Val(Text1.Text)

  Do While i <= j

    m = (i + j) \ 2

    If key < a(m) Then

      j = m - 1

    ElseIf key > a(m) Then

      i = m + 1

    Else

      Do While m > 1

         If a(m - 1) = key Then

          m = m - 1

         Else

          Exit Do

         End If

      Loop

      Exit Do

    End If

  Loop

数组中a(1)到a(10)依次为“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中输入值3，经上述程序段执行后变量m的值为（  ）

a＝2

b＝1

Do While b<＝4

 a＝a＋b

 b＝a＋b

Loop

Text1.Text＝Str(a＋b)

则运行该程序段后，文本框Text1上显示（  ）

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

Dim a(1 To 20) As Integer ’用于保存n(n<=20)个按从小到大顺序排列的整数

‘Form_Load事件过程产生n个整数，按升序保存在数组a中，并在Text1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim i , j , m , k As Integer

Dim x As Integer，f As Boolean  ’变量f用于标记是否在数组中找到x

x = Val(Text2.Text)

i=1 ：j=n  : f=False

Do While  i<=j And  f=False

 m = Fix((i＋j)/2)

 If a(m)=x Then f=True

 If  Then i=m＋1 Else j=m－1    ‘(1)

Loop

If f = True Then

 For k = m To n-1

         ‘(2)

 Next k

n = n - 1

 Text3.Text = ""

 For k = 1 To n

Text3.Text = Text3.Text＋Str(a(k))＋","

 Next k

Else

 Text3.Text = "该数没有找到!"

End If

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴{#blank#}1{#/blank#}；⑵{#blank#}2{#/blank#}。

s = "2019Nian12yue3Ri"

For i = Len(s)-1 To 1 step -1

    If Mid(s, i, 1) <= "9" And Mid(s, i + 1, 1) >= "A" Then

        sum= sum+ Val(Mid(s, i, 1))

    End If

Next i

运行程序后，变量sum 的值是（  ）

 s = "Hello World"

 s1 = ""

 n = Len(s)

 For i = 1 To n \ 2

   If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

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

   Else

     s1 = Mid(s, n - i + 1, 1) + s1

   End If

 Next i

 Text1.Text = s1

执行该程序段后，在文本框Text1中显示的是（  ）

key=Va 1(Text 1．Text)

i=1

j=9

Text 2.Text=""

Do While i<=j

   If key=a(m) Then Exit Do

   If key<a(m) Then i=m+1 Else j=m-1

   Text 2.Text=Text 2.Text+“”+Str(a(m) )

Loop

数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，文本框Text 1中输入的值是58，执行该程序段，文本框Text 2中显示的是61，50，55，则方框处的代码应为（  ）