为“选择年级”复合框设置Change事件，当选择要查询的年级时，自动为“选择年级”复合框设置项目，以便用户可以选择该年级下的某个班级。程序代码如下：
Private Sub 选择年级_Change()
Dim i As Integer '为选择班级复合框设置项目
选择班级.Clear
For i = 1 To n(选择年级.ListIndex + 1)
选择班级.AddItem ClassName(选择年级.ListIndex + 1, i)
Next i
选择班级.AddItem "全年级"
选择班级.ListIndex = 0
End Sub

报错就在
For i = 1 To n(选择年级.ListIndex + 1)