2014年河北省普通高等学校对口招生考试A

Next j Print Next i Else

MsgBox \起始行大于结束行，重新输入！\Text1.Text = \Text2.Text = \Text1.SetFocus End If Else

MsgBox \文本框中不能为空\Text1.SetFocus End If End Sub

3．已有“学生信息管理.DBC”数据库，其中包含两个表：班级表和学生表，其中班级表的结构为：班号(C，8)、班名(C，20)，学生表的结构为：学号(C，10)、班号(C，8)、姓名(C，6)、性别(C，2)、出生日期(D)、籍贯(C，10)、入学成绩(N，5，1)，设计应用程序界面如下：

装订线内不要答题 设置控件属性如下：

有一个选项按钮组，其Name属性为Optiongroup1，其中包含两个单选按钮，一个的Name属性为Option1、Caption属性为“学生信息查询”另一个的Name属性为Option2、Caption属性为“学生成绩查询”，两个复选框，一个的Name属性为Check1、Caption属性为“生成表”，另一个的Name属性为Check2、Caption属性为“排序”，两个命令按钮，名称分别为Command1和Command2、其对应的Caption属性分别为“确定”和“退出”，一个标签，其Name属性为Label1、Caption属性为“班号”，一个文本框，其Name属性为Text1。

编写Visual FoxPro程序实现下述功能：

计算机专业理论试题 第21页 共 24页

在文本框中输入班号、如果选择“学生信息查询”，则查询学生的基本信息，包括学号、班名、姓名和籍贯，如果选择“学生信息查询”，则查询学生的入学成绩信息，包括学号、班名、姓名和入学成绩，如果选择生成表，则将前面的查询输出到表中，如果不选，则在屏幕上输出，如果选择排序，则将查询结果按学号排序，否则不排序。

程序如下，请将程序填写完整。（代码中行末的分号为逻辑行连接符） Command1的Click事件

a=ThisForm.Optiongroup1.Option1.Value b=ThisForm.Optiongroup1.Option2.Value c=ThisForm.Check1.Value d=ThisForm.Check1.Value (5) OPEN DATABASE 学生信息管理 IF c=1 AND d=0 IF b=1

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuscore.DBF ELSE IF a=1

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuxx.DBF ENDIF ENDIF ENDIF

IF c=0 AND d=0 IF b=1

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ELSE IF a=1

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ENDIF

计算机专业理论试题 第22页 共 24页

ENDIF ENDIF

(6) IF a=1

SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC INTO TABLE stuxx.DBF ELSE IF b=1

SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC; INTO TABLE stuscore.DBF 装 ENDIF ENDIF 订 ENDIF

线 (7) 内 IF a=1

不 SELECT 学号,班名,姓名,籍贯 FROM 班级表,学生表 WHERE;

要班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC TO SCREEN 答 ELSE IF b=1

题 SELECT 学号,班名,姓名,入学成绩 FROM 班级表,学生表 WHERE;

班级表.班号=学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC TO SCREEN ENDIF ENDIF ENDIF

计算机专业理论试题 第23页 共 24页