求高手解答vfp程序改错题！

Answer 1

二级
VF
上机考试程序改错题精选

程序改错题
1
：
（
5
）

在考生文件夹下完成如下简单应用：

1 . modi1.prg
程序文件中
SQLSELECT
语句的功能
是查询目前用于
3
个项目的零件
（零件名称）
，
并将结果
按升序存入文本文件
results.txt
中．
给出的
SQL
SELECT
语句中在第
l
、
3
、
5
行各有一处错误，请改正并运行
程序（不得增、删语句或短语，也不得改变语句行）
。

***********
程序提供的代码
***********
SELECT
零件名称
FROM
零件信息
WHERE
零件号

=
(SELECT
零件号
FROM
使用零件
;
GROUP BY
项目号
HAVING COUNT(
项目号
) = 3)
ORDER BY
零件名称

INTO FILE results
************************************

其中，
第
1
行中的
"="
需改为
"IN"
；

第
3
行中的
"GROUP BY
项目号
"
需改为
"GROUP
BY
零件号
"
；

第
5
行中的
"INTO FILE"
需改为
"TO FILE"
。

程序改错题
2
：
（
34
）

在考生文件夹下完成如下简单应用：

1
．
程序文件
rate_pro
的功能是计算出
"
林诗因
"
所持有
的全部外币相当于人民币的数量，
summ
中存放的是结
果。注意：某种外币相当于人民币数量的计算公式：人
民币数量＝该种外币的
"
现钞买入价
"*
该种外币的
"
持有
数量
"
。请在指定位置修改程序语句，不得增加或删除程
序行，并保存所做的修改。

步骤
1
：打开程序
rate_pro
。修改程序如下：

第
1
处错误改为：
locate for
姓名
="
林诗因
"

第
2
处错误改为：
do while not eof()

第
3
处错误改为：
summ
=
summ
+
a[1] * currency_sl.
持有
数量

步骤
2
：保存并运行程序。

程序改错题
3
：
（
56
）

打开程序文件
cylinder.prg
，该程序的功能是根据输
入的半径和高计算圆柱体表面积，其中函数定义中有错
误，
请在
******found*******
的下一行进行修改使之能正
确运行
(
不得增加语句，不得删除语句
)
。

打开程序文件
cylinder.prg
，程序修改如下：

第
1
处改为：
PARAMETERS a,b
第
2
处改为：
RETURN c

程序改错题
4
：
（
8
）

test.prg
中的第
2
条语句是错误的，修改该语句
（注意：只能修改该条语句）
，使得程序执行的结果是在
屏幕上显示
10
到
1
，如下图所示。

打开程序
test
，将
第二行语句改为：

DO WHILE i>=1

保存并运行程序，查看运行结果。

程序改错题
5
：
（
8
）

修改并执行程序
temp
。该程序的功能是根据
"
教师表
"
和
"
课程表
"
计算讲授
"
数据结构
"
这门课程，并且
"
工资
"
大于等于
4000
的教师人数．注意，只能修改标有错误的
语句行，不能修改其他语句。

********************************
错误
1
：将
TO
改为
INTO
。

错误
2
：将
OPEN
改为
USE
。

错误
3
：将
SCAN OF
改为
SCAN FOR
。

错误
4
：将
OR
改为
AND
。

错误
5
：将
sum+1
改为
sum=sum+1
。

程序改错题
6
：
（
9
）

给定表单
modi2.scx
，功能是：要求用户输入一个
正整数，然后计算从侄四该数字之间有多少偶数、多少
奇数、多少能被
3
整除的数，并分别显示出来，最后统
计出满足条件的数的总数量．请修改并调试该程序，使
之能够正确运行。

改错要求：
"
计算
"
按钮的
Click
事件代码中共有
3
处错误，请修改
"*** found ***
下面语句行的错误，必
须在原来位置修改，不能增加或删减程序行（其中第一
行的赋值语句不许减少或改变变量名）
。

"
退出
"
按钮的
Click
事件代码中有一处错误，该按
钮的功能是关闭并释放表单．

步骤
1
：打开表单
modi2
，修改
"
计算
"
命令按钮的
Click
事件。

错误
1
：改为
STORE 0 TO x,s1,s2,s3
。

错误
2
：改为
x=val(thisform.text1.value)
。

错误
3
：改为
if mod(x,3)=0
。

步骤
2
：以同样的方法修改
"
退出
"
按钮的
Click
事件
代码为
"Thisform.Release"

追问

呃，多谢哈！

追答

好

Answer 2

少个N=N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

追问

什么意思？

而且这题有两处错误

追答

要考试？还学这东西我有题库哦

追问

呃，是课堂作业，马上就要交了

追答

忘光啦看同学的去都都二年级的人还学这破东西

追问

我们大二才开始学的