VFP程序填空阅读历年考题Word格式文档下载.docx
《VFP程序填空阅读历年考题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VFP程序填空阅读历年考题Word格式文档下载.docx（22页珍藏版）》请在冰点文库上搜索。
?
"
最小公倍数是:
+STR（N>
3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"
数据"
且无记录。
要求键盘输入十个数,将这些数保存到CJ.DBF的"
字段中,并由大到小显示出来。
b5E2RGbCAP
SETTALKOFF
CLEA
USECJ
K=1
DOWHILK＜＝10
_________________
＠K+5,1SAY"
第"
+STR（K,2>
+"
数是:
GET数据
READ
__________________
ENDD
INDEON_______________TOTMP
二、程序填空（每空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
操作完毕!
Return
2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"
出生日期"
字段（日期型>
以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。
DXDiTa9E3d
SetTalkoff
SetSafeoff
Clear
usepeople
IndexOn出生日期ToIpeople
Born="
//"
＠14,20Say"
请输入查询的出生日期:
GetBompicture_________
Read
________________________
Dowhile.NOT.EOF（>
.AND._________________
Display
Skip
Enddo
SetTalkon
三、程序填空（每空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整除的奇数个数及其和，请将程序被充完整。
CLEA
I＝1
S＝0
M＝0
DOWHILE
IF
M＝M＋1
ENDIF
I＝I＋2
？
M，S
ENDO
四、程序填空题：
<
每空3分，共计24分）
1、显示1到100之间既能被4整除又能被6整除的整数。
settalkoff
n=1
dowhile
if
n=n+1
Loop
else
n
endi
Endd
2、向数据库文件TSK.DBF中增添新记录。
Settalkoff
Usetsk
An="
Y"
DoWhileAn="
@10,20say"
书号"
GET书号
@11,20say"
书名"
GET书名
@12,20say"
单价"
GET单价
@13,20say"
册数"
GET册数
WAIT“继续吗？
Y/N>
”
Use
3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：
数据录入<
PG1-1.PRG）、数据查询<
PG2-2.PRG）、统计报表<
PG3-3.PRG）、退出系统，共四项。
RTCrpUDGiT
DOWHILE.T
CLEAR
@10，26SAY“1.数据录入”
@11，26SAY“2.数据查询”
@12，26SAY“３. 统计报表”
@13，26SAY“4.退出系统”
TOK
EXIT
DO&
FN
4、三个数据库文件；
学生入学情况库XSRX.DBF、本学期学生成绩库XSCJ.DBF和教师情况库JXK.DBF，和数据库内容如下：
5PCzVD7HxA
USEXSRX
LISTOFF
姓名班级保送生
张红2.T.
李明4.T.
王军2.F.
赵波2.T.
USEXSCJ
姓名数学英语计算机
张红899287
李明809767
王军257880
赵波906791
USEJSK
任课教师年龄班级课程
陈352数学
李404物理
孙384英语
王293计算机
下面的程序是生成一个新数据库文件XX.DBF,此数据库文件包括四个字段:
姓名、班级、任课教师、课程，记录是入学时为保送生并且本学期英语成绩在90分以上<
包括90分）的全部学生。
jLBHrnAILg
请用正确的语句填空：
SELECT3
SELECT2
SELECT1
JOINWITHCTOXSRX1FOR。
FIELDS姓名，班级，任课教师，课程xHAQX74J0X
SELECT4
USEXSRX1
JOINWITHBTOXXFOR；
FIELDS
SELECT5
USEXX
LIST
RETURN
**下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序：
ACCEPT“输入待删除考生的准考证号：
”TONO
USEKSDA
IF
DELETE
USE
5.共有五个数据库文件stdl.dbf~std5.dbf,下面程序的功能是删除每个库文件的末记录。
请填空。
LDAYtRyKfE
N=l
DOWHILEN<
=5
AB=_________
USE&
AB
GOBOTTOM
PACK
N=N+1
USE
6.下列程序的功能是对输入汉字字符串进行倒序显示，请将程序补充完整。
CLEAR
AB="
"
ACCEPT"
请输入字串"
TOAB
L=LEN（AB>
IFL＝0
RETURN
DOWHILEK<
=L
@10,KSAY_____________________
K=__________________
7.分析程序，显示的值A=_____________,B=_______________
主程序MAIN.PRG
PUBLICA
STORE5TOA,B
DOSRBWITHA+B,A,B
A,B
*子程序SRB.PRG
PARAMETERSX,Y,Z
DOWHILEZ<
X
Y=Z+1
Z=Z+1
8.有一数据库如下，程序功能是修改甲用户和乙用户的定购数量。
.USEDGK
.LISTOFF
编号设备名甲用户数量乙用户数量
1车床34
2铣床57
3创床76
程序如下，请补充完整。
USEDGK
@10,10SAY"
甲用户"
DOWHILE.NOT.EOF（>
@11,10SAY设备名GET甲用户数量
SKIP
_________________________________
乙用户"
@11,10SAY设备名_____________________
9.有一学生库STUDENT.DBF，结构为字段，姓名（C,8>
，英语（N,2>
，数学（N,2>
，奖学金（L,1>
，程序功能为确定是否发给奖学金（奖学金为.F.>
。
若英语数学两门功能都大于或等于90分，则字段奖学金用.T.替换，请对程序填空。
Zzz6ZB2Ltk
USESTUDENT
DOWHILE.T.
IF英语>
=90.AND.数学>
=90
______________________
IFEOF（>
_____________________________
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
INDEXON学号TOSTUD3I
SETRELATIONTO
LIST学号，S3->
姓名，S3->
成绩
JOINWITHS3TOS13FORFEILDS学号，姓名，S3->
SELECT4
USES13
INDEXON学号TOS13I
JOINWITHS13TOS123FOR学号=D->
学号FIELD_______________________rqyn14ZNXI
USES123
11.下面程序的功能是根据销售数据文件SALE.DBF中的数据去修改库文件INVENTRY.DBF数据,请对程序填空:
EmxvxOtOco
USEINVENTRY
USESALE
DOWHILE____________
LOCATEFOR商品名=B->
商品名
REPLACE数量WITHB->
数量,总金额WITH单价*数量
_________
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>
首先执行以下命令序列
USEshj
USEbsh
SETRELATIONTORECNOINTOb
LOCATEFOR笔试成绩<
=80
?
姓名
SELECTb
执行命令序列后,第一个?
命令显示的姓名是__________,
第二个?
命令显示的姓名是:
____________。
2>
仍然使用上面的计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,执行以下程序eUts8ZQVRd
USEshj
USEbsh
J0INWITHbTOksFOR姓名=b->
姓名FIELDS姓名,笔试成绩,上机成绩sQsAEJkW5T
USEks
DOWHILE.N0T.E0F
N=1
I=0
J=0
=3.AND..NOT.E0F（>
I=I+笔试成绩
J=J+上机成绩
N=N+I
ENDDO
总成绩="
+STR（I+J>
执行程序后,显示的第一个总成绩是_________,第二个总成绩是____________
3>
接着继续执行以下程序
SETDELETEDON
USEKS
INDEXON笔试成绩+上机成绩TOABC
COUNTTOS
GOTOTOP
DELETENEXTS-2
COPYTOQAZ
USEAQZ
最后显示的第一条记录的姓名是____________,第二条记录的姓名是___________
14.在下列数据记录修改程序中（屏幕格式文件ST.FMT已建立>
填空。
SETTALKOFF
SETFORMATTOST
ACCEPT‘请输入学生姓名：
’TONAME
LOCATEFOR姓名=NAME
‘查无此人！
’
ELSE
_____________________________
WAIT‘是否继续?
（Y/N>
’TOGOON
IFGOON=`Y'
LOOP
SETFORMATTO
15.下列程序的功能是通过字符串变量操作竖向显示“刻苦学习”，横向显示“学习刻苦”，请填空。
STORE“刻苦学习”TOXY
N=1
8
SUBSTR（______________>
N=N+2
SUBSTR（XY,1,4>
16.执行以下命令序列：
USESTUD
Record#姓名 性别 年龄
1欧阳惠 女 23
2李明 男 21
3杨霞 女 24
4郭昊 男 23
5吴友 男 25
6何文强 男 27
INDEXON年龄TOAGE
SETINDEXTOAGE
SEEK23
姓名，年龄
欧阳惠 23
SKIP2
最后一条?
命令的显示内容为___________________
18.有如下程序：
STORE0TON,S
S=S+N
IFN>
10
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_________________
.USE
20.有如下程序段，其功能是将汉字信息"
全国计算机等级考试"
从屏幕底部移至顶部，请填空:
SETTALKOFF
SETSTATUSOFF
CLEAR
K=23
DOWHILEK>
0
@K,26SAYSPACE（34>
@________________,26SAYX
P=INKEY（1>
K=K-1
ENDDO
21.有口令程序如下，请填空：
SETTALKOFF
@5,20SAY“请输入口令：
SETCONSOLEOFF
_______________________
SETCONSOLEON
IFDATE（>
=PW
WAIT“口令不对！
按任意键重来”
CLEAR
22.计算机等级考试的考生数据和考试成绩分别放在两个数据库文件中。
欲使用关联方法显示两个库文件的有关数据，请对如下命令序列填空。
TIrRGchYzg
USESTUD
升级会员 