1、浙江二级 VISUAL+FOXPRO 真题 2008 年(暂无答案，提供参考)及答案解析(总分：100.00，做题时间：90 分钟)一、B试题 1/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】某公司货运收费标准是：本地货运每吨都按 10 元计算运费。外地货运按每吨 20 元计算运费，如果距离 500 公里(含)以上，则每吨按 25 元计算运费。【程序】SET TALK OFFCLEARFL0INPUT 输入货物重量 TO ZLACCEPT 本地/外地TO BODWU (1) /UFL=10*ZLELSEINPUT 距离
2、TO JLDO CASEU (2) /UFL20* ZLCASE JL500FL25* ZLOTHER?距离输入有错!U (3) /UENDIFU(4) /UUSESET TALK ON（分数：12.00）A.IF ALLT (BDW= 外地B.IF ALLT (BDW本地C.IF ALLT (BDW本地D.IF ALLT (BDW外地A.IF JL500 AND JL0B.CASE JL=500 AND JL0C.CASE JL500 AND JL0D.CASE JL500 OR JL0A.ENDCASEB.END CASEC.ENDIFD.CASEEND(4).A? 货物运费为，FL B?
3、 货物运费为FL C?货物运费为=+FL D?货物运费为+STR(FL)（分数：3.00）_二、B试题 2/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入学生学号，显示该学生的学号和已通过课程的总学时数。【程序】SET TALK OFFCLEARSELE 1USE 成绩UELE 2USE 课程 U(5) /UKSS0ACCEPT 输入学生学号 TO XHSELE 成绩U(6) /UDO WHIL! EOF()IF 成绩=60SELE 课程U (7) /UKSSKSS+学时数ENDIFSELE 成绩U(8) /UENDD
4、O? XH，KSSCLOSE ALLSET TALK ON（分数：12.00）A.INDEX ON 课程号 TO INXB.INDEX ON INX TO 课程号C.INDEX ON INX TO 课程号 OF IXSD.INDEX ON 学号 TO INXA.SEEK 学号B.SEEK FOR 学号ALLT (XC.LOCA FOR 学号= ALLT(XD.SEEK ALLT(XA.SEEK 课程号B.SEEK 课程号C.SEEK 课程号D.SEEK 1.课程号A.GO RECON()B.SKIPC.SKIP 1D.CONT三、B试题 3/B(总题数：1，分数：12.00)阅读下列程序说明和
5、程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】表单将自动以 1 秒为间隔，以只读形式动态显示系统时间，时、分、秒用汉字表示。【程序】表单 Form1 的 Init 事件代码：U(9) /UTHIS. TIMER1.ENABLED.T.U(10) /UTIMER1 的U (11) /U 事件代码：SSUBSTR(TIME()，1，2)FSUBSTR(TIME()，4，2)MSUBSTR(TIME()，7，2)U(12) /U（分数：12.00）A.THISFOR TIME INTERVAL1B.THI TIMER1. INTERVAL=1C.THI TIMER1. INTER
6、VAL1000D.THI TIME INTERVAL1000A.THI TEXT1. ONLYREAD=.B.THI TEXT1. READONLY=.C.THI TEXT1. ONLYREAD=.D.THI TEXT1. READONLY=.A.TIMERB.CLICKC.VALIDD.INITA.THI TEXT1. VALUES+时+F+分+M+秒B.THISFOR TEXT1. VALUE=S+时+F+分+M+秒C.THISFOR TEXT1. VALUES+时+F+分+M+秒D.THI TEXT1. VALUE=S+时+F+分+M+秒四、B试题 4/B(总题数：1，分数：12.00)
7、说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEARSTORE 0 TO S，T，PFOR K1 TO 10DO CASECASE INT(K/2)K/2TT+KCASE INT (K/5)K/5SS+KOTHERWISEPP+KENDCASEENDFOR? K，S，T，PSET TALK ON（分数：12.00）(1).K 的输出结果为U (13) /U。（分数：3.00）A.0B.11C.10D.12(2).S 的输出结果为U (14) /U。（分数：3.00）A.5B.6C.7D.8(3).T 的输出结果为U (1
8、5) /U。（分数：3.00）A.0B.1C.出错D.30(4).P 的输出结果为U (16) /U。（分数：3.00）A.0B.1C.20D.55五、B试题 5/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEARP=0FOR N1 TO 49 STEP 1IF N10EXITINDIFIF MOD(N，2)0PP+NENDIFENDFOR? “P”，PSET TALK ON（分数：12.00）(1).P 的输出结果为U (17) /U。（分数：3.00）A.20B.0C.60D.30
9、(2).当 EXIT 改成 LOOP 时，P 的输出结果为U (18) /U。（分数：3.00）A.1B.0C.30D.10(3).EXIT 不变，当 STEP1 改成 STEP3 时，P 的输出结果为U (19) /U。（分数：3.00）A.14B.0C.1D.出错(4).EXIT 不变，当 STEP1 改成 STEP-1 时，P 的输出结果为U (20) /U。（分数：3.00）A.0B.1C.30D.-1六、B试题 6/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEAUse 学生
10、LIST? RECNO() & 第一个显示GO 3INSERT BIANKREPL 姓名 WITH 李华? RECNO() & 第二个显示GO TOPDISP NEXT 4? RECNO() & 第三个显示LOCA FOR 姓名李华? RECNO() & 第四个显示USESETTALK ON（分数：12.00）(1).第一个显示? RECNO()的值为 U(21) /U。（分数：3.00）A.6B.7C.1D.0(2).第二个显示? RECNO()的值为U (22) /U。（分数：3.00）A.2B.1C.4D.0(3).第三个显示? RECNO()的值为U (23) /U。（分数：3.00）
11、A.0B.1C.2D.4(4).第四个显示? RECNO()的值为U (24) /U。（分数：3.00）A.2B.7C.4D.3七、B试题 7/B(总题数：1，分数：28.00)1.说明：根据题目要求，利用面向对象程序设计方法在相应对象的事件中编写代码。 (1)表单的界面布局已基本完成，与表单有关的表文件已经添加到数据环境中； (2)表单界面中除已经说明设置好的属性外，其他必要的属性一律在事件代码中设置； (3)事件代码中可能涉及的主要属性、事件及方法列表如下，仅供参考： Additem Controlsource Readonly Rowsource Setfocus Enabled Rec
12、ordsource Rowsourcetype Buttoncount Forecolor Recordsourcetype Setall Buttons Fontsize Refresh Timer Caption Init Release Value Clear Valid Interval Visible 编制学生成绩查询表单，表单控件的布局界面如图 1 所示。具体要求： 在 form1 的 init 中设置初值，并把焦点指向 TEXT1，如图 2 所示； 在 TEXT1 中输入学号，按查询(command1)按钮后，则显示该学生姓名以及各门课程的成绩，如图 3 所示； 如果找不到该学生
13、学号，则显示窗口，如图 4 所示； 按退出(command2)按钮时，则退出表单。 （分数：28.00）_浙江二级 VISUAL+FOXPRO 真题 2008 年(暂无答案，提供参考)答案解析(总分：100.00，做题时间：90 分钟)一、B试题 1/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】某公司货运收费标准是：本地货运每吨都按 10 元计算运费。外地货运按每吨 20 元计算运费，如果距离 500 公里(含)以上，则每吨按 25 元计算运费。【程序】SET TALK OFFCLEARFL0INPUT 输入货物重量 T
14、O ZLACCEPT 本地/外地TO BODWU (1) /UFL=10*ZLELSEINPUT 距离 TO JLDO CASEU (2) /UFL20* ZLCASE JL500FL25* ZLOTHER?距离输入有错!U (3) /UENDIFU(4) /UUSESET TALK ON（分数：12.00）A.IF ALLT (BDW= 外地B.IF ALLT (BDW本地C.IF ALLT (BDW本地D.IF ALLT (BDW外地解析：A.IF JL500 AND JL0B.CASE JL=500 AND JL0C.CASE JL500 AND JL0D.CASE JL500 OR J
15、L0解析：A.ENDCASEB.END CASEC.ENDIFD.CASEEND解析：(4).A? 货物运费为，FL B? 货物运费为FL C?货物运费为=+FL D?货物运费为+STR(FL)（分数：3.00）_解析：二、B试题 2/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入学生学号，显示该学生的学号和已通过课程的总学时数。【程序】SET TALK OFFCLEARSELE 1USE 成绩UELE 2USE 课程 U(5) /UKSS0ACCEPT 输入学生学号 TO XHSELE 成绩U(6) /UDO WHI
16、L! EOF()IF 成绩=60SELE 课程U (7) /UKSSKSS+学时数ENDIFSELE 成绩U(8) /UENDDO? XH，KSSCLOSE ALLSET TALK ON（分数：12.00）A.INDEX ON 课程号 TO INXB.INDEX ON INX TO 课程号C.INDEX ON INX TO 课程号 OF IXSD.INDEX ON 学号 TO INX解析：A.SEEK 学号B.SEEK FOR 学号ALLT (XC.LOCA FOR 学号= ALLT(XD.SEEK ALLT(X解析：A.SEEK 课程号B.SEEK 课程号C.SEEK 课程号D.SEEK 1
17、.课程号解析：A.GO RECON()B.SKIPC.SKIP 1D.CONT解析：三、B试题 3/B(总题数：1，分数：12.00)阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】表单将自动以 1 秒为间隔，以只读形式动态显示系统时间，时、分、秒用汉字表示。【程序】表单 Form1 的 Init 事件代码：U(9) /UTHIS. TIMER1.ENABLED.T.U(10) /UTIMER1 的U (11) /U 事件代码：SSUBSTR(TIME()，1，2)FSUBSTR(TIME()，4，2)MSUBSTR(TIME()，7，2)U(12) /U（
18、分数：12.00）A.THISFOR TIME INTERVAL1B.THI TIMER1. INTERVAL=1C.THI TIMER1. INTERVAL1000D.THI TIME INTERVAL1000解析：A.THI TEXT1. ONLYREAD=.B.THI TEXT1. READONLY=.C.THI TEXT1. ONLYREAD=.D.THI TEXT1. READONLY=.解析：A.TIMERB.CLICKC.VALIDD.INIT解析：A.THI TEXT1. VALUES+时+F+分+M+秒B.THISFOR TEXT1. VALUE=S+时+F+分+M+秒C.T
19、HISFOR TEXT1. VALUES+时+F+分+M+秒D.THI TEXT1. VALUE=S+时+F+分+M+秒解析：四、B试题 4/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEARSTORE 0 TO S，T，PFOR K1 TO 10DO CASECASE INT(K/2)K/2TT+KCASE INT (K/5)K/5SS+KOTHERWISEPP+KENDCASEENDFOR? K，S，T，PSET TALK ON（分数：12.00）(1).K 的输出结果为U (13
20、) /U。（分数：3.00）A.0B.11C.10D.12解析：(2).S 的输出结果为U (14) /U。（分数：3.00）A.5B.6C.7D.8解析：(3).T 的输出结果为U (15) /U。（分数：3.00）A.0B.1C.出错D.30解析：(4).P 的输出结果为U (16) /U。（分数：3.00）A.0B.1C.20D.55解析：五、B试题 5/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEARP=0FOR N1 TO 49 STEP 1IF N10EXITINDIFI
21、F MOD(N，2)0PP+NENDIFENDFOR? “P”，PSET TALK ON（分数：12.00）(1).P 的输出结果为U (17) /U。（分数：3.00）A.20B.0C.60D.30解析：(2).当 EXIT 改成 LOOP 时，P 的输出结果为U (18) /U。（分数：3.00）A.1B.0C.30D.10解析：(3).EXIT 不变，当 STEP1 改成 STEP3 时，P 的输出结果为U (19) /U。（分数：3.00）A.14B.0C.1D.出错解析：(4).EXIT 不变，当 STEP1 改成 STEP-1 时，P 的输出结果为U (20) /U。（分数：3.0
22、0）A.0B.1C.30D.-1解析：六、B试题 6/B(总题数：1，分数：12.00)说明：阅读下列程序(段)并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】SET TALK OFFCLEAUse 学生LIST? RECNO() & 第一个显示GO 3INSERT BIANKREPL 姓名 WITH 李华? RECNO() & 第二个显示GO TOPDISP NEXT 4? RECNO() & 第三个显示LOCA FOR 姓名李华? RECNO() & 第四个显示USESETTALK ON（分数：12.00）(1).第一个显示? RECNO()的值为 U(21) /U。（
23、分数：3.00）A.6B.7C.1D.0解析：(2).第二个显示? RECNO()的值为U (22) /U。（分数：3.00）A.2B.1C.4D.0解析：(3).第三个显示? RECNO()的值为U (23) /U。（分数：3.00）A.0B.1C.2D.4解析：(4).第四个显示? RECNO()的值为U (24) /U。（分数：3.00）A.2B.7C.4D.3解析：七、B试题 7/B(总题数：1，分数：28.00)1.说明：根据题目要求，利用面向对象程序设计方法在相应对象的事件中编写代码。 (1)表单的界面布局已基本完成，与表单有关的表文件已经添加到数据环境中； (2)表单界面中除已经
24、说明设置好的属性外，其他必要的属性一律在事件代码中设置； (3)事件代码中可能涉及的主要属性、事件及方法列表如下，仅供参考： Additem Controlsource Readonly Rowsource Setfocus Enabled Recordsource Rowsourcetype Buttoncount Forecolor Recordsourcetype Setall Buttons Fontsize Refresh Timer Caption Init Release Value Clear Valid Interval Visible 编制学生成绩查询表单，表单控件的布局界面如图 1 所示。具体要求： 在 form1 的 init 中设置初值，并把焦点指向 TEXT1，如图 2 所示； 在 TEXT1 中输入学号，按查询(command1)按钮后，则显示该学生姓名以及各门课程的成绩，如图 3 所示； 如果找不到该学生学号，则显示窗口，如图 4 所示； 按退出(command2)按钮时，则退出表单。 （分数：28.00）_解析：
