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