1、 第 3、4 套模拟题一判断题（3 套）1. Visual FoxPro 中关系表达式的结果是一个字符串 .T.或 .F.（错）2. 执行？IIF（69，6 ， 9）后的结果为 9（对）3. 常量是其值在程序的执行过程中可以改变的量（错）4. 执行？MOD（3，-9）后的结果为-3（错）5. 字段名可包含中文，英文字母，数字与下划线，而且第一个字母可以是数字或下划线.（错）6. Visual FoxPro 中的内存变量名允许与数据库中的字段名同名. （对）7. 在 Visual FoxPro 中，您可以同时打开多个数据库，而且在同一时间内，可以有多个数据库是“当前数据库”.（错）8. 您可使用
2、相关的工具来修改那些用向导所生成的文件，而向导本身无法修改这些文件.（对）9. 在 Visual FoxPro 中，一维数组可以当作二维数组使用. （错）10.查询设计器不可以对数据进行统计.（错）11. 命令可以独立于命令执行，同理命令也可以独立于命令执行。 （错）12. 和命令的功能和在程序中所起到的作用都是一样的 （错）13.新建一张表单时，可以添加新的属性，方法和事件 （对）14.表单中的标签控件使用方法与文本框控件完全相同 （错）15.表单的定义是以表文件的形式存储的 （错）二 判断题（4 套）1. 在 VF 中，表达式“a”$”this is a book!”的结果是假的（错）2.
3、 表达式（5+4 ）*2*2/3 的值为 12，表达式”a,b,c”$”nmabcgh”的值为.T.,表达式 5.T. C.LIST FOR “是否通过” D.LIST FOR NOT 是否通过3. OptionGroup、ButtonGroup 对象的 Value 属性值类型只能是（ A）A.N B.C C.D D.L4. 当某控件对象获得焦点后又失去焦点，将依次激发（A）事件。A.When Valid GotFocus LostFocus B.When GotFOCUS Valid LOSTfOCUS C. Vaild GotFocus When LostFocus D. Vaild Wh
4、en GotFocus LostFocus 5. 对工具栏的设计，下列说法正确的是（D） 。A.既可以在设计工具栏类时添加控件，也可以在表单设计器中向工具栏添加控件B.只可以在设计工具栏类时添加控件 C. 只可以在表单设计器中向工具栏添加控件 D.可以在类浏览器中向工具栏类添加控件6. 将一个预览成功的菜单存盘，再运行该菜单，却不能执行，这是因为（B） 。A.没有放到项目中 B.没有生成 C.要用命令方式 D.要编入程序7. 使用 index 命令创建唯一索引时，应选参数（ D）.A.ASCENDING B.DESCENDING C.CANDIDATE D.UNIQUE8. 报表的输出命令是（
5、 B） 。A.CREATE REPORT B.REPO FORM C.MODI REPO D.SET REPO9. 在现实世界中，某种商品的名称对应于计算机世界中的（B） 。A.个体 B. 属性值 C. 数据项 D.性质 10. 报表设计器中不包含在基本带区的有（A） 。A.标题 B.页标头 C.页脚注 D.细节11. 一数据表中含 9 条记录，执行 LIST 命令后，其 recno（）的返回值为（D ） 。A.1 B.8 C.9 D.1012. 执行？AT（”教授”,”副教授”）命令的显示结果是（ c） 。A. .T. B.2 C.3 D.0 13. 在使用查询设计器设计查询时，必须要向查询
6、设计器中添加（c） 。A. 索引文件 B.程序文件 C.表文件 D. 表单文件 五程序填空（一）.程序填空1.*- *【程序填空】*-*功能:在 XSDB.DBF 数据表中查找学生王迪，如果找到，则显示：* 学号、姓名、英语，生年月日，否则提示“查无此人！“。* 请在【】处添上适当的内容，使程序完整。*-SET TALK OFF*SPACE*Use xsdb XM=“王迪 “*SPACE*Locate for 姓名=XMIF FOUN() *SPACE*? 学号, 姓名 , 英语, 生年月日ELSE? “查无此人！“ENDIFUSESET TALK ONRETURN2*- *【程序填空】*-*
7、功能:求 1 到 50 的累加和（S=1+2+3+.+50）并显示。请在【】处添上* 适当的内容，使程序完整。 *-SET TALK OFF*SPACE*h=0i=1*SPACE*DO WHILE i0 【 ?】Y=Y+SUBS(X,1,2)+ *SPACE*X=right(x,len(x)-2)ENDD?YSET TALK ONRETURN5 - *【程序填空】*-*功能:实现:求 0-100 之间的奇数之和，超出范围则退出。请在【】处* 添上适当的内容，使程序完整。 *-SET TALK OFFX=0Y=0DO WHILE .T.X=X+1DO CASE*SPACE*CASE x/2=in
8、t(x/2)LOOPCASE X=100*SPACE*exit OTHERWISEY=Y+XENDCASE*SPACE*enddo? “0-100 之间的奇数之和为: “, YSET TALK ONRETURN二程序改错1.*-*【程序改错】*-*题目：从键盘输入一个表“xsda”，打开该表， 查找“ 姓名“是* “张三“的记录，并显示该记录， 最后输出“姓名“ 是“张* 三“的记录个数。(设被打开的表中有固定字段“姓名“)*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFACCEPT TO AUSE &A*FOUND*n=0SCAN FOR 姓名= “张
9、三“*FOUND*disp N=N+1ENDSCAN*FOUND*? “记录个数是”,NUSESET TALK ONRETU2.*- *【程序改错】*-*题目:有结构相同的三个班学生数据库 STD1.DBF、STD2.DBF、* STD3.DBF。其中学号的前两位是学生所在班级号。一个* 统计数据库 TJ.DBF，其结构包括七个字段：班级 C(2)、 男、女、党员、团员、群众、少数民族，后六个均为数* 值型字段 N(3,0)。请编写统计程序 MODI1.PRG，按班对* 学生数据进行的性别、政治面目和民族统计，并将统计* 结果存放到 TJ.DBF 中。 （不得修改学生数据库）*-*注意：不可以
10、增加或删除程序行，也不可以更改程序的结构。*-set talk offsele 1use std1sele 2use std2sele 3use std3sele 4 use tjzapsele 1*FOUND*banji=left(学号 ,2)count all for 性别=“ 男“ to mancount all for 性别=“ 女“ to womancount all for 民族“汉“ to minzucount all for 政治面目=“ 党员“ to dangyuancount all for 政治面目=“ 团员“ to tuanyuancount all for 政治面目=
11、“ 群众“ to quanzhongsele 4appe blan repl 班级 with banji,男 with man,女 with woman,党员 with dangyuan,团员 with tuanyuan,群众 with quanzhong,少数民族 with minzu*FOUND*sele 3 banji=left(学号 ,2)count all for 性别=“ 男“ to mancount all for 性别=“ 女“ to womancount all for 民族len(b)for i=1 to m *FOUND*c=c+subs(a,i,1)+subs(b,n+
12、i+1,1) subs(b,n-i+1,1)endforelse*FOUND*for i=1 to m for i=1 to n c=c+subs(a,i,1)+subs(b,n-i+1,1)endfor*FOUND*endf endif ? cSET TALK ONRETU6-*题目:有学生数据库 STD.DBF 文件，其中学号字段的前两位是班号。* 请编写程序 MODI1.PRG：选择所有少数民族（非汉族）的学* 生参加某项活动，按民族的拼音次序升序排列 ,同民族的按* 照学号升序排列，并为之生成编号。编号的前两位是班号，* 后两位是统一新编序号。并将学号、编号、姓名、性别和* 民族添加到
13、数据库文件 BS 中。*-*注意：不可以增加或删除程序行，也不可以更改程序的结构。*-SET TALK OFFSET SAFETY OFFstor 0 to numstor “ to bianhaosele 2use std*FOUND*index on 民族,学号 to std.idx 民族+学号sele 1use bszapsele 2do while .not. eof()*FOUND*if 民族=“ 汉“ 民族学号,编号 with bianhao,姓名 with b-姓名, 性别 with b-性别,民族 with b-民族endifsele 2skipenddoCLOSE DATABASESET TALK ONRETURN（三）程序设计1.*-*【程序设计】*-*题目：编程求出 1*1+2*2+n*n=1000 中满足条件* 的最大的 n。* 将结果存入变量 OUT 中。* 请按照题目要求，在下面编写程序代码。 *-SET TALK ONSET LOGERRORS ONOUT=-1*Program*Sum=0N=0 Do while sum=1000N=n+1Sum=sum+n*nEnddo Out=n-1* End *DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF
