四、完善程序题（共10分） 30.假设在C盘根目录中存在一个名为“学生.MDB”的Access数据库，其中包含一张名 为“学生成绩表”的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库记录增加程序，程序的运行界面如图2所示，基本逻辑 是：在“学号”中选择学号，则在Text1中自动显示姓名，在“课程号“中选择课程号，则在Text2 中自动显示课程名称，在Txt3中输人成绩，然后点击“确认”按钮，若数据库中不存在该记 录，则将该记录添加到数据库中，否则，如果数据库中已经存在该学号、该课程的成绩，则程序 应提示用户“该记录已经存在，不能继续增加”。当点击“返回”按钮(Command:2)时关闭本 窗体。 学生成績表：表 学号 课程号 成 002 80 001 00L 0 003 001 记录：00「 1C们0闲共有记录数：： 图1 好籍纪灵 学号00的 课程号01 姓名 课程名 95 图2 增加新记录窗体程序代码如下，请补充完整。 Private Sub Form_Load() Dim ADOrs As New Recordset [1] ADOrs.[2] "Select学号From学生情况表Order By学号" 1162四、完善程序题{共 0分} 30. 设在C 存在一个名 为 MDB" 的Access 据库 包含一 为"学生成绩表"的数据表，表中存放了学生的基本信息，如图 1所示。 现在要求利用 B编写一个数据库记录增加程序，程序的运行界面如图 2所示，基本逻辑 是:在"学号"中选择学号，则在 tl中自动显示姓名，在"课程号"中选择课程号，则在 中自动显示课程名称，在 3中输入成绩，然后点击"确认"按钮，若数据库中不存在该记 录，则将该记录添加到数据库中，否则，如果数据库中已经存在该学号、该课程的成绩，则程序 应提示用户"该记录已经存在，不能继续增加"。当点击"返回"按钮 nd )时关闭本 窗体。 增加新记录窗体程序代码如下，请补充完整。 Private Sub Form_LoadO Dim ADOrs As New Recordset 1162 [lJ ADOrs. [2J "Select 号From 学生情况表Order By 学号