VFP程序填空阅读历年考题.docx

VFP程序填空阅读历年考题.docx

《VFP程序填空阅读历年考题.docx》由会员分享，可在线阅读，更多相关《VFP程序填空阅读历年考题.docx（22页珍藏版）》请在冰点文库上搜索。

VFP程序填空阅读历年考题

VFP程序填空阅读历年考题

部门：

xxx

时间：

xxx

制作人：

xxx

整理范文，仅供参考，可下载自行修改

计算机专业《VFP》程序填空与阅读试卷汇编一

一、程序填空（每空3分，共27分>

1.有一商场的商品销售数据库XS.DBF,其记录如下:

记录号商品名单价数量总价

1电冰箱200036000

2彩电180059000

3电冰箱201812018

4空调机160023200

5彩电190023800

……

下面程序用于分类统计各种商品总的销售数量和总的销售额（总价>,并计算出平均

销售单价。

SETTALKOFF

USEXS

INDEON__________________TOSY

____________________TOTJK

USETJK

REPL_____________________

LIST

USE

SETTALKON

2.任意输入两个正整数X和Y,求X与Y的最小公倍数。

SETTALKOFF

INPUT"X="TOX

INPUT"Y="TOY

IFX>Y

T=X

X=Y

Y=T

ENDI

N=Y

DOWHILEN<=__________________

IF________________

EXIT

ENDI

N=_______________________

ENDDO

?

"最小公倍数是:

"+STR（N>

SETTALKON

3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"数据",且无记录。

要求键盘输入十个数,将这些数保存到CJ.DBF的"数据"字段中,并由大到小显示出来。

b5E2RGbCAP

　SETTALKOFF

CLEA

USECJ

K=1

DOWHILK＜＝10

_________________

＠K+5,1SAY"第"+STR（K,2>+"数是:

"GET数据

READ

__________________

ENDD

INDEON_______________TOTMP

LIST

USE

SETTALKON

二、程序填空（每空3分,共18分>

1.男子100M短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。

阅读下列程序,填写空位处的代码,使程序能正确有效地实现上述要求。

p1EanqFDPw

setTalkoff

clear

＠14,20say"请稍候…"

useMale100

___________on成绩／DTotemp

useTemp

Copy_________________Togainer.dbf

usegainer

copytogainer.txt_________________

use

＠14,20say"操作完毕!

"

Return

2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"出生日期"字段（日期型>,以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。

DXDiTa9E3d

SetTalkoff

SetSafeoff

Clear

usepeople

IndexOn出生日期ToIpeople

Born="//"

＠14,20Say"请输入查询的出生日期:

"GetBompicture_________

Read

________________________

Dowhile.NOT.EOF（>.AND._________________

Display

Skip

Enddo

use

SetTalkon

Return

三、程序填空（每空3分，共18分>

1、在人事档案管理系统中，设有两个数据库：

ZGQK.DBF（编号，姓名，性别，职称，部门名，基本工资>

ZGGZ.DBF（编号，资金，房租，实发工资>

查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。

SETTALKOFF

SELE1

USEZGQK

INDEXTOQK

SELE2

USEZGGZ

LOCAFOR实发工资＞＝1200

IFFOUND（>

DOWHILE.NOT.EOF（>

DISP

CONT

ENDDO

ENDIF

CLOSEALL

SETTALKON

2、求1──100间能被5整除的奇数个数及其和，请将程序被充完整。

SETTALKOFF

CLEA

I＝1

S＝0

M＝0

DOWHILE

IF

M＝M＋1

ENDIF

I＝I＋2

？

M，S

ENDO

SETTALKON

四、程序填空题：

<每空3分，共计24分）

1、显示1到100之间既能被4整除又能被6整除的整数。

settalkoff

n=1

dowhile

if

n=n+1

Loop

else

?

n

endi

Endd

2、向数据库文件TSK.DBF中增添新记录。

Settalkoff

Clear

Usetsk

An="Y"

DoWhileAn="Y"

@10,20say"书号"GET书号

@11,20say"书名"GET书名

@12,20say"单价"GET单价

@13,20say"册数"GET册数

READ

WAIT“继续吗？

”

Endd

Use

3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：

数据录入

RTCrpUDGiT

SETTALKOFF

DOWHILE.T

CLEAR

@10，26SAY“1.数据录入”

@11，26SAY“2.数据查询”

@12，26SAY“３.　统计报表”

@13，26SAY“4.退出系统”

TOK

EXIT

ENDI

DO&FN

ENDDO

4、三个数据库文件；学生入学情况库XSRX.DBF、本学期学生成绩库XSCJ.DBF和教师情况库JXK.DBF，和数据库内容如下：

5PCzVD7HxA

USEXSRX

LISTOFF

姓名班级保送生

张红2.T.

李明4.T.

王军2.F.

赵波2.T.

USEXSCJ

LISTOFF

姓名数学英语计算机

张红899287

李明809767

王军257880

赵波906791

USEJSK

LISTOFF

任课教师年龄班级课程

陈352数学

李404物理

孙384英语

王293计算机

