100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生，只输出学号排在前面的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩。实现上述功能的VB代码如下，请补全代码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
