28.在Visual FoxPro中可以用DO命令执行的文件不包括（ ）。 C A）PRG文件 B）MPR文件 C）MEM文件 D）QPR文件 29.不允许字段值出现重复的索引是（ ）。 A A）侯选索引和主索引 B）普通索引和惟一索引 C）惟一索引和主索引 D）惟一索引
30.假设表单上有一选项组：●男 ○女,其中第一个选项按钮“男”被选中。则该选项组的Value属性值为（ ）。 C A）.T. B）\男\ C）1 D）\男\或1
二、判断题（每小题1分，共10分）
1．假定当前系统时间为2008年1月1日10点10分00秒，TIME()函数返回的值为时间型常量{10:10:00}。 × 2．表达式CHR(ASC(\的结果是“A1”，串长为2。 × 3．在SQL查询语言中，TOP 短语必须与ORDER BY短语配对使用，但ORDER BY短语可以单独使用。 √ 4. 在打开一个无记录的空数据表后，BOF()为.T.，EOF()为 .T.，记录号为0。 × 5. 对象的外观由它的各种属性来描述，对象的行为则由它的事件和方法程序来表达。 √
6. 通过建立参照完整性规则，可以确保相关表之间数据的一致性。 √ 7. 内存变量是独立于数据库而存在的，字段变量是随数据表的建立而存在的。 √ 8. 在Visual FoxPro中，WHILE子句表示命令操作对象是从当前开始的满足条件表达式的记录，遇到不满足条件的记
录就停止。 √ 9. 用DELETE命令删除的记录是可以恢复的。 √ 10. 命令序列: A=10 ?A=A+10
执行后，A的值是20。 ×
三、填空题 （每空2分，共20分）
1. 已知某单位教师工资表JS.dbf有如下记录： Record# 编号 姓名 年龄 工资 1 3001 李丽珍 36 690 2 3002 刘苏 51 1680 3 3003 末言 22 820 4 3004 魏虎豹 46 960 5 3005 罗山 40 1100 6 3006 甘甜 30 920 7 3007 丰潇潇 47 1200
下列程序用于统计工资表JS.DBF中40岁以上（包括40岁）的教师的平均工资。请填空完成。 USE JS S=0 N=0
LOCATE FOR 年龄>=40 ① DO WHILE NOT EOF() ② S=S+工资 N=N+1 CONTINUE ③ ENDDO
?S/N USE
2.定义一个一维数组MN，将数据表XZ.DBF（6个字段）中的每条记录存入该数组，并将该数组的值依次显示出来，请填空。
CLEAR
DIMENSION MN ④ USE XZ
DO WHILE .NOT.EOF() Scatter to MN ⑤ I=1 DO WHILE I<7 ??MN(I) I=I+1 ENDDO SKIP ⑥ ? ENDDO USE
3. 设计如图1所示的表单，文本框Text1的Value初值为0。表单运行后，输入一个整数回车后，即可判断出该数是不是素数，如图2所示。请填空完成。(素数又称质数，是指除了1和该数本身以外不能被其它任何数整除的数。)
图1表单设计界面 图2 表单运行界面 Text1的Valid事件代码： N= thisform.text1.value I= 2 ⑦ DO WHILE I
Thisform.Label2.Caption=ALLTRIM(STR(N))+\是素数\ELSE
Thisform.Label2.Caption=ALLTRIM(STR(N))+\不是素数\ENDIF
4. 已知数据表“职工.DBF”（职工号，姓名，性别，出生日期，部门号，??）和“部门.DBF”（部门号，部门名，部
门经理??）。请填空完成相应任务的SQL语句。
①查询每个部门年龄最长者的信息,要求得到的信息包括部门名和最长者的出生日期。
SELECT 部门名, MIN ⑨ FROM 部门 JOIN 职工 ON 部门.部门号=职工.部门号 GROUP BY 部门名 ②查询有10名以上(含10名)职工的部门信息(部门名和职工人数),并按职工人数降序排列。
SELECT 部门名,COUNT(职工号) AS 职工人数 FROM 部门，职工WHERE 部门.部门号=职工.部门号 GROUP BY 部门名 HAVING COUNT(*)>=10 ORDER BY 职工人数 DESC ⑩
四、读程序写出运行结果 （每小题5分，共20分） 1. 表文件（积分.dbf）如下表所示。 积分.dbf
积分（N） ??2201??40????2202??2201 2203 50 ??2??1??7??6??20 20 20 20 222222000004 1 2 3 1??答案：370 答案：370
写出以下程序的运行结果。 USE 积分
STORE 0 TO X,Y,Z SCAN
DO CASE CASE RIGHT(学号,1)=\ X=X+积分 CASE RIGHT(学号,1)=\Y=Y+积分
CASE RIGHT(学号,1)=\Z=Z+积分 ENDCASE ENDSCAN ?X+Y+Z USE
2．以下程序的运行结果是什么？ 主程序MAIN.PRG *SUB1.PRG CLEA PARA B A=1 PRIV C B=1 A=2 C=1 C=2 DO SUB1 WITH A ?A,B,C ?A,B,C DO SUB2 RETU B=2
RETU
*SUB2.PRG
PRIV C A=3 B=3 C=3 ?A,B,C
RETU TO MASTER
答案：2 1 2 3 3 3 3 1 1
3. 有一程序如下，请写出运行结果。 CLEAR
DIMENSION A(3,3) FOR I=1 TO 3 FOR J=1 TO 3 IF I<>J A(I,J)=0 ELSE A(I,J)=9 ENDIF ??A(I,J) ENDFOR ? ENDFOR CANCEL
答案：9 0 0 0 9 0 0 0 9
4. 如图所示一程序界面。文本框TEXT1已经输入一串文字，单击“转换”命令按钮后，文本框的值将变为什么？ “转换” 命令按钮的CLICK 事件代码： N=LEN(THISFORM.TEXT1.VALUE) Y=''
DO WHILE N>0
X=SUBSTR(THISFORM.TEXT1.VALUE,N,1) IF ASC(X)>=ASC('a') X=UPPER(X) ELSE
X=LOWER(X) ENDIF Y=X+Y N=N-1 ENDDO
THISFORM.TEXT1.VALUE=Y 答案：this is A cup
五、程序设计题 （共20分，每小题10分）
1. 设计有如图a所示表单，其中文本框text1的value属性的初值为0。其功能是表单运行后在文本框text1中输入一个数，单击“判断”按钮可以判断该数是否为奇数。如果是奇数，输出“该数是奇数！”，否则输出“该数不是奇数！”。该程序能够循环处理，直到输入零（0）则关闭表单。请编写“判断”命令按钮的CLICK事件代码。
图a 设计界面 图b 运行界面
2．设有职工表和奖金表的表结构如下： 职工表（zg.dbf）：职工号(C,7)（无重复值），姓名(C,6)，工作日期(D)。 奖金表（jj.dbf）：职工号(C,7)（无重复值），部门号(C,4)（有重复值），奖金(N,5,1)。 按如下要求编写一个程序：
根据以上两个表，可以通过键盘任意输入一个部门号（按回车键结束），按奖金从高到低显示该部门的职工姓名、工作年限（=系统当前日期的年份值-工作日期的年份值）及奖金，显示格式如下： 职工姓名 工作年限 奖金
答案： 1.
X=thisform.text1.value If x=0
Thisform.release Endif
If x%2<>0
Thisform.label2.caption=”该数是奇数！” Else
Thisform.label2.caption=”该数不是奇数！” Endif 2. Clear Do while.t
Accept “输入部门号：” to bmh If len(allt(bmh))=0 Exit Endif
Select 姓名,year(date())-year(zg.工作日期) as 工作年限,奖金 from zg,jj;where zg.职工号=jj.职工号 and 部门号=bmh; order by 奖金 desc
Enddo
Visual FoxPro 2007年4月笔试试题
一、单项选择题 （每小题1分，共30分）
1. 在Visual FoxPro中，打开数据库的命令是( )。