1、浙江二级 VISUAL+FOXPRO-试题 12及答案解析(总分：100.00，做题时间：90 分钟)一、试题 1(总题数：1，分数：12.00)程序说明 程序功能是计算 160 之间能被 3整除的奇数的阶乘和。 程序 SET TALK OFF S=0 FOR I=1 TO 60 STEP 2 IF _ _ S=S+N ENDIF ENDFOR ? “1到 60之间能被 3整除的“ ? “奇数阶乘和为:“+STR(S) SET TALK ON PROC P1 PARAMETERS M PUBLIC N _ FOR J=1 TO M N=N*J ENDFOR _（分数：12.00）A.I=3B.
2、I%3=0C.I%2=0D.I%30A.DO P1 PARA IB.DO P1 OWN IC.DO P1 WITHD.DO P1 WITH IA.N=0B.N=1C.N=-1D.N=N!A.RETURNB.EXITC.LOOPD.CASE二、试题 2(总题数：1，分数：12.00)程序说明 程序用来显示指定表记录内容，每显示 5条记录程序即暂停，以便查看。 程序 SET TALK OFF CLEAR ACCEPT “请输入数据表名:“ TO BM USE _ ? RECNO() GO TOP DO WHILE. NOT. EOF() LIST _ _ _ ENDDO USE（分数：12.00）
3、A.BMB.&BMC.#BMD.! BMA.SKIP 4B.NEXT 4C.NEXT 5D.SKIP 5A.SKIPB.SKIP-1C.SKIP-2D.SKIP 2A.OPENB.ACCEPTC.INPUTD.WAIT三、试题 3(总题数：1，分数：12.00)程序说明 程序的功能是：从键盘输入 10个数，按降序(从大到小的顺序)排列并显示在屏幕上。请将程序空白处填充完整。 程序 SET TALK OFF CLEAR DIMENSION _ FOR I=1 TO 10 INPUT “请输入一个数:“ TO SS(I) ENDFOR FOR I=1 TO 9 FOR J=I+1 TO 10 IF
4、 _ LS=SS(I) SS(I)=SS(J) SS(J)=LS ENDIF _ ? SS(I) ENDFOR ? _ SET TALK ON RETURN（分数：12.00）A.SS(9)B.SS(10)C.SS(11)D.SS(I)A.SS(I)SS(J)B.SS(I)SS(J)C.SS(I)!=SS(J)D.SS(I)SS(J)A.ENDFORB.ENDDOC.EXITD.LOOPA.SS(2)B.SS(I)C.SS(10)D.SS(J)四、试题 4(总题数：1，分数：12.00)程序 SET TALK OFF CLEAR INPUT “X=“ TOM T=0 FOR N=1 TO M
5、P=1 FOR I=1 TO N P=P*I ENDFOR T=T+P ENDFOR ? “T=“,T RETURN SET TALK ON（分数：12.00）(1).若输入 X值为 2，则输出结果为_。（分数：3.00）A.T=1B.T=2C.T=3D.T=4(2).若输入 X值为 3，则输出结果为_。（分数：3.00）A.T=6B.T=7C.T=8D.T=9(3).若输入 X值为 4，则输出结果为_。（分数：3.00）A.T=9B.T=24C.T=30D.T=33(4).若输入 X值为 5，则输出结果为_。（分数：3.00）A.T=153B.T=120C.T=99D.T=39五、试题 5(
6、总题数：1，分数：12.00)程序 SET TALK OFF CLEAR STORE 1 TO X STORE 30 TO Y DO WHILE X=Y IF INT(X/2)X/2 X=1+X2 Y=Y+1 LOOP ELSE X=X+1 ENDIF ENDDO ? X ? Y SET TALK ON RETURN（分数：12.00）(1).X的输出结果为_。（分数：3.00）A.100B.10C.121D.122(2).Y 的输出结果为_。（分数：3.00）A.33B.32C.31D.30(3).若将 IF语句的条件 INT(X/2)X/2 改为 INT(X/2)=X/2，则 X的输出结果
7、为_。（分数：3.00）A.5B.24C.37D.50(4).若将 IF语句的条件 INT(X/2)X/2 改为 INT(X/2)=X/2，则 Y的输出结果为_。（分数：3.00）A.31B.32C.33D.34六、试题 6(总题数：1，分数：12.00)程序 * *TSET. PRG a=5 b=6 c=7 DO SUB1 ? “a2,b2,c2=“,a,b,c DO SUB2 WITH a+b,c,10 ? “a3,b3,c3=“,a,b,c RETURN * *SUB1. PRG PRIVATE b,c a=21 b=22 c=23 ? “a1,b1,c1=“,a,b,c RETURN
8、DO SUB1 RETURN * *SUB2. PRG PARAMETER x,y,z ? “x,y,z=“,x,y,z x=31 y=32 z=33（分数：12.00）(1).输出语句? “a1,b1,c1=“,a,b,c 中 a,b,c的结果分别为_。（分数：3.00）A.21 6 32B.5 6 7C.5 22 23D.21 22 23(2).输出语句? “a2,b2,c2=“,a,b,c 中 a,b,c的结果分别为_。（分数：3.00）A.21 6 32B.5 6 7C.21 22 23D.21 6 7(3).x,y,z的输出结果分别为_。（分数：3.00）A.5 6 7B.21 22
9、 23C.27 7 10D.31 32 33(4).输出语句? “a3,b3,c3=“,a,b,c 中 a,b,c的结果分别为_。（分数：3.00）A.21 6 32B.31 32 33C.27 7 10D.5 6 7七、试题 7(总题数：1，分数：14.00)1.编写程序，求出所有水仙花数及其个数。水仙花数为一个三位数，它的各位数的立方和等于它本身，如153=1 3 +5 3 +3 3 。 （分数：14.00）_八、试题 8(总题数：1，分数：14.00)2.编写程序，从键盘输入一串字符(口令)，自动判断输入的口令是否与系统的口令(自设)一致。是则显示相应的欢迎信息；否则有 3次机会。输出次
10、数在 3次以内，给予重输的提示；输入次数超过 3次，则显示无权使用系统的提示。 （分数：14.00）_浙江二级 VISUAL+FOXPRO-试题 12答案解析(总分：100.00，做题时间：90 分钟)一、试题 1(总题数：1，分数：12.00)程序说明 程序功能是计算 160 之间能被 3整除的奇数的阶乘和。 程序 SET TALK OFF S=0 FOR I=1 TO 60 STEP 2 IF _ _ S=S+N ENDIF ENDFOR ? “1到 60之间能被 3整除的“ ? “奇数阶乘和为:“+STR(S) SET TALK ON PROC P1 PARAMETERS M PUBLI
11、C N _ FOR J=1 TO M N=N*J ENDFOR _（分数：12.00）A.I=3B.I%3=0 C.I%2=0D.I%30解析：解析 %：取模运算符。若 160 的任何数与 3的模为 0，则可被 3整除。A.DO P1 PARA IB.DO P1 OWN IC.DO P1 WITHD.DO P1 WITH I 解析：解析 此空功能是调用 P1过程，把主程序中的变量 I传递给 P1中的参数 M。子程序的调用与返回： 调用：DO文件名WITH参数列表 返回：RETURNTO MASTER表达式A.N=0B.N=1 C.N=-1D.N=N!解析：解析 P1 中的变量 N表示能被 3整
12、除的奇数的阶乘，初始值应赋值 1。A.RETURN B.EXITC.LOOPD.CASE解析：解析 调用 P1后，应返回主程序某个值，所以此空应该用 RETURN返回语句。二、试题 2(总题数：1，分数：12.00)程序说明 程序用来显示指定表记录内容，每显示 5条记录程序即暂停，以便查看。 程序 SET TALK OFF CLEAR ACCEPT “请输入数据表名:“ TO BM USE _ ? RECNO() GO TOP DO WHILE. NOT. EOF() LIST _ _ _ ENDDO USE（分数：12.00）A.BMB.&BM C.#BMD.! BM解析：解析 宏代换函数的
13、格式：&字符型内存变量. 功能：用字符型内存变量的“值”去替换内存变量“名”。“.”符号表示变量结束。此空是用宏替换表文件名 BM。A.SKIP 4B.NEXT 4C.NEXT 5 D.SKIP 5解析：解析 题中要求每 5条记录程序暂停，所以此空应为 NEXT 5。NEXT N：下面 N条记录包括当前指针指向的记录。SKIP N：不包括当前指针指向的记录。A.SKIP B.SKIP-1C.SKIP-2D.SKIP 2解析：解析 每 5条记录查找后，就把指针指向下一条记录，以便查找下 5条记录。A.OPENB.ACCEPTC.INPUTD.WAIT 解析：解析 OPEN：打开，ACCEPT：接
14、收，INPUT：输入，WAIT：暂停等待。三、试题 3(总题数：1，分数：12.00)程序说明 程序的功能是：从键盘输入 10个数，按降序(从大到小的顺序)排列并显示在屏幕上。请将程序空白处填充完整。 程序 SET TALK OFF CLEAR DIMENSION _ FOR I=1 TO 10 INPUT “请输入一个数:“ TO SS(I) ENDFOR FOR I=1 TO 9 FOR J=I+1 TO 10 IF _ LS=SS(I) SS(I)=SS(J) SS(J)=LS ENDIF _ ? SS(I) ENDFOR ? _ SET TALK ON RETURN（分数：12.00）
15、A.SS(9)B.SS(10) C.SS(11)D.SS(I)解析：解析 在本程序中，通过数组 SS来进行数值的比较和排序，因此第 3条语句应是定义一个能存放10个元素的数组 SS的命令语句 DIMENSION SS(10)。A.SS(I)SS(J)B.SS(I)SS(J)C.SS(I)!=SS(J)D.SS(I)SS(J) 解析：解析 程序中对输入数据进行比较的思路是：先将第 1个数和第 2至第 10个数逐个比较，若第 1个数小于第 2至第 10个数中的任一个，则将这两个数互换，当外循环执行一次后，第 1个数(即数组的第一个元素)应是最大的数，并显示在屏幕上。然后再用第 2个数(即第 2个数
16、组元素)和第 3至第 10个数比较，类似的，最后得到的第 2个数组元素是第 2大数一直到最后得到第 9个数，循环全部结束。从以上程序思路可知，IF 后的条件应是指定数组元素 SS(I)和其后面的数组元素 SS(J)的比较，即 SS(I)SS(J)。A.ENDFOR B.ENDDOC.EXITD.LOOP解析：解析 循环结构 FORENDFOR成对出现。A.SS(2)B.SS(I)C.SS(10) D.SS(J)解析：解析 循环全部结束后，最后剩下最小的第 10个数(即第 10个数组元素)还没有显示，因此最后空白处是显示 SS(10)的值。四、试题 4(总题数：1，分数：12.00)程序 SET
17、 TALK OFF CLEAR INPUT “X=“ TOM T=0 FOR N=1 TO M P=1 FOR I=1 TO N P=P*I ENDFOR T=T+P ENDFOR ? “T=“,T RETURN SET TALK ON（分数：12.00）(1).若输入 X值为 2，则输出结果为_。（分数：3.00）A.T=1B.T=2C.T=3 D.T=4解析：解析 本大题程序段是求 1M 个数的阶乘之和。当 M=2时，T=1!+2!=3。(2).若输入 X值为 3，则输出结果为_。（分数：3.00）A.T=6B.T=7C.T=8D.T=9 解析：解析 当 M=3时,T=1!+2!+3!=9
18、。(3).若输入 X值为 4，则输出结果为_。（分数：3.00）A.T=9B.T=24C.T=30D.T=33 解析：解析 当 M=4时，T=1!+2!+3!+4!=33。(4).若输入 X值为 5，则输出结果为_。（分数：3.00）A.T=153 B.T=120C.T=99D.T=39解析：解析 当 M=5时，T=1!+2!+3!+4!+5!=153。五、试题 5(总题数：1，分数：12.00)程序 SET TALK OFF CLEAR STORE 1 TO X STORE 30 TO Y DO WHILE X=Y IF INT(X/2)X/2 X=1+X2 Y=Y+1 LOOP ELSE
19、X=X+1 ENDIF ENDDO ? X ? Y SET TALK ON RETURN（分数：12.00）(1).X的输出结果为_。（分数：3.00）A.100B.10C.121D.122 解析：(2).Y 的输出结果为_。（分数：3.00）A.33 B.32C.31D.30解析：解析 当 X不能被 2整除时执行 IF的 X=1+X2语句，否则执行 ELSE的 X=X+1语句。当 X=1时，执行 IF语句，X=1+X2=1+2=3，Y=31，当 X=3时，执行 IF语句，X=1+X2=10，Y=32，当 X=10时，执行IF的 ELSE语句，X=X+1=11，当 X=11时，执行 IF语句
20、X=1+X2=1+11 2 =122，Y=33。当 X=122时，结束DO WHILE循环。输出 X值为 122，Y 值为 33。(3).若将 IF语句的条件 INT(X/2)X/2 改为 INT(X/2)=X/2，则 X的输出结果为_。（分数：3.00）A.5B.24C.37 D.50解析：(4).若将 IF语句的条件 INT(X/2)X/2 改为 INT(X/2)=X/2，则 Y的输出结果为_。（分数：3.00）A.31B.32 C.33D.34解析：解析 当 X能被 2整除时执行 IF的 X=1+X2语句，否则执行 ELSE的 X=X+1语句。当 X=1时，执行 X=X+1=2。当 X=
21、2时，X=1+X2=5，Y=Y+1=30+1=31，当 X=5时，执行 X=X+1=6，当 X=6时，X=1+X2=37，Y=Y+1=32。X=37 不满足 DO WHILE循环条件，所以退出循环。输出 X值为 37，Y 值为 32。六、试题 6(总题数：1，分数：12.00)程序 * *TSET. PRG a=5 b=6 c=7 DO SUB1 ? “a2,b2,c2=“,a,b,c DO SUB2 WITH a+b,c,10 ? “a3,b3,c3=“,a,b,c RETURN * *SUB1. PRG PRIVATE b,c a=21 b=22 c=23 ? “a1,b1,c1=“,a,
22、b,c RETURN DO SUB1 RETURN * *SUB2. PRG PARAMETER x,y,z ? “x,y,z=“,x,y,z x=31 y=32 z=33（分数：12.00）(1).输出语句? “a1,b1,c1=“,a,b,c 中 a,b,c的结果分别为_。（分数：3.00）A.21 6 32B.5 6 7C.5 22 23D.21 22 23 解析：解析 调用 DO SUB1时，SUB1 中输出的 a，b，c 值应为本程序中 a，b，c 的值。(2).输出语句? “a2,b2,c2=“,a,b,c 中 a,b,c的结果分别为_。（分数：3.00）A.21 6 32B.5
23、6 7C.21 22 23D.21 6 7 解析：解析 在 SUB1中，重新定义了与 TEST中重名的私有变量 b，c，所以 TEST中的 b，c 不随 SUB1中 b，c 值的改变而改变，但 TEST中的变量 a已被 SUB1中的 a重新赋值为 21。所以本小题输出 a，b，c的结果分别为 21，6，7。(3).x,y,z的输出结果分别为_。（分数：3.00）A.5 6 7B.21 22 23C.27 7 10 D.31 32 33解析：解析 由上一小题知 a值为 21，故 a+b=27。调用 SUB2时，把实参 a+b，c，10 传递给 SUB2中的x，y，z，所以 SUB2中输出 x，y
24、，z 的值分别为 27，7，10。(4).输出语句? “a3,b3,c3=“,a,b,c 中 a,b,c的结果分别为_。（分数：3.00）A.21 6 32 B.31 32 33C.27 7 10D.5 6 7解析：解析 当调用完 SUB2后，a，b 的值不改变，而 c的值随着 SUB2中的 y值而改变。所以本小题输出 a，b，c 的结果分别为 21，6，32。七、试题 7(总题数：1，分数：14.00)1.编写程序，求出所有水仙花数及其个数。水仙花数为一个三位数，它的各位数的立方和等于它本身，如153=1 3 +5 3 +3 3 。 （分数：14.00）_正确答案：()解析：程序代码如下：
25、SET TALK OFF CLEAR FOR i=100 TO 999 a=INT(i/100) b=ITN(i/10)%10 C=MOD(i,10) IF i=a* *3+b* *3+c* *3 ? i ENDIF ENDFOR SET TALK ON RETURN八、试题 8(总题数：1，分数：14.00)2.编写程序，从键盘输入一串字符(口令)，自动判断输入的口令是否与系统的口令(自设)一致。是则显示相应的欢迎信息；否则有 3次机会。输出次数在 3次以内，给予重输的提示；输入次数超过 3次，则显示无权使用系统的提示。 （分数：14.00）_正确答案：()解析：程序代码如下： SET TALK OFF CLEAR C=“ “ FOR I=1 TO 3 ACCEPT C+“请输入口令:“TO PSW IF ALLTRIM(PSW)=“MANAGER“ ? “欢迎使用本系统!“ EXIT ENDIF C=“口令输入错误，再试一次!“ ENDFOR IF I3 ? “对不起，你无权使用本系统“ ENDIF USE SET TALK ON
