vfp程序改错docWord文档格式.docx
《vfp程序改错docWord文档格式.docx》由会员分享，可在线阅读，更多相关《vfp程序改错docWord文档格式.docx（49页珍藏版）》请在冰豆网上搜索。
或"
女"
表示，政治面貌用字符串"
*党员"
、"
团员"
群众"
表示。
此文件已按政治面貌建立
*了索引，索引文件名是。
*程序功能是：
显示输出所有政治面貌为"
的女职工的
*姓名和出生日期（每行输出一个职工的信息）在屏幕上
settalkoff
clear
***********FOUND**********
USEZHG
SEEK"
DOWHILE!
EOF（）
IF性别="
女"
DISP姓名,出生日期
ENDD
SKIP
USE
SETTALKON
USEZHGINDEXZHG_ZHZH
DOWHILE政治面貌="
或DOWHILE政治面貌='
群众'
或DOWHILE政治面貌
=[群众]
3）.ENDIF
〖第5题〗（练习题所在文件夹:
105）
在中，查找职工赵红的工资，如果工资小于200元，
*则增加100元；
如果工资大于等于200元且小于500元时，则增
*加50元；
否则增加20元。
最后显示赵红的姓名和工资。
USERSH
LOCATEFOR姓名=赵红
DOCASE
CASE工资<
200
REPLACE工资WITH工资+100
500
REPLACE工资WITH工资+50
OTHERWISE
REPLACE工资WITH工资+20
ENDCASE
LIST
姓名,工资
1）.LOCATEFOR
或LOCATEFOR姓名=[
姓名="
赵红"
或LOCAFOR姓名='
赵红'
或LOCAFOR姓名="
赵红]或LOCAFOR姓名=[赵红]或LOCATEFOR姓名='
2）.DISP姓名,工资或姓名,工资或DISPLAY姓名,工资
〖第6题〗（练习题所在文件夹:
174）
计算S=2+4+6+...+98+100的程序。
store0tos,i
doi<
=99
i=i+1
s=s+i
enddo
s="
s
1）.dowhilei<
=99或dowhilei<
100或dowhilei<
=98或dowhilei<
99
2）.I=2+I或I=I+2或STORI+2TOI
〖第7题〗（练习题所在文件夹:
520）
*题目:
猴子吃桃问题：
猴子第一天摘下若干个桃子，当即吃了一半，
*还不过瘾，又多吃了一个，第二天早上又将剩下的桃子吃掉
*一半，又多吃了一个。
以后每天早上都吃了前一天剩下的一
*半零一个。
到第10天早上想再吃时，见只剩下一个桃子了。
*求第一天共摘了多少。
DAY=9
X2=0
DOWHILEDAY>
X1=（X2+1）/2
X2=X1
DAY=DAY+1
第一天摘下"
X1,"
个桃子"
1）.X2=1
2）.X1=（X2+1）*2
3）.DAY=DAY-1
〖第8题〗（练习题所在文件夹:
175）
打开数据表,分别统计男、女生的人数。
USEXSDB
STOR0TOB,G
DOWHILE.（）
IF性别<
>
男
B=B+1
G=G+1
男生人数是：
+STR（B）
女生人数是：
+STR（G）
1）.IF性别="
男"
或IF性别<
女"
2）.ELSE
〖第9题〗（练习题所在文件夹:
188）
显示中每个学生的姓名、计算机成绩和等级；
等
*级划分如下：
计算机成绩大于等于90显示"
优秀"
；
60到89
*（包括60和89）之间显示"
及格"
60分以下显示"
补考"
。
*如显示：
张丽娜90优秀。
DOWHIL.NOT.EOF（）
LIST姓名,计算机
CASE
'
计算机>
=90
优秀'
=60
及格'
补考'
GONEXT
1）.姓名,计算机或DISPLAY姓名,计算机
或
SKIP1
〖第10题〗（练习题所在文件夹:
191）
从键盘上输入5个数，将其中奇数求和,偶数求积。
S1=0
S2=0
FORI=1TO5
INPUT"
请输入第"
+STR（I,1）+"
数"
TOM
IFINT（M/2）=0
S1=S1+M
ELSE
S2=S2*M
ENDFOR
奇数和是"
S1
偶数积是"
S2
1）.S2=1或STOR1TOS2
2）.IFMOD（M,2）<
0或IFMOD（M,2）#0
或IFM%2<
0或IFM%2!
=0或IFM%2#0
IFINT（M/2）<
M/2
IFINT（M/2）#M/2
〖第11题〗（练习题所在文件夹:
182）
在中查找学生徐秋实的记录,如果找到则将该记录
*的系别、姓名,两科科目名称和对应的成绩显示在屏幕上，否则
*显示:
查无此人!
FINDFOR姓名="
徐秋实"
IF.（）
查无此人!
系别,姓名,"
计算机="
+计算机,"
英语="
+英语
1）.LOCATEFOR姓名="
或LOCATEALLFOR姓名="
2）.系别,姓名,"
+STR（计算机）,"
+STR（英语）
或系别,姓名,"
计算机,"
英语
〖第13题〗（练习题所在文件夹:
161）
从键盘输入一个表名，打开该表文件，移动记录指针到
*文件头，输出当前记录号；
在移动记录指针到文件尾，
*输出当前记录号。
ACCEPTTOA
FINDA
GOTOP
NEXT
RECNO（）
GOBOTTOM
NEXT-1
USE（A）SKIP-1SKIP
或USE&
A
〖第14题〗（练习题所在文件夹:
162）
从键盘输入一个表文件名，打开该表，查找"
姓名"
是
*"
张东"
的记录，并显示该记录，最后输出"
是"
张
*东"
的记录个数。
（设被打开的表中有固定字段"
）
USE&
N=1
SCANFOR姓名="
N=N+1
ENDSCAN
记录个数是,N
N=0
或Store0ToN
DISPLAY
或DISP
记录个数是"
N
或"
str（N）
〖第16题〗（练习题所在文件夹:
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）
Y=Y+I
X,Y
1）.DOWHILEI<
100或DOWHILEI<
2）.LOOP
〖第17题〗（练习题所在文件夹:
501）
*题目:
是一个学生信息文件，包含学号（C8）、
*姓名（C8）、性别（C2）、政治面貌（C4）、班级（C5）
*等字段；
其中性别用字符串"
表示，政治面貌
*用字符串"
党员"
、"
团员"
或"
表示。
*程序的功能是：
的男生姓
*名和班级。
USESTUDENT
LOCATEFOR政治面貌="
DOWHILE.not.FOUND（）
CONTINUE
break
姓名,班级
skip
DOWHILEFOUND（）
或DOWHIL.（）
LOOP
x〖第19题〗（练习题所在文件夹:
148）
从键盘上输入任意一串字符，判断是否回文。
*例如：
MUM、456654，MADAM。
ACCEPT"
A="
TOA
L=LEN（A）
FLAG=1
I=1
DOWHILEFLAG=1ORI<
=INT（L/2）
IFSUBS（A,I,1）<
SUBS（A,L-I,1）
FLAG=0
IFFLAG=0
是回文"
不是回文"
CANCEL
1）.DOWHILEFLAG=1ANDI<
2）.IFSUBSTR（A,I,1）<
SUBSTR（A,L-I+1,1）
3）.IFFLAG=1
〖第20题〗（练习题所在文件夹:
189）
从键盘输入一个数X，当X大于0、Y的值为1；
当X等于0、Y的
*值为0；
当X小于0、Y的值为-1,然后输出Y的值。
输入一个数X：
TOX
IFX>
Y=1
Y=0
Y=-1
Y=Y"
=0
Y="
Y
IF0<
=X
+STR（Y）
〖第22题〗（练习题所在文件夹:
505）
计算并显示输出数列1,-1/2,1/4,-1/8,1/16的
*前10项之和。
STORE1TOI,C
=10
Y=Y+（-1）^（C+1）/I
I=-I*2
C=C+1
数列前10项之和为:
SETTALKONRETURN
DOWHILEC<
或DOWHILEC<
11
I=I*2
或I=-I*（-2）
或ENDDO
〖第23题〗（练习题所在文件夹:
156）
求1+5+9+13++97的和。
S=0
DOWHILEN<
=97
S=S+1
N=N+4
ENDWHILE
S
或STOR1TON
S=S+N
或S=N+S
或ENDD
〖第24题〗（练习题所在文件夹:
165）
求1到10之间奇数的阶乘和t=1!
+3!
+5!
++9!
t=1
P=1
DowhileI>
10
P=p*I
Ifint（i/2）=i/2
T=t+p
Endif
Enddo
t="
t
1）.t=0
2）.dowhilei<
3）.!
=或<
或#
〖第25题〗（练习题所在文件夹:
168）
查找中女职工的最高工资，并显示其姓名和工资。
OPENRSH
MGZ=0
MGZ<
工资"
MGZ=工资
MXM=姓名
CONT
MXM,MGZ
1）.USERSH
2）.IF性别="
.and.MGZ<
工资
3）.SKIP
x〖第26题〗（练习题所在文件夹:
154）
以下程序输出如下图所示的图形。
*!
$!
$
I=4
IFINT（I/2）=I/2
I=I-1
FORJ=1TOI
IFJ/2=0
!
$"
IFINT（I/2）<
I/2
或IFMOD（I,2）=1
或IFI%2=1
IFJ%2=1
或IFmod（j,2）=1
或ENDI
〖第27题〗（练习题所在文件夹:
190）
计算出
1到50
以内（包含50）能被2和3整除的数之和。
STOR0TOX,Y
DOWHILENOTEOF（）
X=X+1
CASEMOD（X,2）=0orMOD（X,3）=0
Y=Y+X
CASEX<
=50
CASEX>
50
Y
1）.DOWHILE.T.
2）.and
3）.LOOP
〖第29题〗（练习题所在文件夹:
196）
分别统计化学系的男、女生总人数并显示出来。
STOR0TORS1,RS2
FINDFOR系别="
化学"
男"
RS1=RS1+1
RS2=RS2+1
男生人数="
RS1
女生人数="
RS2
LOCATEFOR系别="
或LOCATEALLFOR系别="
〖第30题〗（练习题所在文件夹:
187）
从键盘输入十个非零整数，统计能被3整除的数的个数。
STORE0TOI,A
请输入一个整数:
TON
IFMOD（N/3）=0
A=A+1
或DOWHILEI<
=9
IFMOD（N,3）=0
或IN%3=0或IFINT（N/3）=N/3
〖第
升级会员 