1、浙江计算机二级 VF模拟试卷 7及答案与解析 一、程序阅读选择题 阅读下列程序说明并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 0 【程序说明】 打开银行客户关系表，输入一个控制口令控制程序的执行，若口令为 1，则把 “银行代码 ”为 001的所有记录加上删除标记；若口令为 2，把 “银行代码 ”为 002的所有记录加上删除标记；若口令为 3，把 “银行代码 ”为 003的所有记录加上删除标记。 【程序】 CLEAR USE 银行客户关系表 EXCLUSIVE BROWSE LAST WATT “请输入你的选择： (13)”TO yhdm DO CASE CASE (1) DE
2、LETE ALL FOR 银行代码 “001” BROWSE ALL FOR 银行代码 =“001” RECALL CASE (2) DELETE ALL FOR 银行代码 “002” BROWSE ALL FOR 银行代码 =“002” RECALL CASE (3) DELETE ALL FOR 银行代码 “003” BROWSE ALL FOR 银行代码 “003” RECALL ENDCASE BROWSE USE （ A） yhdm “1“ （ B） yhdm “2“ （ C） yhdm=“3“ （ D） OTHERWISE （ A） yhdm=“1“ （ B） yhdm=“2“ （
3、 C） yhdm “3“ （ D） OTHERWISE （ A） yhdm=“1“ （ B） yhdm “2“ （ C） yhdm “3“ （ D） OTHERWISE 3 【程序说明】 计算 1 30之间能够被 3整除的奇数的阶乘和。 【程序】 * 主程序 SET TALK OFF S=0 FOR I 1 TO 30 STEP 2 IF (4) (5) S S+N ENDIF ENDFOR ?“1到 30之间能被 3整除的奇数阶乘和为： ”+ (6) SET TALK ON RETURN * 过程 P1.PRG PARAMETERS M (7) N=1 FOR J=1 TO M N N*J
4、ENDFOR (8) （ A） MOD(I， 3) 0 （ B） MOD(I， 3) 0 （ C） MOD(I， 3) 0 （ D） MOD(I， 3) 0 （ A） DO P1 （ B） DO P1 WITH I （ C） DO P1 HAVE I （ D） DO P1 OWN I （ A） STR(S) （ B） VAL(S) （ C） CHR(S) （ D） DTOC(S) （ A） LOCAL N （ B） PROTECTED （ C） PUBLIC N （ D） PRIVATE N （ A） RETURN （ B） END （ C） END PARAMETERS （ D） END R
5、ETURN 8 【程序说明】 模糊查询用户指定表文件中指定字段 (字符型 )的指定内容，如果用户指定的表文件不存在，给予提示信息。 【程序】 SET TALK OFF CLEAR ACCEPT“请输入表文件名 (带扩展名 )： ” TO FILENAME ACCEPT“请输入要查询的字段名 (字符型 )： ” TO FIELDNAME ACCEPT“请输入要查询的内容 (字符串 )： ”TO CHAR IF (9) (10) BROWSE FOR (11) USE (12) ?“指定的表文件不存在 !” ENDIF SET TALK ON （ A） PILE(FILENAME) （ B） TY
6、PE(“& FILENAME”) （ C） FILE(“FILENAME”) （ D） FILE(& FILENAME) （ A） USE FILENAME （ B） USE(FILENAME) （ C） USE & FILENAME DBF （ D） USE & FILENAME. DBF （ A） CHAR FIELDNAME （ B） AT (CHAR， FIELDNAME) 0 （ C） CHAR & FIELDNAME （ D） AT(& CHAR， & FIELDNAME) 0 （ A） LOOP （ B） EXIT （ C） ELSE （ D） IF 12 【程序】 SET TA
7、LK OFF CLEAR X=3 DO WHILE .T. X=X+1 IF X INT(X/3)*3 ? X ELSE LOOP ENDIF IF X 10 EXIT ENDIF ENDDO SET TALK ON RETURN 13 当变量 X的值第一次变化时， X的输出结果为 _。 （ A） 3 （ B） 6 （ C） 8 （ D） 12 14 当变量 X的值第二次变化时， X的输出结果为 _。 （ A） 3 （ B） 6 （ C） 9 （ D） 10 15 当变量 X的值第三次变化时， X的输出结果为 _。 （ A） 3 （ B） 6 （ C） 9 （ D） 12 16 若将 X 3改
8、为 X 12时， X的输出结果为 _。 （ A） 6 （ B） 9 （ C） 12 （ D）无任何 显示 16 【程序】 PROCEDURE SUB PARAMETERS A， B， C， D D B* B-4*A*C DO CASE CASE D 0 D 0 CASE D 0 D 2 CASE D 0 D 1 ENDCASE ENDPROC 在主程序中执行如下命令： STORE 1 TO A， C STORE 2 TO B， D DO SUB WITH A， B， C， D ? D 17 D的输出结果为 _。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 18 若将 D=B* B-
9、4*A*C改为 D=A*A+B*B-C*C，则 D的输出结果为 _。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 19 若将 D=B*B-4*A*C改为 D=A*A-B*C，则 D的输出结果为 _。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 20 若将 ? D改为 ? A， D，则 A， D的输出结果分别为 _。 （ A） 0 1 （ B） 1 1 （ C） 2 1 （ D） 3 1 20 【程序】 SET TALK OFF INPUT“请输入 A： ” TO A INPUT“请输入 B： ” TO B IF A B T A A=B B T ENDIF DO WHIL
10、E B 0 T MOD(A， B) A B B T ENDDO ? A SET TALK ON RETURN 21 若程序运行时输入 A值为 12， B值为 8，则 A的输出结果为 _。 （ A） 2 （ B） 4 （ C） 12 （ D） 8 22 若程序运行时输入 A值为 9， B值为 18，则 A的输出结果为 _。 （ A） 9 （ B） 10 （ C） 18 （ D） 27 23 若程序运行时输入 A值为 6， B值为 4，则 A的输出结果为 _。 （ A） 6 （ B） 4 （ C） 3 （ D） 2 24 若程序运行时输入 A值为 15， B值为 10，则 A的输出结果为 _。 （
11、 A） 6 （ B） 10 （ C） 5 （ D） 1 二、编写程序题 25 编写程序，从键盘输入十个数，然后提出其中的最大值和最小值。 26 设计一个表单，当单击 “计算 ”按钮时，求出连续 N个不是 7的倍数的自然数之和，当和是 101的倍数时，则在列表框中显示所有求出的不是 7的倍数的数 (如下图所示 )。试编写 “计算 ”按钮的 Click事件代码。 浙江计算机二级 VF模拟试卷 7答案与解析 一、程序阅读选择题 阅读下列程序说明并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 1 【正确答案】 A 2 【正确答案】 B 3 【正确答案】 C 【试题解析】 多路选择分支结构
12、的格式： DO CASE CASE条件表 达式 1 语句序列 1 CASE条件表达式 2 语句序列 2 CASE条件表达式 n 语句序列 n OTHERWISE 语句序列 n+1 ENDCASE 功能：依次判断条件表达式 1 (I 1； 2、 3n) 的逻辑值，当值为真 (.T.)时，控制执行对应的语句序列 I (I 1、 2、 3n) 。 OTHERWISE 表示当所有的条件表达式 I (I 1、 2， 3n) 的值都为假 (.F.)时，则执行语句序列 n+1。CASE条件语句行的多少根据问题而定。当只有一条 CASE条件语句行时， DO CASE控制结构实现的功能与 IF控制结构相同。 再
13、根据题意能很容易得出第 (1)、 (2)和 (3)题的答案。 4 【正确答案】 D 【试题解析】 由题意知，需找出 1 30之间能被 3整除的奇数。所以用MOD(I， 3) 0。 5 【正确答案】 B 【试题解析】 子程序的调用与返回； 调用： DO文件名 WITH参数列表 )。 返回： RETURN TO MASTER表达式 。 本小题的文件名是 P1，把 参数 I传递给 M。 6 【正确答案】 A 【试题解析】 STR()是数据型转换成字符型函数， VAL()是字符串型转换成数值型函数， CHR()是 ASCII码转换成字符函数， DTOC()是日期转换成字符函数。 7 【正确答案】 C
14、【试题解析】 从主程序和子程序 P1中可看出变量 N是同一个变量，所以它是一个公用属性。 公用属性的格式； PUBLIC内存变量列表 8 【正确答案】 A 【试题解析】 子函数的返回用 RETURN。 9 【正确答案】 A 【试题解析】 文件测试函 数的格式： FILE(字符表达式 ) 功能：测试指定文件是否存在，其中文件名必须包括扩展名。若该文件存在则返回 .T.，否则返回 .F.。输出值类型为逻辑值。 10 【正确答案】 B 【试题解析】 打开表文件用 USE(表文件名 )。 11 【正确答案】 C 【试题解析】 字符串包含运算符 ( )的格式：字符串 1字符串 2 功能：当字符串 2包含
15、字符串 1，其值为 .T.，当字符串 2不包含字符串 1，其值为 .F.。 宏代换函数的格式： &字符型内存变量 . 功能：用字符型内存变量的 “值 ”去替换内存变量 “名 ”。 “.”符号表示变量结束。 子中检索函数的格式： AT(字符表达式 1，字符表达式 2 ，数值表达式 ) 功能：该函数返回字符表达式 1在字符表达式 2中第数值表达式次出现的位置。若字符表达式 1不在字符表达式 2中则返回 0；若不给出数值表达式则隐含为 1。 BROWSE FOR条件，指定一个条件，只有条件为 “真 ”的记录才显示在浏览窗口。本题是浏览字段名的内容包含要查询的内容。 12 【正确答案】 C 【试题解析
16、】 本题利用 IF ELSE ENDIF 结构。 13 【正确答案】 B 14 【正确答案】 C 15 【正确答案】 D 16 【正确答案】 D 【试题解析】 INT()是取整数函数，如果循环体内有 LOOP命令，那么当遇到LOOP时，就结束循环的本次执行，不再执行其后的语句，而是转回 DO WHILE处重新判断条件。如果循环体包括 EXIT命令，那么当遇到 EXIT时，就结束该循环语句的执行，转去执行 ENDDO后面的语句。 通常 LOOP或 EXIT出现在循环体内嵌套的选 择语句时，根据条件来决定是LOOP回去，还是 EXIT出去。 当 X 6和 9时，只执行第一个 IF循环。当 X=12
17、时，不仅执行第一个 IF循环，也要执行第二个 IF循环，退出 DO WHILE循环。 当 X的初值为 12时，进入 DOWHILE此时 X=13，此时不执行第一个 IF，执行第二个 IF循环，退出 DO WHILE循环，最终没有执行 “? X”语句，所以第 (16)题的结果无任何显示。 17 【正确答案】 B 【试题解析】 执行主程序 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语句，条件 CASED 0成立，宜新赋值 D1
18、，最后返回主程序时，把形参 A， B， C， D的值 1， 2， 1， 1传给对应实参 A，B， C， D。此时 D的值为 1。 18 【正确答案】 C 【试题解析】 在执行过程中 SUB语句 D A*A*+B*B-C*C后 D值为 4，然后执行 DO CASE/ ENDCASE语句，条件 CASE D 0成立，重新赋值 D 2。 19 【正确答案】 A 【试题解析】 在执行过程 SUB中语句 D A*A-B*C后 D值为 -1，然后执行 DO CASE/ENDCASE语句，条件 CASE D 0成立，重新赋值 D 0。 20 【正确答案】 B 【试题解析】 由第 (17)题分析可知， A、
19、D的值均为 1。 21 【正确答案】 B 【试题解析】 本程序的功能是求两个数的最大公约数。方法是用两个数中较小的去除较大的，然后将除数作为下一次除的被除数，余数作为下一次除的除数，反复进行这样的操作，直到余数为零时为止，则最后一次除的除数即为所给两个数的最大公约数。 22 【正确 答案】 A 【试题解析】 9和 18的最大公约数是 9。 23 【正确答案】 D 【试题解析】 6和 4的最大公约数是 2。 24 【正确答案】 C 【试题解析】 15和 10的最大公约数是 5。 二、编写程序题 25 【正确答案】 程序代码如下： CLEAR INPUT“请输入一个数： ” TO a STORE
20、a TO ma， mi FOR i 2 TO 10 INPUT“请输入一个数： ” TO a IF ma a ma=a ENDIF IF mi a mi a ENDIF ENDFOR ?“最大值： ”， ma ?“最小值； ”， mi RETURN 26 【正确答案】 编写 Command1的 Click事件代码如下： THISFORM. LIST1. CLEAR STORE 0 TO AA， BB DO WHILE .T. BB BB+1 IF MOD (BB， 7) 0 THISFORM. LIST1. ADDLISTITEM(STR(BB， 5)， BB， 1) AA AA+BB THISFORM. LIST1. ADDLISTITEM(STR(AA， 5)， BB， 2) IF MOD(AA， 101) 0 EXIT ENDIF ENDIF ENDDO
