得分 评卷人 三、阅读程序题（共25分）】 26. 27. 28. 29. 得分 评卷人 四、完善程序题（共10分） 30.增加新记录窗体程序代码如下，请补充完整。 Private Sub Form_Load() Dim ADOrs As New Recordset [] ADOrs.[2] "Select学号From学生情况表Order By学号" Combol.Clear Do While [3] ADOrs.EOF Combol.AddItem Trim(ADOrs..Fields("学号")) ADOrs.MoveNext Loop ADOrs.Close ADOrs.Open"Select课程号From课程情况表Order By课程号" Combo2.Clear Do While Not ADOrs.EOF Combo2.AddItem Trim(ADOrs.Fields("课程号") ADOrs.MoveNext Loop ADOrs.Close 1167|得分|评卷人| I I I 26. 27. 28. 29. |得分|评卷人| I I I 三、阅读程序题{共 2 5 四、完善程序题{共 "Select 号From 表Order By 学号 30. 增加 体程序代 如下 补充完整 Private Sub Form_LoadO Dim ADOrs As New Recordset [lJ ADOrs. [2J Combo!. Clear Do While [3J ADOrs. EOF Combo!. AddItem Trim(ADOrs. Fields(" ) ) ADOrs. MoveNext Loop ADOrs. Close ADOrs. Open 咆elect 号From 程情况表Order By 程号 Combo2. Clear Do While Not ADOrs. EOF Combo2. AddItem Trim(ADOrs. Fields(" " ) ) ADOrs. MoveNext Loop ADOrs. Close 1167