下面的程序是生成一个新数据库文件XX.DBF,此数据库文件包括四个字段:

姓名、班级、任课教师、课程，记录是入学时为保送生并且本学期英语成绩在90分以上<包括90分）的全部学生。

jLBHrnAILg

请用正确的语句填空：

SETTALKOFF

CLEAR

SELECT3

USEJSK

SELECT2

USEXSCJ

SELECT1

USEXSRX

JOINWITHCTOXSRX1FOR。

FIELDS姓名，班级，任课教师，课程xHAQX74J0X

SELECT4

USEXSRX1

JOINWITHBTOXXFOR；

FIELDS

SELECT5

USEXX

LIST

SETTALKON

RETURN

**下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序：

SETTALKOFF

ACCEPT“输入待删除考生的准考证号：

”TONO

USEKSDA

IF

DELETE

ENDIF

USE

RETURN

5.共有五个数据库文件stdl.dbf~std5.dbf,下面程序的功能是删除每个库文件的末记录。

请填空。

LDAYtRyKfE

N=l

DOWHILEN<=5

AB=_________

USE&AB

GOBOTTOM

DELETE

PACK

N=N+1

ENDDO

USE

6.下列程序的功能是对输入汉字字符串进行倒序显示，请将程序补充完整。

SETTALKOFF

CLEAR

AB=""

ACCEPT"请输入字串"TOAB

L=LEN（AB>

K=1

IFL＝0

RETURN

ENDIF

DOWHILEK<=L

@10,KSAY_____________________

K=__________________

ENDDO

RETURN

7.分析程序，显示的值A=_____________,B=_______________

主程序MAIN.PRG

SETTALKOFF

PUBLICA

STORE5TOA,B

DOSRBWITHA+B,A,B

?

A,B

RETURN

*子程序SRB.PRG

PARAMETERSX,Y,Z

DOWHILEZ

Y=Z+1

Z=Z+1

ENDDO

RETURN

8.有一数据库如下，程序功能是修改甲用户和乙用户的定购数量。

.USEDGK

.LISTOFF

编号设备名甲用户数量乙用户数量

1车床34

2铣床57

3创床76

程序如下，请补充完整。

SETTALKOFF

USEDGK

CLEAR

@10,10SAY"甲用户"

DOWHILE.NOT.EOF（>

@11,10SAY设备名GET甲用户数量

READ

SKIP

ENDDO

_________________________________

@10,10SAY"乙用户"

DOWHILE.NOT.EOF（>

@11,10SAY设备名_____________________

READ

SKIP

ENDDO

SETTALKON

USE

RETURN

9.有一学生库STUDENT.DBF，结构为字段，姓名（C,8>，英语（N,2>，数学（N,2>，奖学金（L,1>，程序功能为确定是否发给奖学金（奖学金为.F.>。

若英语数学两门功能都大于或等于90分，则字段奖学金用.T.替换，请对程序填空。

Zzz6ZB2Ltk

SETTALKOFF

CLEAR

USESTUDENT

DOWHILE.T.

IF英语>=90.AND.数学>=90

______________________

ENDIF

SKIP

IFEOF（>

_____________________________

ENDIF

ENDDO

RETURN

10.有三个数据库文件STUD1.DBF，STUD2.DBF，STUD3.DBF，STUD1.DBF库结构为学号（C,6>，姓名（姓名,8>；STUD2.DBF结构为学号（C,6>，系别（C,10>；STUD3.DBF结构为姓名（C,6>，成绩（N,2>，现用关联方法显示成绩大于90分的学生情况，并且用物理联结方法产生一个完整的学生库STUD.DBF，请在命令序列中填空。

dvzfvkwMI1

SELECT1

USESTUD1

SELECT2

USESTUD2ALIASS2

SELECT3

USESTUD3ALIASS3

INDEXON姓名TOSTRD3I

SELECT2

INDEXON学号TOSTUD3I

SELECT1

SETRELATIONTO

LIST学号，S3->姓名，S3->成绩

JOINWITHS3TOS13FORFEILDS学号，姓名，S3->成绩

SELECT4

USES13

INDEXON学号TOS13I

SELECT2

JOINWITHS13TOS123FOR学号=D->学号FIELD_______________________rqyn14ZNXI

USES123

LIST

11.下面程序的功能是根据销售数据文件SALE.DBF中的数据去修改库文件INVENTRY.DBF数据,请对程序填空:

EmxvxOtOco

SELECT1

USEINVENTRY

SELECT2

USESALE

DOWHILE____________

SELECT1

LOCATEFOR商品名=B->商品名

REPLACE数量WITHB->数量,总金额WITH单价*数量

SELECT2

_________

ENDDO

CLOSEDATABASE

12.有计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,其内容分别如下:

笔试数据库bsh.dbf上机考试数据库shj.dbfSixE2yXPq5

Record#姓名笔试成绩Record#姓名上机成绩6ewMyirQFL

1欧阳惠871吴明友67

2陈冬梅772杨红87kavU42VRUs

3吴明友943欧阳惠94y6v3ALoS89

4杨红604李霞83M2ub6vSTnP

