程序改错1Word格式.docx
《程序改错1Word格式.docx》由会员分享，可在线阅读，更多相关《程序改错1Word格式.docx（46页珍藏版）》请在冰豆网上搜索。
答案：
1）.LOCATE★FOR姓名=★"
赵红"
或LOCAFOR姓名=★'
赵红'
或LOCAFOR姓名=★"
2）.DISP姓名,工资或?
姓名,工资或DISPLAY姓名,工资
〖第2题〗『程序改错』（10分）（题号:
153）
表XSDA.DBF结构为：
学号（C，6），姓名（C，6），
*性别（C，2），入学成绩（N，6，2）。
*本程序实现按学号查找记录，直到输入"
#"
为止。
SETTALKOFF
USEXSDA
**********FOUND**********
ACCEPT"
请输入要查找的学号"
ONXH
DOWHILEXH!
="
LOCATEFOR学号="
CJ"
IFFOUND（）
?
学号,姓名,入学成绩
ELSE
"
无此学号"
ENDIF
ACCEPT"
请继续输入要查找的学号"
TOXH
ENDFOR
?
"
谢谢使用本查找系统"
USE
SETTALKON
1）.ACCEPT★"
★TO★XH
2）.LOCATE★FOR学号=★XH或LOCAFOR学号=★XH
3）.ENDDO
〖第3题〗『程序改错』（10分）（题号:
173）
统计RSH.dbf中职称是教授、副教授、讲师和助教的人数。
STORE1TOA,B,C,D
DOWHILE.NOT.EOF（）
CASE职称="
教授"
A=A+1
副教授"
B=B+1
讲师"
C=C+1
助教"
D=D+1
ENDCASE
NEXT1
ENDDO
A,B,C,D
1）.STORE★0TOA,B,C,D
2）.SKIP
〖第4题〗『程序改错』（10分）（题号:
189）
从键盘输入一个数X，当X大于0、Y的值为1；
当X等于0、Y的
*值为0；
当X小于0、Y的值为-1,然后输出Y的值。
INPUT"
输入一个数X：
TOX
IFX>
IFX>
Y=1
Y=0
ELSE
Y=-1
ENDIF
Y=Y"
1）.IF★X>
=0或IF★0<
=X
2）.?
Y=★"
Y或"
+STR（Y,2）或"
+STR（Y）
〖第5题〗『程序改错』（10分）（题号:
48）
在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。
USEXSDB
STORE0TOR,S
DOWHILE.T.
IF系别="
法律"
.AND.系别="
中文"
STORES+奖学金TOS
R=R+1
ENDIF
SKIP
IF.NOT.FOUN（）
EXIT
？
S,R
1）.IF系别="
★.OR.★系别="
或IF系别="
★OR★系别="
★OR★系别="
2）.IFEOF（）
〖第6题〗『程序改错』（10分）（题号:
168）
查找RSH.dbf中女职工的最高工资，并显示其姓名和工资。
MGZ=0
DOWHILE.NOT.EOF（）
IF性别="
女"
MGZ<
工资"
MGZ=工资
MXM=姓名
CONT
MXM,MGZ
1）.IF性别="
★.and.★MGZ<
工资或IF性别="
★and★MGZ<
工资或IFMGZ<
工资★.and.★性别="
或IFMGZ<
工资★and★性别="
〖第7题〗『程序改错』（10分）（题号:
92）
求X=1+2+3+…+100，并同时求出1到100之间的奇数之和Y，
*而且显示输出这两个和。
STORE0TOI,X,Y
DOWHILEI<
=100
I=I+1
X=X+I
IFI/2=INT（I/2）
EXIT
Y=Y+I
X,Y
RETURN
1）.DOWHILEI★<
100或DOWHILEI★<
=★99或DOWHILI★<
100或DOWHILI★<
=★99
2）.LOOP
〖第8题〗『程序改错』（10分）（题号:
191）
从键盘上输入5个数，将其中奇数求和,偶数求积。
S1=0
S2=0
FORI=1TO5
INPUT"
请输入第"
+STR（I,1）+"
数"
TOM
IFINT（M/2）=0
S1=S1+M
S2=S2*M
奇数和是"
S1或?
S1
偶数积是"
S2或?
S2
1）.S2=1
2）.IFMOD（M,2）<
>
0或IFMOD（M,2）#0或IFINT（M/2）★<
★M/2或IFINT（M/2）★#★M/2
〖第9题〗『程序改错』（10分）（题号:
174）
计算S=1+3+5+…+99的程序。
store0tos,i
doi<
=99
***********FOUND**********
i=i+1
s=s+i
enddo
s="
s
1）.dowhilei<
=99或dowhilei<
100
2）.I=2+I或I=★I+2
〖第10题〗『程序改错』（10分）（题号:
41）
通过键盘输入一个数N,计算2^2+4^4+……+N^N的值并显示输出。
T=0
I=2
N="
toN
T=T+I^I
I=I+T
TOTAL="
T
1）.DO★WHILE★I<
=N或DO★WHILE★N>
=I
〖第11题〗『程序改错』（10分）（题号:
46）
*题目:
计算并在屏幕上显示出"
九九乘法表"
，显示格式如下
*1×
1＝1
*2×
1＝22×
2＝4
*3×
1＝33×
2＝63×
3＝9
*……
*9×
1＝9…9×
8＝729×
9＝81
*程序中共有2个错误，请修改下面一条语句的错误，并调试运行。
X=1
DOWHILEX<
=9
DOWHILEY<
STR（X,1）+"
×
+STR（Y,1）+"
="
+STR（X*Y,2）+"
Y=Y+1
disp
X=X+1
1）.DO★WHILE★Y<
=X或DO★WHILE★X>
=Y
〖第12题〗『程序改错』（10分）（题号:
175）
打开XSDB.DBF数据表,分别统计男、女生的人数。
STOR0TOB,G
IF性别<
男
B=B+1
G=G+1
SKIP
男生人数是：
+STR（B）
女生人数是：
+STR（G）
1）.IF性别★=★"
男"
或IF性别<
★"
或IF性别★#★"
2）.ELSE
〖第13题〗『程序改错』（10分）（题号:
196）
分别统计化学系的男、女生总人数并显示出来。
STOR0TORS1,RS2
FINDFOR系别="
化学"
IF性别<
RS1=RS1+1
RS2=RS2+1
CONT
男生人数="
RS1
女生人数="
RS2
1）.LOCATEFOR系别="
2）.IF性别★=★"
〖第14题〗『程序改错』（10分）（题号:
152）
从键盘上输入5个数，统计其中奇数的个数。
A=0
FORJ=1TO5
+STR（J,2）+"
IFINT（M/2）=M/2
A=A+1
奇数个数是,A
CANCEL
1）.★INPUT★"
TOM或★INPU★"
2）.IFINT（M/2）★<
M/2或IFINT（M/2）★!
=M/2或IF★mod（M,2）=1或IF（M★%2）=1
3）.?
奇数个数是"
A或?
str（A）
〖第15题〗『程序改错』（10分）（题号:
156）
求1+5+9+13+…+97的和
S=0
N=0
DOWHILEN<
=97
S=S+1
N=N+4
ENDWHILE
S
SETTALKON
1）.N=1
2）.S=★S★+★N或S=★N★+★S
3）.ENDDO或ENDD
〖第16题〗『程序改错』（10分）（题号:
57）
计算1!
+3!
+9!
的结果并输出。
不可以增加或删除程序行，也不可
升级会员 