【加試題】某校有100個學生的期末成績存儲在數(shù)據(jù)庫中，并已經(jīng)按學號升序排序，學號編號從1到100．現(xiàn)要求找出成績最高的學生的得分．如果有多個符合要求的學生，只輸出學號排在前面的．小吳為此編寫了VB程序，程序運行時，單擊按鈕Command1后，在文本框Text1中輸出最大成績．實現(xiàn)上述功能的VB代碼如下，請補全代碼．
Dim a（1To 100）As Single'依次存儲100個學生成績
Const n=100
Private Sub Form_Load（　?。?br />'本過程從數(shù)據(jù)庫中讀取1到100號學生成績，并存儲在數(shù)組a中
'代碼略
End Sub
Private Sub Command1_Click（　?。?br />Dim i As Integer,max As single
max=①

a（1）

a（1）

For i=2To n
if ②

a（i）＞maxthenmax=a（i）

a（i）＞maxthenmax=a（i）

Next i
Text1．Text=“成績最高分是：“+Str（max）
End Sub
（1）程序中①橫線處應填入

a（1）

a（1）

．
（2）程序中②橫線處應填入

a（i）＞maxthenmax=a（i）

a（i）＞maxthenmax=a（i）

．