空白矩形框中应该填入的是（   ）

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

For i = 5 To 4 Step -1

        k = i

        For j = 6 - i To 1 Step -1

           If a(j) < a(k) Then k = j

        Next j

        If i <> k Then

           t = a(i): a(i) = a(k): a(k) = t

        End If

    Next i

数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10)As Integer    ‘①

 For i=1 To 10    ‘②

  a(i)=Rnd* 100    ‘③

 Next i

 Label1.Caption=Str(a(i))    ‘④

End Sub

    a(1) = 1

    For i = 2 To 12

      a(i) = a(i - 1) + Int(Rnd * 2) + 1

    Next i

    Key = Val(Text1.Text)

    i = 1: j = 12: cnt = 1: flag = False

    Do While i <= j And flag = False

      cnt = cnt + 1

      m = (i + j + 1) \ 2

      If a(m) = Key Then

        flag = True

      ElseIf Key > a(m) Then

        i = m + 1

      Else

        j = m - 1

      End If

    Loop

程序运行后，下列说法正确的是（  ）