Dim a(1 To 100) As Single '依次存储100个学生成绩

Const n = 100

Private Sub Form_Load()

'本过程从数据库中读取1到100号学生成绩，并存储在数组a中

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, max As single

max =    ①      

For i = 2 To n

   if              ②                       

Next i

Text1.Text = "成绩最高分是：" + Str(max)

End Sub

   If  a>b  Then

     max=a

   Else

     max=b

      .  

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中显示的内容是（   ）