1. (2019·浙江模拟) 【加试题】 有如下VB程序段：

Dim a(1 To 10) As Integer

a(1) = 1: a(2) = 2

For i = 3 To 10

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

Next i

i = 1: j = 10: f = False

Do While i <= j And f = False

    num = num + 1

    m = (i + j) \ 2

    If num = a(m) Then

        f = True

    ElseIf num < a(m) Then

        j = m - 1

    Else

        i = m + 1

    End If

    Text1.Text = Text1.Text + Str(m)

Loop

该程序段执行结束后，文本框Text1中显示的内容是（  ）