VisualFoxPro数据库应用技术综合测试题（一）
一、填空题（每空1分，共20分）
1．在表刚打开，索引文件没有打开时，记录指针指向第_ ___条。 2． 将多个子程序放在一个文件中，这个文件称为__________。 3.函数TYPE(“123”)的值是：____ __________。
4.视图与查询的根本区别是查询只能查阅指定的数据，而视图不但可以查阅数据，8．下列类型的字段长度用户可以自定的是（ ） A．备注型 B．逻辑型 C．日期型 D．字符型
9．刚打开库文件，显示1，2，3号记录的正确操作是（ ） A．DISPLAY RECORD 3 B．LIST 1，2，3 C．DISPLAY NEXT 3 D．DISPALY 1，2，3 还可以__ __________。
5.在VF中，使用LOCATE ALL命令按条件对表中的记录进行查找，若查不到记录，函数EOF()的返回值是________。
6.一表中有6条记录，执行GO 3和INSERT BEFORE命令后，原表中的第3条记录的记录号变为___________。
7.VF中的变量分为_______和________。
8.函数ROUND(1.25617，2)的值是_ ___。 二、选择题（每空2分，共60分） 1．VisualFoxPro是一种（ ）
A．DB（数据库） B．DBS（数据库系统） C．DBMS（数据库管理系统） D．OS（操作系统）
2．文件的扩展名为.PRG的文件是（ ）
A．数据库文件 B．格式文件 C．备注文件 D．程序文件 3．若要中止部分语句执行而重新开始下一轮循环的命令是（ ） A．LOOP B．EXIT C．SKIP D．GOTO
4．逻辑删除当前库文件的当前记录的命令是（ ） A．CLEAR B．ZAP C．PACK D．DELETE
5．若要从字符串\澳门回归\取出\回归\，正确的写法是（ ）
A．SUBSTR（\澳门回归\，5，4） B．SUBSTR（澳门回归，5，4） C．SUBSTR（\澳门回归\，3，2） D．SUBSTR（\澳门回归\，3，4） 6．日期型数据加整型数据的结果是（ ）
A．数值型 B．逻辑型 C．字符型 D．日期型
7．修改名为worker.dbf库文件的结构，正确的命令是（ ） A．CREATE worker.dbf B．CREATE worker
C．MODIFY STRUCTUER D．MODIFY STRUCTURE TO PRINT
10．备注型字段中存放的是（ ）
A．字段值 B．字符串 C．Memo D．指向备注文件的指针
11、在Visual Foxpro6.0中，通常以窗口形式出现，用以创建和修改表、表单、数据库等应用程序组件的可视化工具称为-------。
A、向导 B、设计器 C、生成器 D、项目管理器
12、在Visual Foxpro6.0中，可对字段字段有效性规则的表---------。 A、必须是数据库表 B、必须是自由表
C、自由表或数据库表 D、不能设置字段的默认值
13、对数据表的数据进行操作，通常是在--------环境下完成的。 A、表浏览器 B、表向导 C、表设计器 D、表编辑器 14、下列关于表的索引的描述中，错误听是------。 A、复合索引文件的扩展名为.CDX
B、结构复合索引文件随表的打开而自动打开
C、当对表编辑修改时，其结构复合索引文件中的所有索引自动维护 D、每张表只能建一个主索引和一个候选索引
15、若能够正常执行下面的命令，说明字段“修理日期”的类型是--------. REPLACE ALL 修理日期 WITH DTOC(DATE()) A. 数值型 B. 字符型 C.逻辑型 D.日期型三、程序三、三、程序填空题（每空2分，共50分）
1、如下程序是计算[1] 的， 执行后的结果是[2] 。 ＳＴＯＲＥ ０ ＴＯ ｘ， ｙ ＤＯ ＷＨＩＬＥ . Ｔ. ｘ ＝ ｘ ＋ １ ｙ ＝ ｙ ＋ ｘ ＩＦ ｘ ＞＝ １００ ＥＸＩＴ ＥＮＤＩＦ ＥＮＤＤＯ
- 1 -
？ ″ ｙ ＝ ″ ， ＳＴＲ （ｙ， ４）
2. 运行该程序后， 若从键盘输入50和100，则屏幕显示的结果是[3] 。 ＣＬＥＡＲ
ＩＮＰＵＴ ″ ａ ＝ ″ ＴＯ ａ ＩＮＰＵＴ ″ ｂ ＝ ″ ＴＯ ｂ ＩＦ ａ ＞ ｂ ｘ ＝ ａ ＥＬＳＥ
ｘ ＝ ｂ ＥＮＤＩＦ ？ ｘ
3.设表文件 “考试.ｄｂｆ” 中有数值型字段 “成绩”， 请对以下程序段填空。 ＵＳＥ 考试 ｍｘ ＝ ０ ＳＣＡＮ
ｍｘ ＝ ＭＡＸ （成绩， ｍｘ） ＥＮＤＳＣＡＮ
？ ｍｘ ＆＆ 显示的值是[4] 。 ＲＥＴＵＲＮ
4.阅读下列程序， 回答指定 ＳＴＯＲＥ ０ ＴＯ ｘ， ｙ ＵＳＥ 图书 ＳＣＡＮ
ＩＦ 单价＞ ２０ .ＡＮＤ.单价＜ ２５ ＬＯＯＰ ＥＮＤＩＦ
ＩＦ 单价＜＝ ２０ ｘ ＝ ｘ ＋ １ ＥＬＳＥ
ｙ ＝ ｙ ＋ １ ＥＮＤＩＦ ＥＮＤＳＣＡＮ ？ ｘ， ｙ ＲＥＴＵＲＮ 此程序要实现的功能是[5] 。 5.下面程序的功能是打开职工表， 完成工资查询， 请填空。 ＣＬＥＡＲ ＵＳＥ 职工
ＡＣＣＥＰＴ ″ 请输入职工号：″ ＴＯ ｎｕｍ ＬＯＣＡＴＥ ＦＯＲ 职工号＝[6] ＩＦ [7]
ＤＩＳＰＬＡＹ 姓名， 工资 [8]
？ ″ 职工号输入错误！″ ＥＮＤＩＦ ＵＳＥ
ＲＥＴＵＲＮ
6.设 “成绩表” 中有 “姓名”、 “成绩” 等字段。 下面程序的功能是打开成绩表，按姓名提供学生成绩的查询，请填空。 ＣＬＥＡＲ ＡＬＬ ＵＳＥ 成绩表
ＡＣＣＥＰＴ ″ 请输入待查学生姓名：″ ＴＯ ｘｍ ＤＯ ＷＨＩＬＥ [9] ＩＦ[10]
？ ″ 姓名：″ ＋ 姓名，″ 成绩：″ ＋ＳＴＲ （成绩， ３， ０） ＥＮＤＩＦ
[11] ＥＮＤＤＯ ＲＥＴＵＲＮ
7.下面程序的功能是求1-100 之间所有整数的平方和并输出结果，请填空。 ＣＬＥＡＲ ＡＬＬ S ＝0
[12]
ＤＯ ＷＨＩＬＥ ｘ ＜＝ １００ [13] [14] ＥＮＤＤＯ ？ ｓ
- 2 -
ＲＥＴＵＲＮ
8.试为以下程序段填上适当的语句,使之成为只有当从键盘输入n或N时才退 出循环的程序。
ＤＯ ＷＨＩＬＥ . Ｔ.
ＷＡＩＴ ″ 继续循环吗？ Ｙ／ Ｎ″ ＴＯ ｙｎ ＩＦ [15] [16] ＥＬＳＥ ＥＸＩＴ ＥＮＤＩＦ ＥＮＤＤＯ
9.设计算机等级考试考生数据表为 ｓｔｕｄｅｎｔ.ｄｂｆ。 笔试和上机成绩已分别录入其中的 “笔试” 和上机字段 （皆为 Ｎ 型） 中， 表中另有 “等级” 字段 （Ｃ 型） 凡两次考成绩均达到８０ 分以上者， 应在等级字段中自动填入 “优秀”。 编程如下， 请填空： ＣＬＥＡＲ ＡＬＬ [17]
ＤＯ ＷＨＩＬＥ [18] ＩＦ [19] [20] ＥＮＤＩＦ ＳＫＩＰ ＥＮＤＤＯ ＵＳＥ
ＲＥＴＵＲＮ
10.完成下面统计STUDENT.DBF表中计算机系、 数学系和物理系的人数的程序段，其中KIND是STUDENT.DBF表中表示系别的字段。 ＵＳＥ ＳＴＵＤＥＮＴ Ｎ１ ＝ ０ Ｎ２ ＝ ０ Ｎ3 ＝ ０ ＳＣＡＮ
ＤＯ ＣＡＳＥ
ＣＡＳＥ KIND＝″ 计算机系″ [21] ＣＡＳＥ [22] Ｎ２ ＝ Ｎ２ ＋ １
ＣＡＳＥ ｋｉｎｄ ＝″ 物理系″ [23] ＥＮＤＣＡＳＥ
ENDSCAN
？″计算机系:″ ，N1，″数学系：″ ，N2，″物理系：″ ，N3 ＲＵＴＵＥＮ
11.下列程序的运行结果是[24] 。 Ｎ ＝ ０ Ｓ ＝ ０
ＤＯ ＷＨＩＬＥ .T. Ｎ ＝ Ｎ ＋ １ Ｓ ＝ Ｓ ＋ Ｎ ＩＦ Ｎ ＞ １０ ＥＸＩＴ ＥＮＤＩＦ ＥＮＤＤＯ
？″ Ｓ ＝ ″ ， Ｓ
12.下列程序的运行结果是[25] 。 Ｘ ＝ １ Ｙ ＝ ２０
ＤＯ ＷＨＩＬＥ Ｘ ＜＝ Ｙ ＩＦ Ｘ％２ ＜＞ ０ Ｘ ＝ Ｘ＾ ２ ＋ １ Ｙ ＝ Ｙ ＋ １ ＬＯＯＰ ＥＬＳＥ
Ｘ ＝ Ｘ ＋ １ ＥＮＤＩＦ ＥＮＤＤＯ ？ Ｘ， Ｙ ＲＥＴＵＲＮ
- 3 -
