m=a(1)

For i=2  to  100

  If  a(i) > m  then  m=a(i)

Next i

该程序段执行后，变量m中存储的是(   )

    Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

Private Sub Command1_Click()

  Dim a(5) as Integer

  Dim n as Integer, i as Integer

  n = Val(Text1.Text)

  i = 0

  a(1) = 1

  a(2) = 1

  For i = 3 To n

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

  Next i

  Label1.Caption = a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（  ）