二级vfp程序修改题汇总原题及答案.doc

1、打开考生文件夹下的程序文件temp.prg，并按题目的要求进行改错，修改完成后运行程序文件，如下所示。 ***********程序提供的代码*********** 下句只有一处有错误 SELECT 课程号 FROM 课程表 WHERE 课程名=数据结构 TO ARRAY a 下句有错误 OPEN 教师表 STORE 0 TO sum 下句两处有错误 SCAN OF 课程号=a OR 工资=4000 下句有错误 sum+1 ENDSCAN ?sum ******************************** 错误1：将 TO 改为 INTO。 错误2：将 OPEN 改为 USE。 错误3：将 SCAN OF 改为 SCAN FOR。 错误4：将 OR 改为 AND。 错误5：将 sum+1 改为 sum=sum+1。 2、 ************程序提供的代码************ ********found******** x,s1,s2,s3=0 ********found******** x=thisform.text1 do while x0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif ********found******** if div(x,3)=0 s3=s3+1 endif x=x-1 enddo thisform.text2.value=s1 thisform.text3.value=s2 thisform.text4.value=s3 thisform.text5.value=s1+s2+s3 ******************************** 错误1：改为 STORE 0 TO x,s1,s2,s3。 错误2：改为 x=val(thisform.text1.value)。 错误3：改为 if mod(x,3)=0。 3、打开程序文件THREE.PRG，对其中的命令进行修改,如下所示。 **********程序提供的代码********** *该命令文件用来查询与姚小敏同一天入住宾馆的每个客户的客户号、身份证、姓名、 *工作单位。查询结果输出到表TABC中。 *该命令文件在第3行、第5行、第7行和第8行有错误,打开该命令文件，直接在错误处修改，不可 *改变SQL语句的结构和短语的顺序，不允许增加、删除或合并行。 OPEN DATABASE 宾馆 SELECT 客户.客户号,身份证,姓名,工作单位; FROM 客户 JOIN 入住; WHERE 入住日期 IN; ( SELECT ; FROM 客户,入住; WHERE 姓名 = 姚小敏); TO TABLE TABC ******************************* 错误1：修改为 FROM 客户 JOIN 入住 ON 客户.客户号 = 入住.客户号; 错误2：修改为 ( SELECT 入住日期; 错误3：修改为 WHERE 客户.客户号 = 入住.客户号 AND 姓名 = 姚小敏); 错误4：修改为INTO TALBE TABC 保存并运行程序。 4、打开考生文件夹下的表单six.scx，登录按钮中的代码如下。 **********登录按钮的Click事件代码********** USE 用户表 GO TOP flag=0 下面语句有错误 WHILE .NOT. EOF() IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value) IF Alltrim(口令)==Alltrim(Thisform.Text2.Value) WAIT 欢迎使用 WINDOW TIMEOUT 2 ELSE WAIT 口令错误 WINDOW TIMEOUT 2 ENDIF flag=1 EXIT ENDIF 下面语句有错误 NEXT ENDDO 下面语句有错误 CASE FLAG=0 WAIT 用户名错误 WINDOW TIMEOUT 2 ENDIF **************************************** 步骤2：修改程序中的错误如下。 错误1：将WHILE改为DO WHILE。 错误2：将NEXT改为SKIP。 错误3：将CASE改为IF。 步骤3：保存并运行表单。 5、CLOS