为探究牛奶腐败的原因和细菌生存的条件，生物兴趣小组的同学们用消毒过的甲、乙、丙三个相同锥形瓶，设计了如下实验：

请分析，该实验中包含了多少组对照实验，变量分别是（　　）

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