中职visual foxpro60程序填空1.docx

中职visual foxpro60程序填空1.docx

《中职visual foxpro60程序填空1.docx》由会员分享，可在线阅读，更多相关《中职visual foxpro60程序填空1.docx（55页珍藏版）》请在冰豆网上搜索。

中职visualfoxpro60程序填空1

1、下面程序功能是将汉字串“计算机对口升学考试”从屏幕地步向上移动。

SETTALKOFFCLEA

X=“计算机对口升学考试”

K=23

DOWHILE[1]______________

@K,26SAYSPACE（18）

@[6]__________SAYX

P=INKEY

（1）

K=K-1

ENDDO

SETTALKONRETU

2、有命令如下

USESTU

LIST

RECORD#姓名出生日期代培

1吴大友03/07/80.T.

2杨明明12/09/81.F.

3杨至明09/17/82.F.

4林妮娜06/12/81.T.

5刘怡11/23/80.F.

DELEFORRECNO（）/2=INT（RECNO（）/2）INDEXONSUBSTR（姓名，1，2）+DTOC（出生日期）TOAA

LIST记录显示的顺序是[3]

SETDELEON

SORTON代培TOBB

BB中的记录姓名顺序是[4]_________

LIST记录显示的顺序是[5]_________

3、判断任意数是否为素数

SETTALKOFF

ACCETOX

N=1

[6]__________

DOWHILEN<=[7]_________

N=N+1

IFX/N=INT（X/N）

[8]_____________

ENDIF

ENDDO

IF[9]__________

?

X,“为素数”

ENDIF

SETTALKONRETU

4、设有学生库XSH.DBF（包括学号/姓名字段）：

课程数据库KCH.DBF（包括课程号/课程名字段）和选课数据库XK.DBF（包括学号/课程号/成绩等字段），完成下列程序

SELE0

USEXSH[10]_____________

INDEXON[11]_____________TOXH1

SELE0

USEKCHALIASK

INDEXON[12]_________TOXH2

SELE0

USEXK

SETRELATIONTO学号INTOX

SETRELATO课程号[13]_________

LIST学号，X->姓名，K-》课程名，成绩

5、在SXDJ.DBF库中按姓名进行索引查找，若找到显示姓名和民族，若没找到显示“查无此人”，在查找完毕后则根据提示输入：

Y（继续）或N（退出）

SETTALKOFF

[14]__________

DOWHITE[15]________

ACCE“姓名”TOXM

INDEXON姓名TOX

[16]________________

IF[17]______________

?

姓名，民族

ELSE

？

“查无此人”

ENDIF

WAIT“是否继续查找其他人？

”TOX

IF[18]____________=“y”

GOTOP

LOOP

ELSE

[19]____________

ENDIF

ENDDO

[20]____________

SETTALKONRETU

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）

ENDDO

?

[25]_____________

SETTALKON

1、下列程序通过输入姓名，在XF.DBF库文件（其中有“姓名”字段）中进行查找，若找到则显示其姓名和年龄，并查找相同姓名的其他人，若没有则显示“查无此人”信息，当查找完毕则根据提示输入：

Y（继续）或N（推出）。

SETTALKOFF

[1]__________

DOWHILE.NOT.EOF（）

CLEAR

F=0

ACCEPT“输入姓名”TO[2]__________

LOCAALLFOR姓名=XM

[3]__________

?

姓名，年龄

F=1

[4]__________

ENDDO

IF[5]__________

?

“查无此人”

ENDIF

WAIT“是否继续查找其他人”TOX

IFUPPER（X）=“Y”

GOTOP

LOOP

ELSE

[6]__________

ENDIF

ENDDO

USESETTALKONRETURN

2、求1~100之间的奇数和，要求在程序中用LOOP语句

SETTALKOFF

[7]__________

S=1

DOWHILEN<100

N=N+1

IF[8]__________

LOOP

ENDIF

[9]__________

ENDDO

?

SSETTALKON

3、下列程序功能是在批改内幕上先上一个山*组成的三角形（如图所示）

*

***

*****

*******

*********

SETTALKOFF

R=1

[10]CC=10

DOWHILER<=5

S=1

