Dim a(1 To 5) As Integer, i As Integer, c As Integer

a(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5

c=0

For i=3 To 5

If a(i-2)+a(i-1)=a(i) Then c=c+1

Next i

Text1.Text=Str(c)

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

For i=1 To 100

  If Rnd>0.5 Then

   n=n+1

  Else

  m=m+1

 Next i

分析该程序段，该代码中缺少了（  ）

a(1)=2: a(2)=6: a(3)=8: a(4)=9: a(5)=12

a(6)=15: a(7)=17: a(8)=18: a(9)=22: a(10)=30

k=Val(Text1.Text)

i=1: j=10

Do While i <=j

 m=(i+j) \ 2

 If a(m) <=k Then

    i=m+1

 Else

    j=m-1

 End If

Loop

Text2.Text=Str(a(i))+"← →"+Str(a(j))

程序运行时，文本框Text1中输入5，文本框Text2中显示的内容是（  ）