加试题某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100．现要求找出成绩最高的学生的得分．如果有多个符合要求的学生，只输出学号排在前面的

Question

【加试题】某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100．现要求找出成绩最高的学生的得分．如果有多个符合要求的学生，只输出学号排在前面的．小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩．实现上述功能的VB代码如下，请补全代码．
Dim a（1To 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=2To n
if ②___
Next i
Text1．Text=“成绩最高分是：“+Str（max）
End Sub
（1）程序中①画线处应填入___．
（2）程序中②画线处应填入___．

Answer 1

程序的算法是首先假设数组的第一个值为最大数值，将其赋值给变量max．然后，通过i对数组进行遍历，从数组中第二个值开始与max进行比较，如果大于max，则对max进行重新赋值．这样，max变量永远存储的都是最大值．代码中，i用在循环语句中，对数组a进行遍历．max定义为单精度浮点数，用于存放每次比较后较大的那个一数值．
故答案为：（1）a（1）；（2）a（i）>max then max=a（i）．