DOWHILES<=[11]__________

@R，CCSAY[12]__________

CC=CC+1

[13]__________

ENDDO

CC=10-R

[14]__________

ENDDO

SETTALKON

4、对于DJKS库，把笔试成绩和上机成绩均达到80分的考生记录的等级字段中填入“优秀”。

SETTALKOFF

[15]__________

DOWHILE[16]__________

IF笔试>=80.AND.上级>=80

[17__________

ENDIF

SKIP

ENDDO

[18]__________

SETTALKON

5、有如下程序

SETTALKOFF

I=1

DOWHITE.T.

IFI>6

EXIT

ELSE

I=I+1

ENDIF

ENDDO

@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、下面是个口令程序，请天空。

SETTALKOFF

Pass=“abcd”

@10，20SAY“请输入口令：

”

SETCONSOLE[24]__________

ACCEPTTOpassword

SETCONSOLE[25]__________

IFpassword<>pass

?

CHR（7）

WAIT“口令输入错误！

按任意键退出。

”

QUIT

ELSE

？

“口令输入错误！

按任意键退出。

”

QUIT

ELLSE

？

“欢迎使用本系统！

”

P=INKEY（3）

ENDIFSETTALKONRETURN

1、计算2+（2+4）+（2+4+6+…+100）

SETTALKOFF

STORE0TOX,I,[1]__________

DOWHILE[2]__________

[3]__________

[4]__________

S=S+X

ENDDO

?

S

SETTALKON

RETURN

2、下面程序用语逐个显示职称为教授的数据记录，请进行程序填空

USETEACHER

DOWHILE[5]_________

CLEAR

IF职称<>“教授”

SKIP

[6]__________

ENDIF

[7]__________

WAIT“任意键继续！

”

SKIP

ENDDO

[8]__________

3、以姓名为关键字，用CJ.DBF中各记录的总分段更新DA.DBF中各记录的成绩

SELECT1

USEDA

[9]__________

SELECT2

USECJ

[10]__________

[11]__________

UPDATEON姓名[12]__________REPLACE[13]__________

WITH[14]__________

LIST

CLOSEDATA

4、数据库XS.DBF中查询姓名为“许近”的记录，若其总粉大雨或等于250分，则显示其学好，姓名，专业和总粉。

SETTALKOFF

USEXS

[15]__________

SEEK“许近”

IF[16]_____

IF[17]__________

DISP学号姓名，专业，总分

ELSE

？

“许近总分小于250分”

ENDIF

ELSE

？

“库中没有许近的记录”

ENDIF

[18]__________

SETTALKON

RETURN

5、任意一数，若能被3或7整除，则输出该数

SETTALKOFF

INPUT“输一个数”TOX

IF[19]__________

？

[20]__________

ENDIF

SETTALKON

RETURN

6、统计学分管理库（XFGL.DBF）中所有学生数学总分与平均分

SETTALKOFF

ZF=0

[21]__________

USE[22]__________

[23]__________

ZF=ZF+数学

K=K+1

[24]__________

ENDDO

？

“数学总分”+STR（ZF，5，1

？

“数学平均分+[25]__________

USE

SETTALKON

RETURN

1、要求从键盘输入10个数，并由小到大排列出来

CLEAR

SETTALKOFF

I=1

[1]___________M（10）

DOWHILE___________[2]

INPUTTOM（I）

I=I+1

ENDDO

I=1

DOWHILE___________[3]

___________[4]

DOWHILE___________[5]

IFM（I）>（J）

T=M（I）

M（I）=___________[6]

___________[7]

ENDIF

___________[8]

ENDDO

___________[9]

ENDDO

I=1

DOWHILEI<=10

？

M（I）

ENDDO

RETURN

2、下面程序的功能是根据销售数据库文件sale.dbf中的数据去修改库存文件inventry.dbf数据，填空：

SELECT1

USEinventory

SELECT2

USEsale

DOWHILE___________[10]

SELECT1

LOCATEFOR商品名=___________[11]

REPL数量WITH___________[12]，总金额

WITH单价*数量

SELECT2

___________[13]

ENDDO

CLOSEDATABASE

3、共有五个库std1.dnf~std5.std，下面程序是删除每一个库文件的尾记录，请天空：

n=1

DOWHILEn<=5

db=___________[14]

USE___________[15]

GOTO___________[16]

DELE

___________[17

n=m+1

ENDDO

USE

4、下面程序用来某一库文件查找某一姓名的记录，请补充：

SETTALKOFF

ACCEPT‘请输入库文件名’TOKWJ

USE___________[18]

ACCEPT‘请输入要查找的姓名’TOXM

LOCATE

___________[19]

IF___________[20]

DISP

ELSE

？

“没找到”

ENDIF

USE

SETTALKON

RETURN

5、有两个库文件如下

KS1.DBF

学号姓名奖学金家中补贴

1001张力1550

1002李平1840

1003王勇2135

1004吴军2525

KS2.DBF

学号姓名勤工收入

1001张力12

1002李平32

1003王勇15

1004吴军75

现要填写收入字段，公式为收入=奖学金+家中补贴+勤工，并把两个库文件按学号、姓名、勤工、奖学金、加重补贴，收入字段书许连接起来，生成一个新库存文件KS3.DBF，请补充。

SETTALKOFF

CLEARALL

SELECT0

USEKS1

SELECT0

___________[21]

INDEX___________[22]TOIKS2

UPDATEON学号FROM___________[23]

JOINWITHKS1TOKS3___________[24]

___________[25]

SETTALKON

RETURN

1、由键盘输入10实数，统计其中最大数的程序

SETTALKOFF

K=1

INPUT“请输入第一个数：

”TOY

DOWHILEK[1]

[2]“请输入下一个数：

”TOX

IFY

[3]

ENDIF

K=K+1

ENDDO

？

“最大数=”，Y

RETURN

2、以下是从键盘输入10个字符串，统计其中有几个含有字母“A”的程序。

SETTALKOFF

S=[4]

K=1

DOWHILEK《11

ACCEPT“输入一串字符”TOX

IF“A”$X

[5]

ENDIF

[6]

ENDDO

？

“含有字母A的字符串共有：

”，SRETURN

3、任意输入10个数，按由大到小的顺序显示

SETTALKOFF

DIMENSIONA（10）

I=1

DOWHILEI<10

INPUT“第”+str（I,2）+“个数=”TOA（I）

I=I+1

ENDDO

I=[7]

DOWHILEI<=9

[8]

DOEHILEJ<=10

IF[9]

P=A（I）

A（I）=[10]

[11]

ENDIF

J=J+1

ENDDO

？

？

[12]

[13]

ENDDO

？

？

A（10）

[14]

RETURN

4、给定工资数据库GZ.DBF，通过结构复制生成工资统计数据库文件GZTJ.DBF，仅复制编号（BH）、姓名（XM）、工资（GZ）三个字段以循环方式将GZ.DBF中工资（GZ）小于600元的相应数据添加GZTJ.DBF文件中，最后显示GZTJ.DBF文件中的数据。

SELE1

SUEGZ

[15]

SELE2

USEGZTJ

SELE1

GOTOP

DOWHILE[16]

IF[17]

SELE2

[18]

REPLACEBHWITH[19]，XMWITH[20]，GZWITH[21]

SELE1

ENDID

[22]

ENDDO

SELECT2

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

I=1

DOWHILEI<=N

J=[23]

SN=[24]

DOWHILE[25]

SN=SN+J

J=J+1

ENDDO

S=S+SN

I=I+1

ENDDO

？

“S=”，SSETTALKONRETURNE

1、下面程序的功能是将内存变量文件中的10个变量恢复到内存来的同时，仍保留原来内存中变量，然后将开头字母是a的变量删除，再将期于变量保存到另一个内存变量文件中。

请补充：

__________FORMM1.NEM__________

____________________

__________TOM2.MEM__________

2、编程打印如下图形：

SETTALKOFF

I=1

DOWHILE__________A

J=1BBB

DOWHILE__________CCCCC

@9+I,10-I+JSAY__________DDDDDDD

J=J+1

ENDDO

__________

ENDDO

SETTALKON

RETURN

3、利用自定义函数求M！

主程序如下：

MAIN.PRG

SETTALKOFF

INPUT‘M=’TOM

？

__________

SETTALKON

RETURN

子程序如下JC.PRG

__________

T=1

DOWHILEN>=1

T=T*N

__________

ENDDO

__________

4、下列程序统计100~90，90~75，75~60和60~0各分数段人数，请补充：

CLEAR

SETTALKOFF

USEXSCJ

__________

DOWHILE.NOT.EOF（）

__________

CASE平均分>=90

__________

CASE平均分>=75

__________

CASE平均分>=60

CS=C3+1

CASE平均分>=0

C4=C4+1

ENDCASE

__________

ENDDO

？

‘100~90分的人数’，C1，‘人’

？

‘90~75分的人数’C2，‘人’

？

‘75~60分的人数’C3，‘人’

？

‘60分的人数’，C4，‘人’

5、编程求1~100之间奇数和

SETTALKOFF

S=__________

I=1

DOWHILE__________

IF__________

S=S+I

ENDIF

__________

ENDDO

？

‘1~100间奇数和=’，S

RETURN

6、以下是从键盘输入10个字符串，统计其中有几个含有字母“A”的程序。

SETTALKOFF

S=__________

K=1

DOWHILEK<11

CCEPT“输入一串字符”TOX

IF“A”$X

__________

ENDIF

__________

ENDDO

？

“含有字母A的字符串共有：

”，S

RETURN

三、程序填空（每空2分，共50分）

1、程序A.PRG的功能是求1到200之间所有证书的平方和并输出结果。

SETTALKOFF

CLEAR

S=0

X=1

DOWHILEX<=200

[1]_____________

[2]_____________

ENDDO

?

S

RETURN

2、从键盘接受一整数（>2）是否为素数

SETTALKOFF

INPUT“输入一个整数”TON

A1=2

A2=[3]_____________

DOWHILE[4]_____________

IF[5]_____________

EXIT

ENDIF

A1=[6]_____________

ENDDO

IF[7]_____________

？

N，“是素数”

ELSE

？

N，“不是素数”

ENDIF

RETURN

3、设数据库STU.DBF，其中含有“姓名”字段，因误操作，使该库中含有重复记录，现以姓名为关键字建立了索引文件SYXM.IDX，下列程序将进行检索，并把重复记录删除

SETTALKOFF

USESTUINDEXSYXM

DOWHILE[8]_____________

XM=姓名

SKIP

DOWHILE姓名=XM

DELE

[9]_____________

ENDDO

ENDDO

[10]_____________

USERETURN

4、下列程序，任意输入20个数，找出最大数和最小数。

SETTALKOFF

INPUTTOX

MA=X

MI=X

N=1

DOWHILEN<=[11]_____________

INPUTTOX

IFMA

MA=X

ELSE

[12]_____________

ENDIF

[13]_____________

[14]_____________

？

MA，MI

RETURN

5、库SSS.DBF中查询某专业的学生，并逐条显示该专业所有学生的记录。

USESSS

ZY=SPACE（10）

@2，20SAY“请输入专业名称”GETZY

[15]_____________

GOTOP

LOCATEFOR专业=ZY

IF[16]_____________

@3，20SAY“没有符合条件的记录，按任意键结束！

”

[17]_____________

CLEAR

RETURN

ENDIF

DOWHILE.NOT.EOF

[18]_____________

CONTIWG

ENDDO

WAIT“”

RETURN

6、下列程序的功能在屏幕上显示一个由“*”组成的三角形（如图所示），请进行程序填空

SETTALKOFF

CLEAR

R=1

[19]_____________

DOWHILER<=5*

S=1***

DOWHILES<=2*R-1*****

@R，CCSAY[20]_____________*******

CC=CC+1*********

[21]_____________

ENDDO

CC=10-R

[22]_____________

ENDDO

SETTALKON

7、如下程序的功能是将硬盘上9个班学生的成绩数据库文件复制到A盘上。

源数据库文件名分别为chj1.dbf、chj2.dbf\…、chj9.dnf，而目标文件名是在源文件名前冠以年份，例如当输入年份为99时，目标文件时，目标文件即99chj1.dbf、99chj2.dbf、…99chj9.dbf。

该