【加試題】某校有100個(gè)學(xué)生的期末成績(jī)存儲(chǔ)在數(shù)據(jù)庫(kù)中，并已經(jīng)按學(xué)號(hào)升序排序，學(xué)號(hào)編號(hào)從1到100．現(xiàn)要求找出成績(jī)最高的學(xué)生的得分．如果有多個(gè)符合要求的學(xué)生，只輸出學(xué)號(hào)排在前面的．小吳為此編寫(xiě)了VB程序，程序運(yùn)行時(shí)，單擊按鈕Command1后，在文本框Text1中輸出最大成績(jī)．實(shí)現(xiàn)上述功能的VB代碼如下，請(qǐng)補(bǔ)全代碼．
Dim a（1To 100）As Single'依次存儲(chǔ)100個(gè)學(xué)生成績(jī)
Const n=100
Private Sub Form_Load（　?。?br />'本過(guò)程從數(shù)據(jù)庫(kù)中讀取1到100號(hào)學(xué)生成績(jī)，并存儲(chǔ)在數(shù)組a中
'代碼略
End Sub
Private Sub Command1_Click（　?。?br />Dim i As Integer,max As single
max=①
For i=2To n
if ②
Next i
Text1．Text=“成績(jī)最高分是：“+Str（max）
End Sub
（1）程序中①橫線處應(yīng)填入 ．
（2）程序中②橫線處應(yīng)填入 ．

【考點(diǎn)】賦值語(yǔ)句；冒泡排序算法及其實(shí)現(xiàn)；循環(huán)語(yǔ)句．

【答案】a（1）；a（i）＞maxthenmax=a（i）；a（1）；a（i）＞maxthenmax=a（i）