2012河北省对口高考计算机专业理论试卷

For i = a To b For j = 1 To i

Print j; \ 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程序实现下述功能：

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

程序如下，请在空白位置填写正确的命令。（代码中行末的分号为逻辑行连接符） Command1的Click事件

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

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

班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuscore.DBF ELSE

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

班级表.班号=学生表.班号 AND 学生表.班号=e INTO TABLE stuxx.DBF ENDIF ENDIF

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

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

班级表.班号=学生表.班号 AND 学生表.班号=e TO SCREEN ELSE

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

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

(6) IF a=1

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

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

ENDIF ENDIF

(7) IF a=1

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

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

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

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

一、选择

CCCDC CADBD ACDAC CBBDC CDCCD BCBDB DABBA DCADB ACABB BBDCB

二、判断

错 错 错 对 对 对 错 对 错 对 错 错 对 对

三、填空 (一行一道题答案) ENIAC 1

二进制 工具 SHIFT ＝COUNTIF TEXT

3*X*(SQR(X+1)+X) 数据环境 .T. 语法 UDP 128

（此页无题）