1、浙江二级 VISUAL+FOXPRO-1 及答案解析(总分：100.00，做题时间：90 分钟)一、B试题 1/B(总题数：1，分数：9.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 打开银行客户关系表，输入一个控制口令控制程序的执行，若口令为 1，则把“银行代码”为 001 的所有记录加上删除标记；若口令为 2，把“银行代码”为 002 的所有记录加上删除标记；若口令为 3，把“银行代码”为 003 的所有记录加上删除标记。【程序】CLEARUSE 银行客户关系表 EXCLUSIVEBROWSE LASTWATT “请输入你的选择：(13)”TO
2、 yhdmDO CASECASEU (1) /UDELETE ALL FOR 银行代码“001”BROWSE ALL FOR 银行代码=“001”RECALLCASEU (2) /UDELETE ALL FOR 银行代码“002”BROWSE ALL FOR 银行代码=“002”RECALLCASEU (3) /UDELETE ALL FOR 银行代码“003”BROWSE ALL FOR 银行代码“003”RECALLENDCASEBROWSEUSE（分数：9.00）A.yhdm“1“B.yhdm“2“C.yhdm=“3“D.OTHERWISEA.yhdm=“1“B.yhdm=“2“C.yh
3、dm“3“D.OTHERWISEA.yhdm=“1“B.yhdm“2“C.yhdm“3“D.OTHERWISE二、B试题 2/B(总题数：1，分数：15.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 计算 130 之间能够被 3 整除的奇数的阶乘和。【程序】* 主程序SET TALK OFFS=0FOR I1 TO 30 STEP 2IFU (4) /UU (5) /USS+NENDIFENDFOR?“1 到 30 之间能被 3 整除的奇数阶乘和为：”+U (6) /USET TALK ONRETURN* 过程 P1.PRGPARAMETERS M
4、U(7) /UN=1FOR J=1 TO MNN*JENDFORU(8) /U（分数：15.00）A.MOD(I，3)0B.MOD(I，3)0C.MOD(I，3)0D.MOD(I，3)0A.DO P1B.DO P1 WITH IC.DO P1 HAVE ID.DO P1 OWN IA.STR(B.VAL(C.CHR(D.DTOC(A.LOCAL NB.PROTECTEDC.PUBLIC ND.PRIVATE NA.RETURNB.ENDC.END PARAMETERSD.END RETURN三、B试题 3/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，
5、挑选一个正确答案。【程序说明】 模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】SET TALK OFFCLEARACCEPT“请输入表文件名(带扩展名)：” TO FILENAMEACCEPT“请输入要查询的字段名(字符型)：” TO FIELDNAMEACCEPT“请输入要查询的内容(字符串)：”TO CHARIF U(9) /UU (10) /UBROWSE FORU (11) /UUSEU (12) /U?“指定的表文件不存在!”ENDIFSET TALK ON（分数：12.00）A.PILE(FILENAMB.TYPE(“& F
6、ILENAME”)C.FILE(“FILENAME”)D.FILE(& FILENAMA.USE FILENAMEB.USE(FILENAMC.USE & FILENAM. DBFD.USE & FILENAM DBFA.CHAR FIELDNAMEB.AT (CHAR，FIELDNAM0C.CHAR & FIELDNAMED.AT(& CHAR，& FIELDNAM0A.LOOPB.EXITC.ELSED.IF四、B试题 4/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEARX=3D
7、O WHILE .T.X=X+1IF XINT(X/3)*3? XELSELOOPENDIFIF X10EXITENDIFENDDOSET TALK ONRETURN（分数：12.00）(1).当变量 X 的值第一次变化时，X 的输出结果为 _。（分数：3.00）A.3B.6C.8D.12(2).当变量 X 的值第二次变化时，X 的输出结果为 _。（分数：3.00）A.3B.6C.9D.10(3).当变量 X 的值第三次变化时，X 的输出结果为 _。（分数：3.00）A.3B.6C.9D.12(4).若将 X3 改为 X12 时，X 的输出结果为 _。（分数：3.00）A.6B.9C.12D.
8、无任何显示五、B试题 5/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PROCEDURE SUBPARAMETERS A，B，C，DDB* B-4*A*CDO CASECASE D0D0CASE D0D2CASE D0D1ENDCASEENDPROC在主程序中执行如下命令：STORE 1 TO A，CSTORE 2 TO B，DDO SUB WITH A，B，C，D? D（分数：12.00）(1).D 的输出结果为 _。（分数：3.00）A.0B.1C.2D.3(2).若将 D=B* B-4*A*C 改为 D=A
9、*A+B*B-C*C，则 D 的输出结果为 _。（分数：3.00）A.0B.1C.2D.3(3).若将 D=B*B-4*A*C 改为 D=A*A-B*C，则 D 的输出结果为 _。（分数：3.00）A.0B.1C.2D.3(4).若将? D 改为? A，D，则 A，D 的输出结果分别为 _。（分数：3.00）A.0 1B.1 1C.2 1D.3 1六、B试题 6/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFINPUT“请输入 A：” TO AINPUT“请输入 B：” TO BIF ABT
10、AA=BBTENDIFDO WHILE B0TMOD(A，B)ABBTENDDO? ASET TALK ONRETURN（分数：12.00）(1).若程序运行时输入 A 值为 12，B 值为 8，则 A 的输出结果为 _。（分数：3.00）A.2B.4C.12D.8(2).若程序运行时输入 A 值为 9，B 值为 18，则 A 的输出结果为 _。（分数：3.00）A.9B.10C.18D.27(3).若程序运行时输入 A 值为 6，B 值为 4，则 A 的输出结果为 _。（分数：3.00）A.6B.4C.3D.2(4).若程序运行时输入 A 值为 15，B 值为 10，则 A 的输出结果为 _
11、。（分数：3.00）A.6B.10C.5D.1七、B试题 7/B(总题数：1，分数：14.00)1.编写一个用户自定义函数 SGN()，当自变量为正数时，返回 1；当自变量为负数时，返回 -1；当自变量为零时，返回 0。（分数：14.00）_八、B试题 8/B(总题数：1，分数：14.00)2.设计一个简单的表单(如下图所示)。其中 3 个控件分别是：标签 Label1、命令按钮 Com mand1、复选框Check1。为 Command 1 编写 Click 事件，当单击该命令按钮时释放该表单；为 Check 1 编写 Interactive Change 事件，当选中该复选框时在 Labe
12、l1 上显示“身体健康!”字样，否则在 Label1 上不显示任何信息，其中，Command1. Caption“关闭”，Check1. Caption=“合格”。 （分数：14.00）_浙江二级 VISUAL+FOXPRO-1 答案解析(总分：100.00，做题时间：90 分钟)一、B试题 1/B(总题数：1，分数：9.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 打开银行客户关系表，输入一个控制口令控制程序的执行，若口令为 1，则把“银行代码”为 001 的所有记录加上删除标记；若口令为 2，把“银行代码”为 002 的所有记录加上删除标记；若
13、口令为 3，把“银行代码”为 003 的所有记录加上删除标记。【程序】CLEARUSE 银行客户关系表 EXCLUSIVEBROWSE LASTWATT “请输入你的选择：(13)”TO yhdmDO CASECASEU (1) /UDELETE ALL FOR 银行代码“001”BROWSE ALL FOR 银行代码=“001”RECALLCASEU (2) /UDELETE ALL FOR 银行代码“002”BROWSE ALL FOR 银行代码=“002”RECALLCASEU (3) /UDELETE ALL FOR 银行代码“003”BROWSE ALL FOR 银行代码“003”R
14、ECALLENDCASEBROWSEUSE（分数：9.00）A.yhdm“1“ B.yhdm“2“C.yhdm=“3“D.OTHERWISE解析：A.yhdm=“1“B.yhdm=“2“ C.yhdm“3“D.OTHERWISE解析：A.yhdm=“1“B.yhdm“2“C.yhdm“3“ D.OTHERWISE解析：解析 多路选择分支结构的格式： DO CASE CASE条件表达式 1 语句序列 1 CASE条件表达式 2 语句序列 2 CASE条件表达式 n 语句序列 n OTHERWISE 语句序列 n+1 ENDCASE 功能：依次判断条件表达式 1(I1；2、3n)的逻辑值，当值为真
15、(.T.)时，控制执行对应的语句序列 I(I1、2、3n)。OTHERWISE 表示当所有的条件表达式 I(I1、2，3n)的值都为假(.F.)时，则执行语句序列 n+1。CASE 条件语句行的多少根据问题而定。当只有一条 CASE 条件语句行时，DO CASE 控制结构实现的功能与 IF 控制结构相同。 再根据题意能很容易得出第(1)、(2)和(3)题的答案。二、B试题 2/B(总题数：1，分数：15.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 计算 130 之间能够被 3 整除的奇数的阶乘和。【程序】* 主程序SET TALK OFFS=0F
16、OR I1 TO 30 STEP 2IFU (4) /UU (5) /USS+NENDIFENDFOR?“1 到 30 之间能被 3 整除的奇数阶乘和为：”+U (6) /USET TALK ONRETURN* 过程 P1.PRGPARAMETERS MU(7) /UN=1FOR J=1 TO MNN*JENDFORU(8) /U（分数：15.00）A.MOD(I，3)0B.MOD(I，3)0C.MOD(I，3)0D.MOD(I，3)0 解析：解析 由题意知，需找出 130 之间能被 3 整除的奇数。所以用 MOD(I，3)0。A.DO P1B.DO P1 WITH I C.DO P1 HAV
17、E ID.DO P1 OWN I解析：解析 子程序的调用与返回； 调用：DO文件名WITH参数列表)。 返回：RETURN TO MASTER表达式。 本小题的文件名是 P1，把参数 I 传递给 M。A.STR( B.VAL(C.CHR(D.DTOC(解析：解析 STR()是数据型转换成字符型函数，VAL()是字符串型转换成数值型函数，CHR()是 ASCII码转换成字符函数，DTOC()是日期转换成字符函数。A.LOCAL NB.PROTECTEDC.PUBLIC N D.PRIVATE N解析：解析 从主程序和子程序 P1 中可看出变量 N 是同一个变量，所以它是一个公用属性。 公用属性的
18、格式；PUBLIC内存变量列表A.RETURN B.ENDC.END PARAMETERSD.END RETURN解析：解析 子函数的返回用 RETURN。三、B试题 3/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】 模糊查询用户指定表文件中指定字段(字符型)的指定内容，如果用户指定的表文件不存在，给予提示信息。【程序】SET TALK OFFCLEARACCEPT“请输入表文件名(带扩展名)：” TO FILENAMEACCEPT“请输入要查询的字段名(字符型)：” TO FIELDNAMEACCEPT“请输入要查询的
19、内容(字符串)：”TO CHARIF U(9) /UU (10) /UBROWSE FORU (11) /UUSEU (12) /U?“指定的表文件不存在!”ENDIFSET TALK ON（分数：12.00）A.PILE(FILENAM B.TYPE(“& FILENAME”)C.FILE(“FILENAME”)D.FILE(& FILENAM解析：解析 文件测试函数的格式：FILE(字符表达式) 功能：测试指定文件是否存在，其中文件名必须包括扩展名。若该文件存在则返回.T.，否则返回 .F.。输出值类型为逻辑值。A.USE FILENAMEB.USE(FILENAM C.USE & FIL
20、ENAM. DBFD.USE & FILENAM DBF解析：解析 打开表文件用 USE(表文件名)。A.CHAR FIELDNAMEB.AT (CHAR，FIELDNAM0C.CHAR & FIELDNAME D.AT(& CHAR，& FIELDNAM0解析：解析 字符串包含运算符()的格式：字符串 1字符串 2 功能：当字符串 2包含字符串 1，其值为.T.，当字符串 2不包含字符串 1，其值为.F.。 宏代换函数的格式：&字符型内存变量. 功能：用字符型内存变量的“值”去替换内存变量“名”。“.”符号表示变量结束。 子中检索函数的格式： AT(字符表达式 1，字符表达式 2，数值表达式
21、) 功能：该函数返回字符表达式 1在字符表达式 2中第数值表达式次出现的位置。若字符表达式 1不在字符表达式 2中则返回 0；若不给出数值表达式则隐含为 1。 BROWSE FOR条件，指定一个条件，只有条件为“真”的记录才显示在浏览窗口。本题是浏览字段名的内容包含要查询的内容。A.LOOPB.EXITC.ELSE D.IF解析：解析 本题利用 IF ELSE ENDIF 结构。四、B试题 4/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEARX=3DO WHILE .T.X=X+1I
22、F XINT(X/3)*3? XELSELOOPENDIFIF X10EXITENDIFENDDOSET TALK ONRETURN（分数：12.00）(1).当变量 X 的值第一次变化时，X 的输出结果为 _。（分数：3.00）A.3B.6 C.8D.12解析：(2).当变量 X 的值第二次变化时，X 的输出结果为 _。（分数：3.00）A.3B.6C.9 D.10解析：(3).当变量 X 的值第三次变化时，X 的输出结果为 _。（分数：3.00）A.3B.6C.9D.12 解析：(4).若将 X3 改为 X12 时，X 的输出结果为 _。（分数：3.00）A.6B.9C.12D.无任何显示
23、 解析：解析 INT()是取整数函数，如果循环体内有 LOOP 命令，那么当遇到 LOOP 时，就结束循环的本次执行，不再执行其后的语句，而是转回 DO WHILE 处重新判断条件。如果循环体包括 EXIT 命令，那么当遇到 EXIT 时，就结束该循环语句的执行，转去执行 ENDDO 后面的语句。 通常 LOOP 或 EXIT 出现在循环体内嵌套的选择语句时，根据条件来决定是 LOOP 回去，还是 EXIT 出去。 当 X6 和 9 时，只执行第一个 IF循环。当 X=12 时，不仅执行第一个 IF 循环，也要执行第二个 IF 循环，退出 DO WHILE 循环。 当 X 的初值为 12 时，
24、进入 DOWHILE 此时 X=13，此时不执行第一个 IF，执行第二个 IF 循环，退出 DO WHILE 循环，最终没有执行“? X”语句，所以第(16)题的结果无任何显示。五、B试题 5/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】PROCEDURE SUBPARAMETERS A，B，C，DDB* B-4*A*CDO CASECASE D0D0CASE D0D2CASE D0D1ENDCASEENDPROC在主程序中执行如下命令：STORE 1 TO A，CSTORE 2 TO B，DDO SUB WIT
25、H A，B，C，D? D（分数：12.00）(1).D 的输出结果为 _。（分数：3.00）A.0B.1 C.2D.3解析：解析 执行主程序 DO SUB WITH A，B，C，D 时，把实参 1，2，1，2 传递给形参 A，B，C，D。在执行过程 SUB 中语句 D=B*B-4*A*C 后的 D 值为 0，然后执行 DO CASE/ENDCASE 语句，条件 CASED0 成立，宜新赋值 D1，最后返回主程序时，把形参 A，B，C，D 的值 1，2，1，1 传给对应实参 A，B，C，D。此时 D 的值为 1。(2).若将 D=B* B-4*A*C 改为 D=A*A+B*B-C*C，则 D 的
26、输出结果为 _。（分数：3.00）A.0B.1C.2 D.3解析：解析 在执行过程中 SUB 语句 DA*A*+B*B-C*C 后 D 值为 4，然后执行 DO CASE/ ENDCASE 语句，条件 CASE D0 成立，重新赋值 D2。(3).若将 D=B*B-4*A*C 改为 D=A*A-B*C，则 D 的输出结果为 _。（分数：3.00）A.0 B.1C.2D.3解析：解析 在执行过程 SUB 中语句 DA*A-B*C 后 D 值为-1，然后执行 DO CASE/ENDCASE 语句，条件CASE D0 成立，重新赋值 D0。(4).若将? D 改为? A，D，则 A，D 的输出结果分
27、别为 _。（分数：3.00）A.0 1B.1 1 C.2 1D.3 1解析：解析 由第(17)题分析可知，A、D 的值均为 1。六、B试题 6/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFINPUT“请输入 A：” TO AINPUT“请输入 B：” TO BIF ABTAA=BBTENDIFDO WHILE B0TMOD(A，B)ABBTENDDO? ASET TALK ONRETURN（分数：12.00）(1).若程序运行时输入 A 值为 12，B 值为 8，则 A 的输出结果为 _。
28、（分数：3.00）A.2B.4 C.12D.8解析：解析 本程序的功能是求两个数的最大公约数。方法是用两个数中较小的去除较大的，然后将除数作为下一次除的被除数，余数作为下一次除的除数，反复进行这样的操作，直到余数为零时为止，则最后一次除的除数即为所给两个数的最大公约数。(2).若程序运行时输入 A 值为 9，B 值为 18，则 A 的输出结果为 _。（分数：3.00）A.9 B.10C.18D.27解析：解析 9 和 18 的最大公约数是 9。(3).若程序运行时输入 A 值为 6，B 值为 4，则 A 的输出结果为 _。（分数：3.00）A.6B.4C.3D.2 解析：解析 6 和 4 的最
29、大公约数是 2。(4).若程序运行时输入 A 值为 15，B 值为 10，则 A 的输出结果为 _。（分数：3.00）A.6B.10C.5 D.1解析：解析 15 和 10 的最大公约数是 5。七、B试题 7/B(总题数：1，分数：14.00)1.编写一个用户自定义函数 SGN()，当自变量为正数时，返回 1；当自变量为负数时，返回 -1；当自变量为零时，返回 0。（分数：14.00）_正确答案：()解析：程序代码如下： FUNCTION SGN PARAMETERS x DO CASE CASE x0 y=1 CASE x0 y0 OTHERWISE y-1 ENDCASE RETURN y
30、八、B试题 8/B(总题数：1，分数：14.00)2.设计一个简单的表单(如下图所示)。其中 3 个控件分别是：标签 Label1、命令按钮 Com mand1、复选框Check1。为 Command 1 编写 Click 事件，当单击该命令按钮时释放该表单；为 Check 1 编写 Interactive Change 事件，当选中该复选框时在 Label1 上显示“身体健康!”字样，否则在 Label1 上不显示任何信息，其中，Command1. Caption“关闭”，Check1. Caption=“合格”。 （分数：14.00）_正确答案：()解析：编写 Command1 的 Click 事件代码如下： ThisForm. Release 编写 Check1 的 InteractiveChange事件代码如下： IF This. Value1 ThisForm. Label1Caption“身体健康!” ELSE ThisForm. Label1，Caption“” ENDIF 解析 InteractiveChange 是一个当用户使用键盘或鼠标更改控制的值时发生的事件。当复选框处于选中状态时，其 Value 值为 1，否则为 0。
