1、浙江计算机二级 VF模拟试卷 10及答案与解析 一、程序阅读选择题 阅读下列程序说明并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 0 【程序说明】程序功能是计算一个整数的各位数字之和。 【程序】 SET TALK OFF INPUT“x ”TO x s 0 DO WHILE x!=0 s s+ MOD(x， 10) (1) (2) ? S SET TALK ON （ A） x INT(x*10) （ B） x INT(x/10) （ C） x x-INT(x/10) （ D） x x-INT(x*10) （ A） ENDFOR （ B） ENDCASE （ C） EXIT （
2、D） ENDDO 2 【程序说明】假设用户名和口令存储在自由表 “口令表 ”中，当用户输入用户名和口令并单击 “登录 ”按钮时，若用户名输入错误，则提示 “用户名错误 ”；若用户名输入正确，而口令输入错误，则提示 “口令错误 ”。命令按钮 “登录 ”的 Click事件中的代码如下。 【程序】 USE 口令表 GO TOP flag 0 DO WHILE (3) IF Alltrim (用 户名 )= Alltrim(Thisform. Text1. Value) IF Alltrim (口令 ) Alltrim(Thisform. Text2， Value) WAIT“欢迎使用 ”WINDOW
3、 TTMEOUT2 ELSE WATT“口令错误 ” WINDOW TIMEOUT2 ENDIF flag 1 EXIT ENDIF SKIF ENDDO IF (4) WAIT“用户名错误 ”WINDOW TIMEOUT2 ENPIF （ A） BOF() （ B） .NOT.BOF() （ C） EOF() （ D） .NOT.EOF() （ A） flag 1 （ B） flag 0 （ C） flag TRUE （ D） flag=FALSE 4 【程序说明】程序功能是若输入的 N值为 5，则输出结果如下： 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 【程序】 SET
4、TALK OFF CLEAR INPUT“N ”TO N DIME A(N， N) P=N DO WHILE N 0 A(N， N)=1 (5) N N-1 ENDDO FOR I 3 TO (6) FOR J 2 TO I-1 A(I， J)= (7) ENDFOR ENDFOR FOR I 1 TO P ? SPACE(3*(P-I+1) FOR J 1 TO I ? STR(A(I， J)， 3) (8) ? ENDFOR SET TALK ON （ A） A(1， N)=1 （ B） A(1， N-1) 1 （ C） A(N， 1)=1 （ D） A(N-1， 1) 1 （ A） P-
5、1 （ B） P （ C） N-1 （ D） N+1 （ A） A(I1， J1)+A(I1， J) （ B） A(I， J)+A(I1， J1) （ C） A(I1， J)+A(I1， J) （ D） A(I1， J1)+A(I1， J1) （ A） EXIT （ B） ENDCASE （ C） ENDDO （ D） ENDFOR 8 【程序说明】程序功能是对任意一个表都可以追加、删除记录。 【程序】 SET TALK OFF ACCEPT“请输入文件名： ”TO NAME USE (9) ?“1.追加记录 ” ?“2.删除记录 ” WAIT“请选择 (12)： ”TO M IF (10)
6、APPEND BLANK EDIT ELSE INPUT“输入要删除的记录号： ”TO N (11) DELETE PACK (12) USE SET TALK ON RETURN （ A） &NAME （ B） NAME （ C）表 NAME （ D） .NAME （ A） M “1 2” （ B） M “2” （ C） M=“1” （ D） M=“追加记录 ” （ A） GOTO 1 （ B） GOTO TOP （ C） GOTO BOTT （ D） GOTO N （ A） ENDFOR （ B） ENDIF （ C） EXIT （ D） LOOP 12 【程序】 SET TAIK OFF
7、 STORE 0 TO M， N DO WHILE M 30 N N+3 M M+N ENDDO ? M， N SET TALK ON PETURN 13 M的输出结果为 _。 （ A） 30 （ B） 45 （ C） 18 （ D） 9 14 N的输出结果为 _。 （ A） 30 （ B） 15 （ C） 12 （ D） 9 15 若将 DO WHILE的循环条件 M 30改为 M 30，则 M， N的输出结果为 _。 （ A） 0 0 （ B） 12 30 （ C） 45 15 （ D）无任何输出 16 若将 DO WHILE 的循环条件 M 30改为 .T.，则 M、 N的输出结果为 _
8、。 （ A） 30 12 （ B） 12 30 （ C） 45 15 （ D）死循环 16 【程序】 SET TALK OFF CLEAR INPUT“N=”TO N INPUT“M=”TO M X=MIN(N， M) FOR I X TO 1 STEP -1 IF M/I INT(M/I)AND N/I=INT(N/I) Y1=I EXIT ENDIF ENDFOR ?“Y1=”+ALLTRIM(STR(Y1， 19)+“， Y2 ”+ALLTRIM(STR(M， N)/Y1， 19) SET TALK ON 17 若输入 N、 M的值分别为 6， 8，则 Y1的输出结果为 _。 （ A）
9、0 （ B） 1 （ C） 2 （ D） 3 18 若输入 N， M的值分别为 6， 8，则 Y2的输出结果为 _。 （ A） 16 （ B） 24 （ C） 22 （ D） 20 19 若输入 N， M的值分别为 3， 9，则 Y1的输出结果为 _。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 20 若输入 N， M的值分别为 3， 9，则 Y2的输出结果为 _。 （ A） 7 （ B） 9 （ C） 12 （ D） 3 20 【程序】 * * MAIN. PRG X1 1 X2=3 DO P1 W1TH X1， (X2) ? “ X1 ”+STR(X1， 1)， “X2 ”+
10、STR(X2， 1) X1 2 X2 4 DO P1 WITH X1， X1+ X2 ?“X1 ”+STR(X1， 1)， “X2=”+STR(X2， 1) RETURN * * P1. PRG PARA W1， W2 W1 W1 * 2 W2 W2 * 2 RETURN 21 当第一次调用 P1时， X1的输出结果为 _。 （ A） 1 （ B） 2 （ C） 3 （ D） 4 22 当第一次调用 P1时， X2的输出结果为 _。 （ A） 3 （ B） 4 （ C） 5 （ D） 6 23 当第二次调用 P1时， X1的输出结果为 _。 （ A） 1 （ B） 2 （ C） 3 （ D）
11、4 24 当第二次调用 P1时， X2的输出结果为 _。 （ A） 3 （ B） 4 （ C） 5 （ D） 6 二、编写程序题 25 编程求 100 1000之间能同时 3和 7整除的数的个数。 26 设计一个表单 (如下图所示 )，判断一个正数是不是素数。 要求：在文本框中输入一个正数，单击 “确定 ”按钮后显示结果，单击 “退出 ”按钮释放表单。控件的主要属性： Labe11. Caption “请输入一个正数： ”Labe12.Caption=“判断结果： ”Command1. Caption “确定 ”Command2. Caption=“退出 ”Text1.Value2 浙江计算机
12、二级 VF模拟试卷 10答案与解析 一、程序阅读选择题 阅读下列程序说明并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 1 【正确答案】 B 【试题解析】 此程序运行步骤如下：首先等待用户屏幕输入一个数字，由变量 x保存该数字；将 0赋值给变量 s，此变量用于计算各位数字和；使用一个 DO WHILE循环语句，首先判断 x是否等于 0，如果等于 0，退出循环，如果不等于零，则使用 MOD()(取余 )函数求出 x除以 10的余数 (数字的个位数 )，并累加到变量 s中。接下来，程序应当将变量 x除以 10并取整，使之缩小 10倍，以便将 x的10位数字变为个位数字，所以在此应当选
13、择选项 B。 2 【正确答案】 D 【试题解析】 DO WHILE ENDDO 的格式： DO WHILE条件表达式 语句序列 EXIT LOOP ENDDO 功能：当条件表达式的值为 .T.时，重复执行 DO ENDDO 之间的语句序列，直到条件表达式的值为 .F.时，结束循环操作。 3 【正确答案】 D 【试题解析】 表头测试函数的格式： BOF(工作区号 /别名 ) 功能：当记录指针指向表文件的首记录之前 (表头 )时，该函数值为 .T.，否则返回 .F.。输出值类型为逻辑型。 工作区号 /别名 用于指定工作区，缺省为当前工作区。 表尾测试函数的格式： EOF(工作区号 /别名 ) 功能
14、：当记录指针指向表文件的末记录之后 (表尾 )时，该函数值为 .T.，否则返回 .F.。输出值类型为逻辑型。 工作区号 /别名 用于指定工作区，缺省为当前工作区。本题 DO WHILE循环的条件应是当到达表的末尾时，退出 DO WHILE循环。 4 【正确答案】 B 【试题解析】 flag变量起到了标志位的作用，用于标识用户是否正确地输入了用户名。当用户名被正确输入的时候，会将变量 flag的值置为 1，否则为 0。系统初始化时， flag变量的值被设置为 0，表示用户名还没有被正确输入，如果用户输入了正确的用户名，程序将继续判断用户输入的密码是否正确，不管密码输入正确与否，程序都会执行到 语
15、句 flag=1，把变量 flag的值设置为 1，因此程序可以用 flag的值来判断是否用户名被正确输入。最后对 flag的值进行判断，如果 flag的值为 0，就是用户名没有被正确输入的情况。 5 【正确答案】 C 【试题解析】 从输出结果可以看出，每行的第一个数字都为 1，第 (5)空的作用是给每行的第一个内容赋初值 1，通过 N进行循环，即 A(N， 1) 1。 6 【正确答案】 B 【试题解析】 此空对应 FOR循环的条件是从第三行到最后一行进行循环，所以此空为 D或 N。 7 【正确答案】 A 【试题解析】 从输出结果可看出，第 3行第 2列的值 2是第 2行第 1列和第 2列的和。
16、第 4行第 2列的值 3是第 3行第 1列和第 2列的和，第 4行 3列的值 3是第3行第 2列和第 3行的和， ，依次类推，可知此空应选 A。 8 【正确答案】 D 【试题解析】 “FOR J=1 TO I ? STR(A(I， J)， 3) ENDFOR”语句段是输出数组A中的元素， FOR ENDFOR 是成对出现的。 9 【正确答案】 A 【试题解析】 宏代换函数的格式： &字符型内存变量 . 功能：用字符型内存变量的 “值 ”去替换内存变量 “名 ”。 “.”符号表示变量结束。 10 【正确答案】 C 【试题解析】 如果 M “1”表示追加记录， M “2”表示删除记录。 11 【正
17、确答案】 D 【试题解析】 输入 N值，查找 N对应的记录用 GOTO N。 12 【正确答案】 B 【试题解析】 本程序使用了 IFELSE ENDIF 结构。 13 【正确答案】 A 14 【正确答案】 C 【试题解析】 当 M 0时， N=3， M=3；当 M 3时， N 6， M 9；当 M 9时， N 9， M 18；当 M 18时， N 12， M 30。当 M=30时不满足 DO WHILE循环条件 M 20所以结束循环，输出 M值为 30， N值为 12。 15 【正确答案】 A 【试题解析】 当循环条件为 M =30时，而 M的初值为 0，不满足循环条件，所以不执行循环体，直
18、接输出 M， N值均为 0。 16 【正确答案】 D 【试题解析】 DO WHILE循环条件恒为真，没有退出循环节的命令， EXIT，所以进入了死循环，一直执行循环，无任何输出。 17 【正确答案】 C 18 【正确答案】 B 【试题解析】 当输 入 N， M的值分别为 6， 8时， X 6，此时 FOR I=6 TO 1 STEP -1，当 I=2时，满足 IF循环条件，此时 Y1 2，退出 FOR循环，输出 Y1 2， STR(M*N/Y1， 19)的结果为 24，所以输出 Y2 24。 19 【正确答案】 D 20 【正确答案】 B 【试题解析】 当输入 N， M的值分别为 3， 9时，
19、 X 3，此时 FOR I 3 T0 1 STEP-1，当 I 3时，满足循环条件，此时 Y1 3，退出 FOR循环，输出 Y13， STR(M， N/Y1， 19)的结果为 9，所以输出 Y2 9。 21 【正确答案】 B 【试题解析】 主程序中的 X1是按引用传递给子程序 P1中的 W1，主程序中 X1的值随着子程序 P1中 W1的变化而变化， W1 W1*2=1* 2 2，所以 X1也为 2。 22 【正确答案】 A 【试题解析】 主程序中的 X2是按值传递给子程序 P1中的 W2，主程序中 X2的值不随着子程序 P1中 W2的变化而变化，虽然 W2 W2*2 3*2 6，但主程序中的
20、X2仍为 3。 23 【正确答案】 D 【试题解析】 此时主程序中 X1是按引用传递给子程序 P1中的 W1，主程序 中X1的值将随着子程序 P1中的 W1的变化而变化， W1=W1*2=2*2 4。所以 X1也为 4。 24 【正确答案】 B 【试题解析】 X1+X2按值传递给子程序中的 W2，按值传递，主程序中的变量不随着子程序中相应参数的变化而变化，所以 P1结束后 X2仍为 4。 二、编写程序题 25 【正确答案】 CLEAR SET TALK OFF n=0 FOR I= 100 TO 1000 IF 1%3=0 ANDI%7=0 n n+1 ENDIF ENDFOR ? N 26 【正确答案】 (1)编写 Text1的 GotFocus事件代码如下： THISFORM. LabeCaption=“判断结果： ” (2)编写 Command1的 Click事件代码如下： FOR I=2 TO THISFORM. Tcxt1. Value-1 IF THISFORM. Text1. Value %I 0 THISFORM. Labe Caption “判断结果：不是素数 ” RETURN ENDIF ENDFOR T
