中职visual foxpro60程序填空1文档格式.docx
- 文档编号:19269786
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:55
- 大小:32.78KB
中职visual foxpro60程序填空1文档格式.docx
《中职visual foxpro60程序填空1文档格式.docx》由会员分享,可在线阅读,更多相关《中职visual foxpro60程序填空1文档格式.docx(55页珍藏版)》请在冰豆网上搜索。
SELE0
USEKCHALIASK
INDEXON[12]_________TOXH2
USEXK
SETRELATIONTO学号INTOX
SETRELATO课程号[13]_________
LIST学号,X->
姓名,K-》课程名,成绩
5、在SXDJ.DBF库中按姓名进行索引查找,若找到显示姓名和民族,若没找到显示“查无此人”,在查找完毕后则根据提示输入:
Y(继续)或N(退出)
[14]__________
DOWHITE[15]________
ACCE“姓名”TOXM
INDEXON姓名TOX
[16]________________
IF[17]______________
姓名,民族
ELSE
?
“查无此人”
WAIT“是否继续查找其他人?
”TOX
IF[18]____________=“y”
GOTOP
LOOP
[19]____________
[20]____________
6、在XS.DBF中的5号记录和6号记录之间加一条记录
USEXS
[21]___________
[22]___________BEFORE
REPL姓名WITH“王宏英”
[23]_____________学号WITH“940110”
7、下列程序的功能是将“疆域部考试中心”显示为各字中间带一个空格的“教育部考试中心”
请天空
SETTALKOFFCLEAR
X=“教育部考试中心”
Y=“”
DOWHILELEN(X)>
=[24]____________
Y=Y+SUBSTR(X,3)
[25]_____________
SETTALKON
1、下列程序通过输入姓名,在XF.DBF库文件(其中有“姓名”字段)中进行查找,若找到则显示其姓名和年龄,并查找相同姓名的其他人,若没有则显示“查无此人”信息,当查找完毕则根据提示输入:
Y(继续)或N(推出)。
[1]__________
DOWHILE.NOT.EOF()
CLEAR
F=0
ACCEPT“输入姓名”TO[2]__________
LOCAALLFOR姓名=XM
[3]__________
姓名,年龄
F=1
[4]__________
IF[5]__________
WAIT“是否继续查找其他人”TOX
IFUPPER(X)=“Y”
[6]__________
USESETTALKONRETURN
2、求1~100之间的奇数和,要求在程序中用LOOP语句
[7]__________
S=1
100
IF[8]__________
[9]__________
SSETTALKON
3、下列程序功能是在批改内幕上先上一个山*组成的三角形(如图所示)
*
***
*****
*******
*********
R=1
[10]CC=10
DOWHILER<
=5
DOWHILES<
=[11]__________
@R,CCSAY[12]__________
CC=CC+1
[13]__________
CC=10-R
[14]__________
4、对于DJKS库,把笔试成绩和上机成绩均达到80分的考生记录的等级字段中填入“优秀”。
[15]__________
DOWHILE[16]__________
IF笔试>
=80.AND.上级>
=80
[17__________
SKIP
[18]__________
5、有如下程序
I=1
DOWHITE.T.
IFI>
6
EXIT
I=I+1
@I+5,I-1的值是[19]__________[20]
6、有两个数据库文件,订单库DDK.DB,价库TJK.DBF,DDK.DBF的结构为:
书名(20)、册数(N,4)、单价(N,6,2)、金额(N,2)下面的命令序列把DDL.DBF中所有书的单价和金额改为TJK.DBF库中调价后的单价和金额
SELE1
[21]__________
INDEON书名TOSHM
SELE2
[22]__________
SETRELATIONTO书名INTOA
[23]__________
CLOSEDATA
7、下面是个口令程序,请天空。
Pass=“abcd”
@10,20SAY“请输入口令:
”
SETCONSOLE[24]__________
ACCEPTTOpassword
SETCONSOLE[25]__________
IFpassword<
>
pass
CHR(7)
WAIT“口令输入错误!
按任意键退出。
QUIT
“口令输入错误!
ELLSE
“欢迎使用本系统!
P=INKEY(3)
ENDIFSETTALKONRETURN
1、计算2+(2+4)+(2+4+6+…+100)
STORE0TOX,I,[1]__________
DOWHILE[2]__________
S=S+X
S
RETURN
2、下面程序用语逐个显示职称为教授的数据记录,请进行程序填空
USETEACHER
DOWHILE[5]_________
IF职称<
“教授”
WAIT“任意键继续!
[8]__________
3、以姓名为关键字,用CJ.DBF中各记录的总分段更新DA.DBF中各记录的成绩
SELECT1
USEDA
SELECT2
USECJ
[10]__________
[11]__________
UPDATEON姓名[12]__________REPLACE[13]__________
WITH[14]__________
4、数据库XS.DBF中查询姓名为“许近”的记录,若其总粉大雨或等于250分,则显示其学好,姓名,专业和总粉。
SEEK“许近”
IF[16]_____
IF[17]__________
DISP学号姓名,专业,总分
“许近总分小于250分”
“库中没有许近的记录”
5、任意一数,若能被3或7整除,则输出该数
INPUT“输一个数”TOX
IF[19]__________
[20]__________
6、统计学分管理库(XFGL.DBF)中所有学生数学总分与平均分
ZF=0
USE[22]__________
ZF=ZF+数学
K=K+1
[24]__________
“数学总分”+STR(ZF,5,1
“数学平均分+[25]__________
USE
1、要求从键盘输入10个数,并由小到大排列出来
[1]___________M(10)
DOWHILE___________[2]
INPUTTOM(I)
I=I+1
DOWHILE___________[3]
___________[4]
DOWHILE___________[5]
IFM(I)>
(J)
T=M(I)
M(I)=___________[6]
___________[7]
ENDIF
___________[8]
ENDDO
___________[9]
DOWHILEI<
=10
M(I)
2、下面程序的功能是根据销售数据库文件sale.dbf中的数据去修改库存文件inventry.dbf数据,填空:
USEinventory
USEsale
DOWHILE___________[10]
SELECT1
LOCATEFOR商品名=___________[11]
REPL数量WITH___________[12],总金额
WITH单价*数量
SELECT2
___________[13]
CLOSEDATABASE
3、共有五个库std1.dnf~std5.std,下面程序是删除每一个库文件的尾记录,请天空:
n=1
DOWHILEn<
db=___________[14]
USE___________[15]
GOTO___________[16]
DELE
___________[17
n=m+1
4、下面程序用来某一库文件查找某一姓名的记录,请补充:
ACCEPT‘请输入库文件名’TOKWJ
USE___________[18]
ACCEPT‘请输入要查找的姓名’TOXM
LOCATE
___________[19]
IF___________[20]
DISP
?
“没找到”
5、有两个库文件如下
KS1.DBF
学号姓名奖学金家中补贴
1001张力1550
1002李平1840
1003王勇2135
1004吴军2525
KS2.DBF
学号姓名勤工收入
1001张力12
1002李平32
1003王勇15
1004吴军75
现要填写收入字段,公式为收入=奖学金+家中补贴+勤工,并把两个库文件按学号、姓名、勤工、奖学金、加重补贴,收入字段书许连接起来,生成一个新库存文件KS3.DBF,请补充。
CLEARALL
SELECT0
USEKS1
___________[21]
INDEX___________[22]TOIKS2
UPDATEON学号FROM___________[23]
JOINWITHKS1TOKS3___________[24]
___________[25]
1、由键盘输入10实数,统计其中最大数的程序
K=1
INPUT“请输入第一个数:
”TOY
DOWHILEK[1]
[2]“请输入下一个数:
”TOX
IFY<
X
[3]
“最大数=”,Y
2、以下是从键盘输入10个字符串,统计其中有几个含有字母“A”的程序。
S=[4]
DOWHILEK《11
ACCEPT“输入一串字符”TOX
IF“A”$X
[5]
[6]
“含有字母A的字符串共有:
”,SRETURN
3、任意输入10个数,按由大到小的顺序显示
DIMENSIONA(10)
10
INPUT“第”+str(I,2)+“个数=”TOA(I)
I=[7]
=9
[8]
DOEHILEJ<
IF[9]
P=A(I)
A(I)=[10]
[11]
J=J+1
[12]
[13]
A(10)
[14]
4、给定工资数据库GZ.DBF,通过结构复制生成工资统计数据库文件GZTJ.DBF,仅复制编号(BH)、姓名(XM)、工资(GZ)三个字段以循环方式将GZ.DBF中工资(GZ)小于600元的相应数据添加GZTJ.DBF文件中,最后显示GZTJ.DBF文件中的数据。
SUEGZ
[15]
USEGZTJ
GOTOP
DOWHILE[16]
IF[17]
[18]
REPLACEBHWITH[19],XMWITH[20],GZWITH[21]
ENDID
[22]
DISPPLAYALL
CLOSECATABASESETTALKONRETURN
5、SN=1+2+3+…N对于任意输入的N,输出S的值:
S=1+(1+2)+(1+2)+…+(1+2+3…+N)SETTALKOFF
INPUT“输入N的值”TON
S=0
=N
J=[23]
SN=[24]
DOWHILE[25]
SN=SN+J
ENDDO
S=S+SN
“S=”,SSETTALKONRETURNE
1、下面程序的功能是将内存变量文件中的10个变量恢复到内存来的同时,仍保留原来内存中变量,然后将开头字母是a的变量删除,再将期于变量保存到另一个内存变量文件中。
请补充:
__________FORMM1.NEM__________
____________________
__________TOM2.MEM__________
2、编程打印如下图形:
DOWHILE__________A
J=1BBB
DOWHILE__________CCCCC
@9+I,10-I+JSAY__________DDDDDDD
J=J+1
__________
3、利用自定义函数求M!
主程序如下:
MAIN.PRG
INPUT‘M=’TOM
__________
子程序如下JC.PRG
T=1
DOWHILEN>
=1
T=T*N
4、下列程序统计100~90,90~75,75~60和60~0各分数段人数,请补充:
USEXSCJ
CASE平均分>
=90
=75
=60
CS=C3+1
=0
C4=C4+1
ENDCASE
‘100~90分的人数’,C1,‘人’
‘90~75分的人数’C2,‘人’
‘75~60分的人数’C3,‘人’
‘60分的人数’,C4,‘人’
5、编程求1~100之间奇数和
S=__________
DOWHILE__________
IF__________
S=S+I
‘1~100间奇数和=’,S
6、以下是从键盘输入10个字符串,统计其中有几个含有字母“A”的程序。
DOWHILEK<
11
CCEPT“输入一串字符”TOX
IF“A”$X
”,S
三、程序填空(每空2分,共50分)
1、程序A.PRG的功能是求1到200之间所有证书的平方和并输出结果。
X=1
DOWHILEX<
=200
[1]_____________
[2]_____________
2、从键盘接受一整数(>
2)是否为素数
INPUT“输入一个整数”TON
A1=2
A2=[3]_____________
DOWHILE[4]_____________
IF[5]_____________
A1=[6]_____________
IF[7]_____________
N,“是素数”
N,“不是素数”
3、设数据库STU.DBF,其中含有“姓名”字段,因误操作,使该库中含有重复记录,现以姓名为关键字建立了索引文件SYXM.IDX,下列程序将进行检索,并把重复记录删除
USESTUINDEXSYXM
DOWHILE[8]_____________
XM=姓名
DOWHILE姓名=XM
DELE
[9]_____________
[10]_____________
USERETURN
4、下列程序,任意输入20个数,找出最大数和最小数。
INPUTTOX
MA=X
MI=X
=[11]_____________
IFMA<
[12]_____________
[13]_____________
[14]_____________
MA,MI
5、库SSS.DBF中查询某专业的学生,并逐条显示该专业所有学生的记录。
USESSS
ZY=SPACE(10)
@2,20SAY“请输入专业名称”GETZY
[15]_____________
LOCATEFOR专业=ZY
IF[16]_____________
@3,20SAY“没有符合条件的记录,按任意键结束!
[17]_____________
DOWHILE.NOT.EOF
[18]_____________
CONTIWG
WAIT“”
6、下列程序的功能在屏幕上显示一个由“*”组成的三角形(如图所示),请进行程序填空
[19]_____________
=5*
S=1***
=2*R-1*****
@R,CCSAY[20]_____________*******
CC=CC+1*********
[21]_____________
[22]_____________
7、如下程序的功能是将硬盘上9个班学生的成绩数据库文件复制到A盘上。
源数据库文件名分别为chj1.dbf、chj2.dbf\…、chj9.dnf,而目标文件名是在源文件名前冠以年份,例如当输入年份为99时,目标文件时,目标文件即99chj1.dbf、99chj2.dbf、…99chj9.dbf。
该
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 中职visual foxpro60程序填空1 visual foxpro60 程序 填空