[填空题]以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入。请填空。
PrivateSubCommand1_Click()
Dimx,amax,aminAsSingle
x=InputBox("Enterascore")
amax=x
amin=x
DoWhile______
Ifx＞amaxThen
amax=x
EndIf
If______Then
amin=x
EndIf
x=InputBox("enterascore")
Loop
Print"max=";amax,"min=";amin
EndSub

使用如下的3个数据表:学生、课程和成绩。

学生(学号 C(8),姓名 C(8),性别 C(2),班级 C(8))

课程(课程编号 C(8),课程名称 C(20))

成绩(学号 C(8),课程编号 C(8),成绩 N(5,1))

查询每门课程的最高分,要求得到的信息包括课程名和最高分,正确的命令是

A．SELECT 课程.课程名称, MAX(成绩) AS 最高分 FROM 成绩,课程; WHERE 成绩.课程编号 = 课程.课程编号; GROUP BY 课程.课程编号

B．SELECT 课程.课程名称, MAX(成绩) AS 最高分 FROM 成绩,课程; WHERE 成绩.课程编号 = 课程.课程编号; GROUP BY 课程编号

C．SELECT 课程.课程名称, MIN(成绩) AS 最高分 FROM 成绩,课程; WHERE 成绩.课程编号 = 课程.课程编号; GROUP BY 课程.课程编号

D．SELECT 课程.课程名称, MIN(成绩) AS 最高分 FROM 成绩,课程; WHERE 成绩.课程编号 = 课程.课程编号; GROUP BY 课程编号

（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Mix=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n>Mix Then Mix=n s=s+n s=s-Mix-Max P=s/18 Print"最高分";Max;"最低分";Mix Print"最后得分：";p End Sub

“成绩管理”数据库中含有3个数据库表“student”、“score”和“course”。为了对“成绩管理”数据库数据进行查询，设计一个表单“bd1”，表单标题为“成绩查询”；表单有“查询”和“关闭”两个按钮。

表单运行时，单击“查询”按钮，查询每门课程的最高分，查询结果中含“课程名”和“最高分”字段，结果按课程名升序保存在表“result"中。

单击“关闭”按钮，关闭表单。

“成绩管理”数据库中有3个数据库表“学生信息”、“成绩信息”和“课程信息”。建立文件名为my，标题为“成绩查询”的表单，表单包含3个命令按钮，标题分别为“查询最高分”、“查询最低分”和“关闭”。

单击“查询最高分”按钮时，调用SQL语句查询出每门课的最高分，查询结果中包含“姓名”，“课程名”和“最高分”三个字段，结果在表格中显示。

单击“查询最低分”按钮时，调用SQL语句查询出每门课的最低分，查询结果中包含“姓名”，“课程名”和“最低分”三个字段，结果在表格中显示。

单击“关闭”按钮时关闭表单。