vfp程序改错.docx
- 文档编号:7645302
- 上传时间:2023-01-25
- 格式:DOCX
- 页数:37
- 大小:74.83KB
vfp程序改错.docx
《vfp程序改错.docx》由会员分享,可在线阅读,更多相关《vfp程序改错.docx(37页珍藏版)》请在冰豆网上搜索。
vfp程序改错
vfP程序改错
-CAL-FENGHAI-(2020YEAR-YICAI)」INGBIAN
VisualFoxpro程序改错
[(第1题》(练习题所在文件夹:
163)
*题目:
该程序完成口令检验功能。
输入三次不正确退出。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
CLEAR
assl=,,AbCdEfH
TT=1
DOWHILETT<4
@10,20SAY"谙输入口令:
1'
SETCONSOLEOFF
ACCEPTTOass
SETCONSOLEON
IFassl=ass
CLEAR
"欢迎使用本系统!
"
LOOP
ELSE
♦♦♦♦♦*****♦♦
TT=TT-1
CLEAR
"口令错,按任意键再输入一次!
"
WAIT11u
ENDIF
ENDDO
RETURN
答案:
1).IFUPPER(assl)==UPPER(ass)或IFUPPER(assl)==UPPER(ass)
2).EXIT
3).TT=TT+1或TT=1+TT
K第4题》(练习题所在文件夹:
500)
*题目:
是一个职工信息文件,其中包含编号(C5)、姓名
*(C8)、性别(C2)、政治面貌(C4)、出生日期(D8)等字
*段。
性别用字符串"男"或"女"表示,政治而貌用字符串"
*党员“、"团员"或“群众"表示。
此文件已按政治而貌建立
*了索引,索引文件名是。
*程序功能是:
显示输出所有政治面貌为"群众“的女职工的
*姓名和岀生日期(每行输岀一个职工的信息)在屏幕上車注意:
不可以增加或删除程序行,也不可以更改程序的结构。
settalkoffclear
h***hfounD京
USEZHG
SEEK”群众■'
men**
DOWHILE!
EOF()
IF性别="女"
DISP姓名,出生日期**♦♦*******PQ(J[\Jp♦♦*♦♦*♦♦♦♦
ENDD
SKIP
ENDDO
USE
SETTALKON
答案:
1).USEZHGINDEXZHG_ZHZH
2).DOWHILE政治而貌="群众"或DOWHILE政治而貌='群众'或DOWHILE政治面貌=[群众]
3).ENDIF
K第5题》(练习题所在文件夹:
105)
*题目:
在中,查找职工赵红的工资,如果工资小于200元,
*则增加100元:
如果工资大于等于200元且小于500元时,贝I」增
*加50元:
否则增加20元。
最后显示赵红的姓名和工资。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
CLEAR
USERSH
*♦♦♦*******pQ|J|^p*******♦♦♦
LOCATEFOR姓名二赵红
DOCASE
CASE工资v200
REPLACE工资WITHIg+100
CASE工资v500
REPLACE工资WITHI资+50
OTHERWISE
REPLACE工资WITH工资+20
ENDCASE
LIST姓名工资
USE
答案:
1).LOCATEFOR姓名=”赵红,,或LOCAFOR姓需='赵红,或LOCAFOR姓名二11赵红,,或LOCATEFOR姓名二[赵红]或LOCAFOR姓名二[赵红]或LOCATEFOR姓名赵红’
2)・DISP姓需,工资或姓名,工资或DISPLAY姓爼,工资
K第6题》(练习题所在文件夹:
174)
車题目:
计算S=2+4+6+...+98+100的程序。
車注意:
不可以增加或删除程序行,也不可以更改程序的结构。
store0toszi
men**
doi<=99
♦*****pQU^|Q******♦♦♦*i=i+l
s=s+i
enddo
"s=",s
答案:
1).dowhilei<=99或dowhilei<100或dowhilei<=98或dowhilei<99
2).1=2+1或1=1+2或STORI+2TOI
K第7题》(练习题所在文件夹:
520)
*题目:
猴子吃桃问题:
猴子第一天摘下若干个桃子,当即吃了一半,
*还不过瘾,又多吃了一个,第二天早上又将剩下的桃子吃掉
*一半,又多吃了一个。
以后每天早上都吃了前一天剩下的一
*半零一个。
到第10天早上想再吃时,见只剩下一个桃子了。
*求第一天共摘了多少。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
settalkoff
clear
DAY=9
♦♦♦♦*******pQ|J|^p*******♦♦♦
X2=0
DOWHILEDAY>0
h***hfounD京
Xl=(X2+l)/2
X2=X1
men**
DAY=DAY+1
ENDDO
”第一天摘下",XI,"个桃子”
SETTALKON
答案:
1).X2=l
2).X1=(X2+1)*2
3).DAY=DAY-1
[(第8题》(练习题所在文件夹:
175)
車题目:
打开数据表,分别统计男、女生的人数。
可主意:
不可以增加或删除程序行,也不可以更改程序的结构。
USEXSDB
STOR0TOB,G
DOWHILE.()
men**
IF性别v>男
B=B+1
♦*****pQU^|Q******♦♦♦*
ENDIF
G=G+1
ENDIF
SKIP
ENDDO
"男生人数是:
"+STR(B)
"女生人数是:
"+STR(G)答案:
1).IF性别』男”或IF性别v>”女”
2).ELSE
K第9题U(练习题所在文件夹:
188)
*题目:
显示中每个学生的姓划、计算机成绩和等级:
等
*级划分如下:
计算机成绩大于等于90显示"优秀":
60到89
*(包括60和89)之间显示”及格”;60分以下显示“补考"。
*如显示:
张丽娜90优秀。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
USEXSDB
DOWHIL.NOT.EOF()
♦♦♦♦*****#*PQ|J|^p******♦♦♦*
LIST姓名,计算机
DOCASE
CASE计算机>=90
'优秀・
CASE计算机>=60
'及格•
OTHERWISE
•补考・
ENDCASE
GONEXT
ENDDO
USE
答案:
1).姓名,计算机或DISPLAY姓名,计算机
2).SKIP或SKIP1
[(第10题》(练习题所在文件夹:
191)
*题目:
从键盘上输入5个数,将其中奇数求和,偶数求积。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
Sl=0
men**
S2=0
FOR1=1TO5
INPUT”请输入第”+STR(lJ)+"数”TOM
♦♦♦♦*******PQ(J[\Jp♦♦*♦♦*♦♦♦♦
IFINT(M/2)=0S1=S1+M
ELSE
S2=S2*M
ENDIF
ENDFOR
"奇数和是",si
"偶数积是“,S2
答案:
1).S2=l或STOR1TOS2
2).IFMOD(M,2)<>0或IFMOD(M,2)#0或IFINT(M/2)<>M/2或IFINT(M/2)#M/2或IFM%2
<>0或IFM%2!
=0或IFM%2#0
K第11题U(练习题所在文件夹:
182)
*题目:
在中查找学生徐秋实的记录,如果找到则将该记录
*的系别、姓爼,两科科目名称和对应的成绩显示在屏幕上,否则
*显示:
"查无此人!
“。
可主意:
不可以增加或删除程序行,也不可以更改程序的结构。
USEXSDB
h***hfounD京
FINDFOR姓名二11徐秋实,,
IF.()
'‘查无此人r
ELSE
♦*****pQU^|Q******♦♦♦*
系别,姓名「计算机J+计算机""英语八英语
ENDIF
USE
RETURN
答案:
1).LOCATEFOR姓名二”徐秋实”或LOCATEALLFOR姓名二”徐秋实”
2).系别,姓名,"计算机="+STR(计算机),"英语="+STR(英语)
或系别,姓名「计算机*计算机,”英语比英语
K第13题U(练习题所在文件夹:
161)
*题目:
从键盘输入一个表名,打开该表文件,移动记录指针到
*文件头,输出当前记录号;在移动记录指针到文件尾,
*输出当前记录号。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
ACCEPTTOA
FINDA
GOTOP
n*n*FouNDm****
NEXT
RECNO()
GOBOTTOM
NEXT-1
RECNO()
USE
SETTALKON
答案:
1).USE(A)或USE&A
2).SKIP-1
3).SKIP或SKIP1
K第14题H(练习题所在文件夹:
162)
*题目:
从键盘输入一个表文件名,打开该表,査找"姓划"是
*"张东"的记录,并显示该记录,最后输岀“姓爼"是"张
*东"的记录个数。
(设被打开的表中有固泄字段”姓名“)
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
ACCEPTTOA
USE&A
N=1
SCANFOR姓名二,,张东,,
found
LIST
N=N+1
ENDSCAN
♦*♦♦****♦♦
记录个数是,N
USE
SETTALKON
答案:
1).N=0或StoreOToN
2).DISPLAY或DISP
3)・%己录个数是舄N或”记录个数是:
tr(N)
K第16题H(练习题所在文件夹:
92)
琢题目:
求X=1+2+3+—+100,并同时求出1到100之间的奇数之和Y,*而且显示输出这两个和。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
CLEAR
STORE0TOIzXzY
DOWHILEl<=100
X=X+I
IFI/2=INT(l/2)
men**
EXIT
ENDIF
Y=Y+I
ENDDO
X,Y
RETURN
答案:
1).DOWHILEl<100或DOWHILEl<=99
2).LOOP
K第17题》(练习题所在文件夹:
501)
*题目:
是一个学生信息文件,包含学号(C8)、
*姓名(C8)、性别(C2)、政治而貌(C4)、班级(C5)
*等字段:
其中性别用字符串"男"或"女"表示,政治而貌
*用字符串"党员"、”团员"或'群众"表示。
*程序的功能是:
显示输出所有政治面貌为”群众“的男生姓
*名和班级。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
settalkoffclear
USESTUDENT
LOCATEFOR政治而貌二“群众,'
DOWHILE・not・FOUND()
IF性别•女"
CONTINUE
♦♦♦♦*******PQU|^|p******♦♦♦*break
ENDIF
姓名,班级
skip
ENDDO
USE
SETTALKON
答案:
1).DOWHILEFOUND()或DOWHIL.()
2).LOOP
3).CONTINUE
XK第19题H(练习题所在文件夹:
148)
*题目:
从键盘上输入任意一串字符,判断是否回文。
♦例如:
MUM.456654,MADAM
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
ACCEPTl,A=uTOA
L=LEN(A)
FLAG=1
1=1
found
DOWHILEFLAG=1ORK=INT{L/2)
IFSUBS(A」J)v>SUBS(A丄・IJ)
FLAG二0
ENDIF1=1+1
ENDDO
*********
IFFLAG=O
”是回文"
ELSE
"不是回文"
ENDIF
CANCEL
答案:
1).DOWHILEFLAG=1ANDK=INT(L/2)
2).IFSUBSTR(A儿1)<>SUBSTR(A丄・l+l」)
3).IFFLAG=1
K第20题》(练习题所在文件夹:
189)璟题目:
从键盘输入一个数X,当X大于0、Y的值为仁当X等于SY的*值为0:
当X小于0、Y的值为-1,然后输岀Y的值。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
INPUTH输入一个数X:
"TOX
*********
IFX>0
IFX>0
Y=1
ELSE
Y=0
ENDIF
ELSE
Y=-l
ENDIF
,Y=Yn
答案:
1).IFX>=0或IFOv二X
2).IIY=,,/Y或,,Y=,,+STR(Y)
K第22题H(练习题所在文件夹:
505)
*题目:
计算并显示输岀数列VV2,1AV16…的
*前10项之和。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
settalkoff
clear
Y=0
STORE1TOl,C
DOWHILEl<=10
Y=Y+(-l)A(C+l)/l
men**
l=-l*2
C=C+1
ENDIF
"数列前10项之和为:
",Y
SETTALKON
RETURN
答案:
1).DOWHILEC<=10或DOWHILEC<11
2).IW2或l=-l*(-2)
3).ENDD或ENDDO
K第23题》(练习题所在文件夹性56)
車题目:
求1+5+9+13+—+97的和。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
SETTALKOFF
S=0
N=0
DOWHILEN<=97
♦♦♦♦♦*****pQJ^JQ#*4l*****♦♦
S=S+1
N二N+4
ENDWHILE
S
SETTALKON
答案:
1).
N=1或STOR1TON
2).
S二S+N或S=N+S
3).
ENDDO或ENDD
K第24题H(练习题所在文件夹:
165)
車题目:
求1到10之间奇数的阶乘和t=l!
+3!
+5!
+・・・+9!
車注意:
不可以增加或删除程序行,也不可以更改程序的结构。
found
t=l
P=1
♦♦♦♦****♦♦
Dowhilel>10
P=p*l
★mid**FOUND
Ifint(i/2)=i/2
T=t+p
Endif
1=1+1
Enddo
答案:
1).
t=0
2).
dowhilei<10
3).
!
=或<>或#
[(第25题》(练习题所在文件夹江68)
車题目:
查找中女职工的最高工资.并显示其姓需和工资。
可主意:
不可以增加或删除程序行,也不可以更改程序的结构。
♦***♦♦♦*
OPENRSH
MGZ=O
DOWHILE.()
men**
IF性别•女l,/MGZ MGZ二工资 MXM二姓名 ENDIF**♦♦*******PQ(J[\Jp♦♦*♦♦*♦♦♦♦ CONT ENDDO MXM.MGZ USE 答案: 1). USERSH 2). IF性别='•女".and.MGZv工资 3). SKIP x[(第26题U(练习题所在文件夹: 154) *题目: 以下程序输岀如下图所示的图形。 *! $! *! $! $! $ *! $! $! *! $! $! $! $! $ *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF 1=4 DOWHILEl<10 ★mid**FOUND IFINT(I/2)=IZ2 1=1*2 ELSE 1=1-1 ENDIF FORJ=1TOI found IFJ/2=O ii|n ELSE ENDDO ENDFOR ENDDO RETURN 答案: 1).IFINT(l/2)ol/2或IFM0D(l,2)=l或IFI%2=1 2).IFJ%2=1或IFmod(j,2)=l 3).ENDIF或ENDI K第27题》(练习题所在文件夹: 190) *题目: 计算岀1到50以内(包含50)能被2和3整除的数之和。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 STOR0TOXZY DOWHILENOTEOF() X=X+1 DOCASE men** CASEMOD(X,2)=0orMOD(X/3)=0 Y=Y+X CASEX<=50 ♦♦♦♦*******pQU^|Q******♦♦♦* X=X+1 CASEX>50 EXIT ENDCASE ENDDO 答案: 1).DOWHILE.T. 2).and 3)・LOOP K第29题H(练习题所在文件夹: 196) *题目: 分别统汁化学系的男、女生总人数并显示出来。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 USEXSDB STOR0TORS1,RS2 FINDFOR系别J化学,, DOWHILE.() IF性别o"男 RS1=RS1+1 ELSE RS2=RS2+1 ENDIF CONT ENDDO "男生人数=",RS1 "女生人数=",RS2 USE 答案: 1).LOCATEFOR系别=”化学,•或LOCATEALLFOR系别二”化学,, 2).IF性别i男”或IF性别女,, K第30题U(练习题所在文件夹: 187) *题目: 从键盘输入十个非零整数,统计能被3整除的数的个数。 可主意: 不可以增加或删除程序行,也不可以更改程序的结构。 STORE0TOl,A h***hfounD京 DOWHILEl<=10 INPUTHiW输入一个整数TON K第31题H(练习题所在文件夹: 152) *题目: 从键盘上输入5个数,统计其中奇数的个数。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF A=0 FORJ=1TO5 found ACCEPT%青输入第,,+STR(J/2)+”数,,TOM IFINT(M/2)=M/2 A=A+1 ENDIF ENDFOR **********匚ClIMR********** 奇数个数是,A CANCEL 答案: 1).INPUT%青输入第”+STR(J,2)+'数”TOM 2).IFINT(M/2)#M/2或IFINT(M/2)! =M/2或IFINT(M/2)<>M/2 3)・嘴数个数是蔦A或筍数个数是: str(A) K第32题H(练习题所在文件夹: 15刀 养题目: 求2! +4! +6! +—+10! 的和。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF S=0 ♦*♦****♦♦♦ T=0 FORN=2TO10 T=T*(T-1) IFN%2=0 S二S+N ENDIF ENDFOR S 答案: 1).T=1 2).T=T*N或T二屮T 3).S=S+T或S=T+S [(第33题》(练习题所在文件夹: 46) 1•■题目: 计算并在屏幕上显示出"九九乘法表",显示格式如下 *1X1=1 *2X1=22X2=4 *3X1=33X2=63X3=9 *9X1=9…9X8=729X9=81 *程序中共有2个错误,请修改下而一条语句的错误,并调试运行。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 X=1 DOWHILEX<=9 Y=1 DOWHILEY<=9 STR(X/l)+nX,,+STR(Xl)+,,=,,+STR(X*X2)+,1" Y=Y+1 ENDDO disp X=X+1 ENDDO 答案: 1).DOWHILEY<=X或DOWHILEX>=Y 2)・ K第34题》(练习题所在文件夹江53) *题目: 表结构为: 学号(C,6),姓名(C,6), *性别(C,2),入学成绩(N,6,2)。 *本程序实现按学号査找记录,直到输入"护为止。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 SETTALKOFF USEXSDA ★mid**FOUND ACCEPT1储输入要查找的学号,'ONXH DOWHILEXH! =l,#H LOCATEFOR学号=,,CJN IFFOUND() 学号,姓名,入学成绩 ELSE "无此学号" ENDIF ACCEPT"请继续输入要查找的学号"TOXH ♦♦♦♦******PQ|J|^Q**♦****♦♦♦ ENDFOR "谢谢使用本查找系统“ USE SETTALKON 答案: 1).ACCEPT"请输入要查找的学号"TOXH或ACCEPT诵输入要査找的学号’TOXH或 ACCEPT[请输入要査找的学号]TOXH 2).LOCATEFOR学号二XH或LOCAFOR学号二XH 3).ENDDO K第35题U(练习题所在文件夹: 166) *题目: 计算出1-30以内(包含30)能被5整除的数之和。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 CLEAR SETTALKOFF X=0 ♦♦♦♦******PQ|J|^Q**♦*****♦♦ Y=1 DOWHILE.T. X=X+1 DOCASE CASEMOD(X,5)=0 Y=Y+X CASEX<=30 ♦****♦♦ EXIT CASEx>30 LOOP ENDCASE ENDDO Y SETTALKON 答案: 1).Y=0或STOREOTOY 2).LOOP 3).EXIT或Quit K第37题》(练习题所在文件夹: 186) *题目: 接收键盘输入的任意5个整数(不超过3位数),找出其中的最 *大数并显示。 程序中共有2个错误。 *注意: 不可以增加或删除程序行,也不可以更改程序的结构。 INPUT11请输入第一个数TTOX STOREXTOMA N=5 h***hfounD京 DOWHILEN>=5 INPUTH请输入下一个数TOX IFMA MA=X ENDIF N=N-1 ENDDO 11最大数=,,+SUBS(M
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vfp 程序 改错
![提示](https://static.bdocx.com/images/bang_tan.gif)