程序改错与填空全部试题Word格式文档下载.docx
- 文档编号:20428368
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:220
- 大小:90.66KB
程序改错与填空全部试题Word格式文档下载.docx
《程序改错与填空全部试题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《程序改错与填空全部试题Word格式文档下载.docx(220页珍藏版)》请在冰豆网上搜索。
”,T
(1)T=0
(2)INPUT(3)2**I
第4题:
复制表XSDA.DBF,生成新表XS.DBF,在新表中查找所有男同学的记录,并将男同学的记录逻辑删除。
USEXSDA
USEXS
LOCATEFOR性别=“男”
DOWHILEFOUND()
USE
(1)COPYTOXS
(2)DELETE(3)CONTINUE
第5套:
表RSDA.DBF结构为:
姓名(C,6);
性别(C,2),年龄(N,2),出生日期(D,8)。
判断表中是否有“李明”,查询此人的性别及年龄,确定参加运动会的项目。
USERSDA
】FOR姓名=“李明”
IF.NOT.【?
DOCASE
CASE性别=“男”
“请参加爬山比赛”
CASE年龄<
=50
“请参加投篮比赛”
=60
“请参加老年迪斯科比赛”
*************SPACE*******【?
ELSE
“查无此人”
BROWSE
(1)LOCATE
(2)EOF()(3)ENDCASE
第6题:
显示所有100以内的6的倍数的数,并求这些数的和。
I=1
=100
*************SPACE*******IFMOD(【?
】)=0
I
S=S+I
I=I+1
“S=”,S
(1)S=0
(2)I,6(3)ENDIF
第7题:
通过循环程序输出图形:
1
321
54321
7654321
FORN=1TO4
*************SPACE*******FORM=1TO【?
“”
FORM=1TO2*N-1
STR(【?
】,1)
(1)?
(2)8-N*2(3)2*N-M,1
第8题:
*
**
**
CLEAR
FORN=1TO9
IFN<
=5
M1=【?
FORM=1TOABS(【?
】)
“”
FORM=1TOABS(M1-2*N+1)
IFM=1ORM=ABS(M1-2*N+1)
“*”
(1)0
(2)18(3)5-N
第9题:
从键盘输入一个表的文件名,将该表的第一条记录和最后一条记录的“姓名”字段内容互换。
(设表中有固定字段“姓名”)
ACCEPTTOA
USE&
A
GO1
XM1=姓名
GOBOTTOM
REP1姓名WITH【?
REPL姓名WITHXM2
(1)XM2=姓名
(2)XM1(3)GO1
第10题:
从键盘输入一个表的文件名,在该表的第1条记录之前插入一条空记录,然后查找“姓名”为“王丽”的记录。
如果找到,输出“姓名”为“王丽”的记录。
】FOR姓名=“王丽”
IFNOTEOF()
】TOAFOR姓名=“王丽”
“共”,A,“条”
“没有找到”
(1)INSERTBLANKBEFOR
(2)LOCATE(3)COUNT
第11题:
从键盘输入一个表的文件名,查找“姓名”为“刘洪”的记录。
如果有该记录,则将该表结构及“姓名”为“刘洪”的记录一起复制成一个新表(表名为“A1”):
否则,仅复制表结构。
(设,表中有固定字段“姓名”)
】FOR姓名=“刘洪”
】TOA1FOR姓名=“刘洪”
】TOA1
(1)LOCATE
(2)COPY(3)COPYSTRUCTURE
第12题:
通过循环程序,输出“九九表”
1×
1=1
2=22×
2=4
3=32×
3=63×
3=9
4=42×
4=83×
4=124×
4=16
5=52×
5=103×
5=154×
5=205×
5=25
6=12×
6=123×
6=184×
6=245×
6=306×
6=36
7=72×
7=143×
7=214×
7=285×
7=356×
7=427×
7=49
8=82×
8=163×
8=244×
8=325×
8=406×
8=487×
8=568×
8=64
9=92×
9=183×
9=274×
9=365×
9=456×
9=547×
9=638×
9=729×
9=81
STR(M,1)+“×
”+STR(N,1)+“=”+【?
】+“”
(2)FORM=1TON(3)STR((N*M),2)
第13题:
设表AAA.DBF包括学号、姓名、成绩,下列程序完成显示最高成绩记录的学号、姓名、成绩。
USEAAA
NN=1
MAX1=成绩
DOWHILENOT【?
IF成绩>
MAX1
NN=RECNO()
“最高成绩:
学号=“+学号+”,姓名=“+姓名+”,成绩=“
成绩
(1)EOF()
(2)SKIP(3)GONN
第14题:
从键盘输入某设备的名称,如果找到显示其编号和价格,找不到时给出“无此设备”的提示。
USESB
MC=SPACE(4)
@10,10SAY“输入设备名称:
”GETMC
LOCAFOR名称=【?
DISP编号,价格
“无此设备”WINDOWS
(1)READ
(2)MC(3)FOUND()
第15题:
对表XSCJ.DBF,如下程序可以完成:
1、显示全体同学的记录,2、显示全体男同学的记录,3显示全体女同学的记录0退出
DOWHILE.T.
@10,10SAY“1、显示全体同学的记录,2、显示全体男同学的记录”
@14,10SAY“3、显示全体女同学的记录,0、退出”
@16,16SAY“”
WAIT“请输入选择(0—3):
”TOX
CASEX=“1”
LIST
CASEX=“2”
LISTALLFOR性别=“男”
CASEX=“3”
LISTALLFOR性别=“女”
CASEX=“0”
ENDCASE
(1)USEXSCJ
(2)EXIT(3)ENDDO
第16题:
求1到100之间的奇数积、偶数和。
S2=1
FORI=1TO100
IFMOD(I,2)=【?
S1=S1+I
S2=【?
NEXT
“奇数积为:
”,S2
“偶数和为:
”,S1
(1)S1=0
(2)0(3)S2=S2*I
第17题:
下面是计算1+3+5+…99之和的程序
FORI=1TO99【?
“结果=”,【?
(1)S=0
(2)STEP2(3)S
第18题:
在XSDB.DBF数据表中查找学生王迪,如果找到,则显示:
学号、姓名、英语、出生年月日,否则提示“查无此人!
”
XM=“王迪”
】姓名=XM
IFFOUN()
】学号,姓名,英语,出生年月日
“查无此人!
(1)USEXSDB
(2)LOCATEFOR(3)DISPLAY
第19题:
依次显示XSDB.DBF数据表中的记录内容
DOWHILE【?
DISP
USEXSDB
(2).NOT.EOF()(3)SKIP
第20题:
求1到50的累加和(S=1+2+3…+50)并显示
H=H+I
H
(1)H=0
(2)I<
=50(3)I=I+1
第21题:
实现:
求0—100之间的奇数之和,走出范围则退出
X=0
Y=0
X=X+1
CASE【?
LOOP
CASEX>
OTHERWISE
Y=Y+X
“0—100之间的奇数之和为:
”,Y
(1)MOD(X,2)=0
(2)EXIT(3)ENDDO
第22题:
下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖学金做相应调整,双科90(包括90)分以上的每人增加30元;
双科75分以上(包括75)的每人增加20元;
其他人增加10元。
USEXSDB
CASE计算机>
=90AND英语>
=90
REPLACE奖学金WITH奖学金+30
=75AND英语>
=75
REPLACE奖学金WITH奖学金+20
REPLACE奖学金WITH奖学金+10
(1).not.eof()
(2)OTHERWISE(3)SKIP
第23题:
列出XSDB.DBF数据表中法律系学生记录,将结果显示输出
IF系别=“法律”
IFEOF()
(1)USEXSDB
(2)SKIP(3)EXIT
第24题:
统计300到600之间(包括300和600)能被3整除的数的个数。
GS=0
N=300
IFMOD(N,3)=0
“300到600之间(包括300和600)能被3整除的数的个数为”,GS
(1)N<
=600
(2)GS=GS+1(3)N=N+1
第25题:
查找XSDB表中计算机成绩最高分的学生,将其姓名和计算机字段的内容显示出来,如:
王迪98
MAX=计算机
DOWHILE.NOT.EOF()
IFMAX<
计算机
XM,MAX
(1)XM=姓名
(2)XM=姓名(3)SKIP
第26题:
显示输出图形
*
***
*****
CLEA
SPAC(10-1)
J=1
DOWHILEJ<
=2*I-1
“*”
(2)J=J+1(3)I=I+1
第27题:
对表xsdb.dbf中的计算机和英语都大于90分以上的学生奖学金进行调整;
法律系学生奖学金增加12元、英语系学生奖学金增加15元、中文系学生奖学金增加18元,其他系学生奖学金增加20元。
DOWHILEFOUN()
CASE系别=“法律”
ZJ=12
CASE系别=“英语”
ZJ=15
CASE系别=“中文”
ZJ=18
ZJ=20
REPL奖学金WITH奖学金+ZJ
(1)LOCAFOR计算机>
=90and英语>
=90
(2)OTHERWISE(3)CONT
第28题:
求0—100之间的偶数之和,超出范围则退出。
STOR0TO【?
IFMOD(I,2)=0
S
(1)I,S
(2)I<
100(3)S=S+I
第29题:
求1到100之间的奇数之和、偶数之和,并将奇数之和存入S1、偶数之和存入S2显示输出。
STOR0TOS1,S2
S2=S2+I
S1,S2
(1)MOD(I,2)<
>
0
(2)ELSE(3)I=I+1
第30题:
找出xsdb.dbf中奖学金最高的学生记录并输出。
MAX=0
奖学金
JLH=RECN()
SKIP
MAX
DISPFORRECN()=JLH
(1)USEXSDB
(2)!
EOF()(3)STOR奖学金TOMAX
第31题:
显示输出图形;
*****
***
DOWHILE【?
=7-2*I
J=J+1
(1)I<
4
(2)?
“*”(3)I=I+1
第32题:
数据表文件DA.DBF存放的是某单位职工的档案,在下面程序中,用户通过按A键或者B键,可分别显示出全体女职工的或全体男职工的记录,已知A键的ASCII为65,B键的ASCII为66,ESC键的ASCII为27。
JP1=‘LISTFOR性别=“男”’
JP2=‘LISTFOR性别=“女”’
USEDA
@1,10SAY“A-全体女职工B-全体男职工ESC-退出”
K=INKEY(0)
DOCASE
CASEK=65
WAIT
CASEK=66
EXIT
(1)&
jp2
(2)&
jp1(3)CASEK=27
第33题:
共有三个表tb1.dbftb2.dbftb3.dbf下面程序功能是把每个表的末尾记录删除。
N=1
DOWHILEN<
=【?
TB=【?
TB
DELE
PACK
END
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 改错 填空 全部 试题