5李霞685陈冬梅750YujCfmUCw

1>首先执行以下命令序列

SELECT2

USEshj

SELECT1

USEbsh

SETRELATIONTORECNOINTOb

LOCATEFOR笔试成绩<=80

?

姓名

SELECTb

?

姓名

执行命令序列后,第一个?

命令显示的姓名是__________,

第二个?

命令显示的姓名是:

____________。

2>仍然使用上面的计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,执行以下程序eUts8ZQVRd

SELECT2

USEshj

SELECT1

USEbsh

J0INWITHbTOksFOR姓名=b->姓名FIELDS姓名,笔试成绩,上机成绩sQsAEJkW5T

CLEAR

USEks

DOWHILE.N0T.E0F

N=1

I=0

J=0

DOWHILEN<=3.AND..NOT.E0F（>

I=I+笔试成绩

J=J+上机成绩

N=N+I

SKIP

ENDDO

?

"总成绩="+STR（I+J>

ENDDO

执行程序后,显示的第一个总成绩是_________,第二个总成绩是____________

3>接着继续执行以下程序

CLEAR

SETDELETEDON

USEKS

INDEXON笔试成绩+上机成绩TOABC

COUNTTOS

GOTOTOP

SKIP

DELETENEXTS-2

COPYTOQAZ

USEAQZ

LIST

最后显示的第一条记录的姓名是____________,第二条记录的姓名是___________

14.在下列数据记录修改程序中（屏幕格式文件ST.FMT已建立>填空。

　　SETTALKOFF

USESTUDENT

SETFORMATTOST

DOWHILE.T.

ACCEPT‘请输入学生姓名：

’TONAME

LOCATEFOR姓名=NAME

IFEOF（>

?

‘查无此人！

’

ELSE

CLEAR

_____________________________

ENDIF

WAIT‘是否继续?

（Y/N>’TOGOON

IFGOON=`Y'

CLEAR

LOOP

ELSE

EXIT

ENDIF

ENDDO

SETFORMATTO

USE

SETTALKON

RETURN

15.下列程序的功能是通过字符串变量操作竖向显示“刻苦学习”，横向显示“学习刻苦”，请填空。

SETTALKOFF

STORE“刻苦学习”TOXY

CLEAR

N=1

DOWHILEN<8

?

SUBSTR（______________>

N=N+2

ENDDO

?

______________________

?

?

SUBSTR（XY,1,4>

RETURN

16.执行以下命令序列：

　　USESTUD

LIST

Record#姓名　　性别　　年龄

　　　　　1欧阳惠　女　　　23

2李明　　男　　　21

3杨霞　　女　　　24

4郭昊　　男　　　23

5吴友　　男　　　25

6何文强　男　　　27

INDEXON年龄TOAGE

SETINDEXTOAGE

SEEK23

?

姓名，年龄

欧阳惠　23

SKIP2

?

姓名，年龄

最后一条?

命令的显示内容为___________________

18.有如下程序：

　　STORE0TON,S

DOWHILE.T.

N=N+1

S=S+N

IFN>10

EXIT

ENDIF

ENDDO

?

"S="+STR（S,2>

本程序运行结果是__________________________________。

　19.有计算机等级考试考生数据库STD.DBF和合格考生数据库文件HG.DBF，这两个库的结构相同。

为了颁发合格证书并备案，把STD数据库中笔试成绩和上机成绩均及格记录的‘合格否’字段修改为逻辑真，然后再将合格的记录追加到合格考生数据库HG.DBF中。

请对以下操作填空。

GMsIasNXkA

　　.USESTD

.LIST

Record#准考证号　姓名　　性别　　笔试成绩　　上机成绩　　合格否

　　　　111001梁小冬　女　　　7080.F.

211005林旭　　男　　　　9578.F.

311017王平　　男　　　　6040.F.

411083吴大鹏　男　　　　9060.F.

511108杨妃红　女　　　　5867.F.

.REPLACE______________FOR笔试成绩>=60.AND.上机成绩>=60

.USEHG

.APPENDFROMSTDFOR_________________

.LIST

.USE

20.有如下程序段，其功能是将汉字信息"全国计算机等级考试"从屏幕底部移至顶部，请填空:

SETTALKOFF

SETSTATUSOFF

X="全国计算机等级考试"

CLEAR

K=23

DOWHILEK>0

@K,26SAYSPACE（34>

@________________,26SAYX

P=INKEY（1>

K=K-1

ENDDO

　21.有口令程序如下，请填空：

　　SETTALKOFF

CLEAR

DOWHILE.T.

@5,20SAY“请输入口令：

”

SETCONSOLEOFF

_______________________

SETCONSOLEON

IFDATE（>=PW

EXIT

ELSE

WAIT“口令不对！

按任意键重来”

　　　　　CLEAR

ENDIF

ENDDO

SETTALKON

CLEAR

22.计算机等级考试的考生数据和考试成绩分别放在两个数据库文件中。

欲使用关联方法显示两个库文件的有关数据，请对如下命令序列填空。

TIrRGchYzg

SELECT1

USESTUD