Next n Next m
22．在窗体中添加一个命令按钮Command1，编写如下程序代码： Private Sub Command1_Click( ) Dim i, j As Integer j = 1
For i = 10 To 1 Step －2 j = j * i Next i MsgBox j End Sub
窗体打开运行后，单击该命令按钮，消息框中输出结果为 。 23. 执行下面的程序段后，b的值为 。 a = 5 b = 7 a = a+b b = a-b a = a-b
24. 在名为“Form1”的窗体上增加三个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：
Private Sub Command1_Click() Text3=Text1+Text2 End Sub
Private Sub Form_load() Text1=\Text2=\Text3=\End Sub
打开窗体Form1后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入 4 和 8 ，然后单击命令按钮 Command1 ，则文本框（Text3）中显示的内容为 。
25. 在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期。请补充完整。 Private Sub Form_load( ) Me.TimerInterval=1000 End Sub Private Sub Me.Text1= End Sub 三、写SQL命令
所涉及到的学生信息管理数据库中包含三个数据表，它们各自的表结构如下： 学生表：
字段名 学号 院系 类型 文本 文本 大小 9 10 字段名 姓名 出生日期 类型 文本 日期/时间 大小 字段名 4 性别 出生地 类型 文本 文本型 大小 1 10 字段名 学号 成绩表： 课程信息表：
类型 文本 大小 9 字段名 课程编号 类型 文本 大小 字段名 4 成绩 类型 大小 数字 单精度 字段名 课程编号 类型 文本 大小 4 字段名 开课单位 类型 文本 大小 10 字段名 课程名称 类型 文本 大小 10 1．查询院系为“会计学院”的学生成绩，显示学号、姓名、课程名称和成绩。
2．查询姓“王”学生的基本信息，显示：学号、姓名、性别和年龄，并按学号降序排列。 3．统计每一门课程的选修人数，显示：课程编号、学生人数。
4．查询平均成绩不及格（<60）的学生信息，显示：显示学号，平均成绩。 5．查询不选修课程编号为“C003”的学生，显示：学号、姓名和院系。 四、编程
1. 建立一个子过程A1，在该过程中：用循环结构实现从键盘上输入任意50个实数，求出它们的均值，并通过消息框显示结果。 2. 建立一个子过程A2，在该过程中实现：对任意10个数按从大到小的顺序进行排序，并通过文本框控件Text0显示排序结果。
综合练习题参考答案 一、单项选择题 1.A 2.B 3.C 4.C 5.B 6.A 7.D 8.C 9.D 10.A 11.B 12.C 13.B 14.A 15.C 16.C 17.A 18.A 19.A 20.C 21.B 22.A 23.D 24.A 25.B 26.C 27.A 28.C 29.A 30.B 31.A 32.D 33.C 34.B 35.B 36.B 37.D 38.B 39.A 40.D 41.C 42.A 43.C 44.D 45.D 46.B 47.B 48.B 49.D 50.C 二、填空题 1. 关键字/键
2. 外模式/用户模式; 概念模式/模式/逻辑模式; 内模式/物理模式
3. 实体完整性;参照完整性 4. 查询
5. 系统当前日期和时间 6. 考试
三、写SQL命令
1.Select 学生表.学号，学生表.姓名，课程信息表.课程名称，成绩表.成绩 From学生表, 课程信息表, 成绩表
Where学生表.学号=成绩表.学号 and成绩表.课程编号=课程信息表.课程编号 and 学生表.院系＝”会计学院” 2.Select 学号，姓名，性别，year(Date())－year(出生日期) AS 年龄 From 学生表 Where 姓名 like“王*” Order by 学号 Desc
7. 操作或命令 8. 实体集 9. 报表页脚 10. 货币型/Money 11. 控件来源/Caption/标题 12. OpenForm 13. 报表页眉 14. 菜单栏 15. 索引 16. 投影 17. 更新
18. 分支/选择;循环 19. call area(A,B) 20. 局部变量 21. 9 22. 3840 23. 5 24. 48
25. Form_Timer(); Date() / Now()
3.Selcct 课程编号，count（课程编号或学号或成绩）as 学生人数 From 成绩表 Group by 课程编号
4.Select 学号， avg（成绩） AS 平均成绩 From 成绩表 Group by 学号
Having avg（成绩）<60
5.select学生表.学号，学生表.姓名，学生表.院系 From 学生表，成绩表
Where 学生表.学号 not in(select 成绩表.学号 from成绩表 where成绩表.课程编号=”C003”) 四、编程 1. Sub A1()
Dim M(1 To 50) As Single, s As Single Dim n As Single For i = 1 To 50
M(i) = InputBox(\请输入实数\ s = s + M(i) Next i n = s / 50
MsgBox (\求得的均值为\& n) End Sub 2. Sub A2()
Dim a(1 To 10) As Integer Dim n As Integer For i = 1 To 10
a(i) = InputBox(\请输数值:\ Next i
For j = 1 To 10 For i = j To 10 If a(j) < a(i) Then n = a(i) a(i) = a(j) a(j) = n End If Next i
Text0.Value = Text0.Value & a(j) & \ Next j End Sub