《Visual FoxPro6.0程序设计》综合考试试卷(A) A、REPLACE ALL年龄WITH YEAR(DATE()-YEAR(出生年月) B、REPLACE ALL年龄WITH DATE()-出生年月 姓名 学号 分数 C、REPLACE ALL年龄WITH DTOC(DATE()-DTOC(出生年月) 一、选择题（每题1分，共20分） D、REPL ALL年龄WITH(SUBS(DATE(),7,2)-SUB(DTOC(出生年月)，7,2) 1、用二维表来表示实体及实体之间联系的数据模型称为。 11、表文件共有20个记录，当前记录号是10，执行命令L1 ST NEXT5以后，当前记录号是 A、实体一联系模型B、关系模型 C、层次模型 D、树状模型 A.10B、15C、14D、20 2、在命令格式短语“FELD”对应的关系运算是 12、在索引的四种类型中，不具备唯一性的是 (多选) A、选择B、投影 C、连接 D、自然连接 A、主索引B、候选索引C、唯一索引 D、普通索引 3、如果表文件中含有M型和G型字段，则相对应的表文件的备注文件的扩展名为 13、SET RELATION关联操作是一种 A、DBTB、DBFC、BATD、FPT A、建立临时关系B、物理连接 C、逻辑排序 D、物理排序 4、设系统日期为1999年12月31日，则表达式VAL(SUBS(“586”,1,1)+RIGHT(STR 14、过程的入口语句是 (YEAR(DATE())),2))+1的计算结果是 A、D0过程名 B、DO CASE A、600. B、5+1999C、601D、出错信息 C、PROCEDURE过程名 D、RETURN 5、使用命令DECLARE MM(2,3)定义的数组，包含的数组的个数为 15、在表单对象中DBClick事件是指. 时触发的基本事件。 A、2B、3C、5D、6 A、当创建对象时 B、当从内存中释放对象 6、如果一个表达式包含数值运算、关系运算、逻辑运算和函数时，运算的先后顺序是 C、当表单装入内存 D、当用户双击对象 A、数值运算、关系运算、逻辑运算、函数 16, 属于非容器类控件。 B、数值运算、逻辑运算、关系运算、函数 A、Form B、Label C、Pagc D、Container C、函数、数值运算、关系运算、逻辑运算 17. 表示当前对象。 D、函数、关系运算、逻辑运算、数值运算 A、THIS B.THISFORM 7、打开一个数据库的命令是」 C、THISFROMSET D、PARENT A.USEB、USE DATABASE 18、在表单对象中，标签没有 属性。 C、OPEN D、OPEN DATABASE A、CAPTION B、AUTOSIZE C、VORWRAP D、VALUE 8、可以伴随着表的打开面自动打开的索引是 19、可以设置文本框进行密码输入的属性是 A、单一索引文件B、复合索引文件 A、VALUE B、ENABLED C、结构化复合索引文件D、非结构化复合索引文件 C、PASSWORDCHAR D、FONDNAME 9、打开一个空表文件，分别用EOF()和BOF()测试，其结果一定是 20、确定页面面数的属性是」 A、T和T.B、F.和F C、T和ED、F和T A、PAGECOUNT B、TABSTRETCH 10、若已打开表，其中出生年月字段为日期型，年龄字段为数值型。要计算每个人今年的年龄 C、TABSTYLE D、ACTIVEPAGE 并把其值填入年龄字段中，应使用命令 二、填空题（每题1分，共20分）
《Visual FoxPro 6.0 程序设计》综合考试试卷(A) 姓名 学号 分数 一、选择题（每题 1 分，共 20 分） 1、用二维表来表示实体及实体之间联系的数据模型称为 A、实体—联系模型 B、关系模型 C、层次模型 D、网状模型 2、在命令格式短语“FIELD ”对应的关系运算是 A、选择 B、投影 C、连接 D、自然连接 3、如果表文件中含有 M 型和 G 型字段，则相对应的表文件的备注文件的扩展名为 A、DBT B、DBF C、BAT D、FPT 4、设系统日期为 1999 年 12 月 31 日，则表达式 VAL（SUBS（“586”，1，1）+RIGHT（STR （YEAR（DATE（））），2））+1 的计算结果是 A、600 B、5+1999 C、601 D、出错信息 5、使用命令 DECLARE MM(2,3)定义的数组，包含的数组的个数为 A、2 B、3 C、5 D、6 6、如果一个表达式包含数值运算、关系运算、逻辑运算和函数时，运算的先后顺序是 A、数值运算、关系运算、逻辑运算、函数 B、数值运算、逻辑运算、关系运算、函数 C、函数、数值运算、关系运算、逻辑运算 D、函数、关系运算、逻辑运算、数值运算 7、打开一个数据库的命令是 A、USE B、USE DATABASE C、OPEN D、OPEN DATABASE 8、可以伴随着表的打开而自动打开的索引是 A、单一索引文件 B、复合索引文件 C、结构化复合索引文件 D、非结构化复合索引文件 9、打开一个空表文件，分别用 EOF（）和 BOF（）测试，其结果一定是 A、.T.和.T. B、.F. 和.F. C、.T.和.F. D、.F.和.T. 10、若已打开表，其中出生年月字段为日期型，年龄字段为数值型。要计算每个人今年的年龄 并把其值填入年龄字段中，应使用命令 A、REPLACE ALL 年龄 WITH YEAR（DATE（））-YEAR（出生年月） B、REPLACE ALL 年龄 WITH DATE（）-出生年月 C、REPLACE ALL 年龄 WITH DTOC（DATE（））-DTOC（出生年月） D、REPL ALL 年龄 WITH （SUBS（DATE（），7，2）-SUB（DTOC（出生年月），7，2） 11、表文件共有 20 个记录，当前记录号是 10，执行命令 LIST NEXT 5 以后，当前记录号是 A、10 B、15 C、14 D、20 12、在索引的四种类型中，不具备唯一性的是 (多选) A、主索引 B、候选索引 C、唯一索引 D、普通索引 13、SET RELATION 关联操作是一种 A、建立临时关系 B、物理连接 C、逻辑排序 D、物理排序 14、过程的入口语句是 A、DO 过程名 B、DO CASE C、PROCEDURE 过程名 D、RETURN 15、在表单对象中 DBClick 事件是指 时触发的基本事件。 A、当创建对象时 B、当从内存中释放对象 C、当表单装入内存 D、当用户双击对象 16、 属于非容器类控件。 A、Form B、Label C、Page D、Container 17、 表示当前对象。 A、THIS B、THISFORM C、THISFROMSET D、PARENT 18、在表单对象中，标签没有 属性。 A、CAPTION B、AUTOSIZE C、WORWRAP D、VALUE 19、可以设置文本框进行密码输入的属性是 A、VALUE B、ENABLED C、PASSWORDCHAR D、FONDNAME 20、确定页面面数的属性是 A、PAGECOUNT B、TABSTRETCH C、TABSTYLE D、ACTIVEPAGE 二、 填空题（每题 1 分，共 20 分）
1,VFP具有交互操作方式以及 两种工作方式：提供了向导、设计器和 enddo 三类支持可视化设计的轴助工具， 2"1+2+3++100”s 2、连线（将左、右两列相关内容用线连接起来） ?1~100奇数和为：”+ 数据库 DBF 菜单 DBC (2)下面程序仅接受Y或N,输入其他信息程序结束。 Do while.t. 源程序 MPR Wait“请输入YN”toch 查询文件 OPR If upper(ch)"Y".AND.upper(ch)"N" 表 PRG 3、表达式LEN(SPACE(2)-SPACE(3)的结果是 ELSE 4、记录定位有相对定位、绝对定位和条件定位三种，使用的命令分别 Endif 是 Enddo 5、结构化程序设计所规定的三种基本控制结构是」 和 四、 阅读程序，写出运行结果。（每题4分，共12分） 6、菜单设计器中若要指定访问键，菜单名称输入时在访问字符前加“”：若要指定分 1、*cxl.p 组线，在相应的菜单名称中输入“ ” public a 7、在表单中组合框的STYLE属性将该控件分为下拉式组合框和 :当属性值为 a=1 时，为后者。 =5 do sub 8、建立程序文件用」 命令，执行程序文件用 cl”a,b,c 命令. return 三、阅读程序，补充完整(2题，共14分) procedure sub (1)以下程序是计算，并求1~100的和与奇数之和。请填空 private c 程序1 a=t+1 store0 to I,s,t public b do while b=2 c=3 s=s+I d-4 f ?“sub",a,b,c,d return 运行结果 endif 2、*cx2pg =t+】 set talk off
1、VFP 具有交互操作方式以及 两种工作方式；提供了向导、设计器和 三类支持可视化设计的辅助工具。 2、连线（将左、右两列相关内容用线连接起来） 数据库 DBF 菜单 DBC 源程序 MPR 查询文件 QPR 表 PRG 3、表达式 LEN（SPACE（2）-SPACE（3））的结果是 。 4、记录定位有相对定位、绝对定位和条件定位三种，使用的命令分别 是 、 、 。 5、结构化程序设计所规定的三种基本控制结构是 、 和 。 6、菜单设计器中若要指定访问键，菜单名称输入时在访问字符前加“ ”；若要指定分 组线，在相应的菜单名称中输入“ ”。 7、在表单中组合框的 STYLE 属性将该控件分为下拉式组合框和 ；当属性值为 时，为后者。 8、建立程序文件用_______________________命令，执行程序文件用_______________________ 命令。 三、 阅读程序，补充完整（2 题，共 14 分） （1）以下程序是计算，并求 1~100 的和与奇数之和。请填空 程序 1 store 0 to I, s, t do while s=s+I if endif t=t+I enddo ?” 1+2+3+„„+100”,s ?”1~100 奇数和为：”+ （2）下面程序仅接受 Y 或 N，输入其他信息程序结束。 Do while .t. Wait “请输入 Y/N” to ch If upper(ch)<>”Y ” .AND. upper(ch)<>”N” ELSE Endif Enddo 四、 阅读程序，写出运行结果。（每题 4 分，共 12 分） 1、*cx1.prg public a a=1 c=5 do sub ?”cx1:”,a,b,c return procedure sub private c a=a+1 public b b=2 c=3 d=4 ? “sub”,a,b,c,d return 运行结果： 2、*cx2.prg set talk off
dime a(6) 1、表单的1oad事件 for k=1 to 6 2、表单的refresh方法 ak=20-2*k 3、表单的release方法 endfor 4、表单的init事件 k=5 5、文本框的keypress事件 do while k>=1 6、标签的forecolor属性 a(k=lk)-a(k+1) 7、标签的visible属性 k=k-1 8、选项按钮组的buttoncount属性 enddo 9、命令按纽的enabled属性 ？1),a2),a3) l0表格控件的recordsourcetype属性 set talk on 运行结果： 六、编程题(2题，共2*7=14分) 3、*cx3.prg 1、利用函数或过程，编写求s=1+2+.…+n的程序. set talk off 1=1 Do while Iint(a）.ora>=l0 Loop Else Input“b="tob If b=int(b).and.b<10 Loop Else 2a,"+",b,"=",a+b endif endif ==l Enddo 2、计算下列表达式之值：=1+22+3+4+55+ Return 要求设计一个表单，其中用一个文本框输入需要计算的次数，另一个文本框显示结果。 若依次输入数据2.5,82.5,3,2,2,10，运行结果是： 五、对下列事件和方法以及属性进行解释。（每题2分，共20分）
dime a(6) for k=1 to 6 a(k)=20-2*k endfor k=5 do while k>=1 a(k)=a(k)-a(k+1) k=k-1 enddo ? a(1),a(2),a(3) set talk on 运行结果： 3、*cx3.prg set talk off I=1 Do while Iint(a) .or. a>=10 Loop Else Input “b=” to b If b=int(b) .and. b<10 Loop Else ?a,”+”,b,”=”,a+b endif endif I=I=1 Enddo Return 若依次输入数据 2.5,8,2.5,3,2,2,10,运行结果是： 。 五、 对下列事件和方法以及属性进行解释。(每题 2 分，共 20 分) 1、表单的 load 事件 2、表单的 refresh 方法 3、表单的 release 方法 4、表单的 init 事件 5、文本框的 keypress 事件 6、标签的 forecolor 属性 7、标签的 visible 属性 8、选项按钮组的 buttoncount 属性 9、命令按钮的 enabled 属性 10 表格控件的 recordsourcetype 属性 六、 编程题（2 题，共 2*7=14 分） 1、利用函数或过程，编写求 s=1!+2!+…+n!的程序。 2、计算下列表达式之值：s=11 +22 +33 +44 +55 +… 要求设计一个表单，其中用一个文本框输入需要计算的次数，另一个文本框显示结果
