VFP程序填空与阅读历年考题.docx
- 文档编号:28748465
- 上传时间:2023-07-19
- 格式:DOCX
- 页数:22
- 大小:222.68KB
VFP程序填空与阅读历年考题.docx
《VFP程序填空与阅读历年考题.docx》由会员分享,可在线阅读,更多相关《VFP程序填空与阅读历年考题.docx(22页珍藏版)》请在冰豆网上搜索。
VFP程序填空与阅读历年考题
VFP程序填空与阅读历年考题
部门:
xxx
时间:
xxx
制作人:
xxx
整理范文,仅供参考,可下载自行修改
2005届计算机专业《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,26PROM“1.数据录入” @11,26PROM“2.数据查询” @12,26PROM “3. 统计报表” @13,26PROM“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数学jLBHrnAILg 李404物理xHAQX74J0X 孙384英语LDAYtRyKfE 王293计算机Zzz6ZB2Ltk 下面的程序是生成一个新数据库文件XX.DBF,此数据库文件包括四个字段: 姓名、班级、任课教师、课程,记录是入学时为保送生并且本学期英语成绩在90分以上<包括90分)的全部学生。 dvzfvkwMI1 请用正确的语句填空: SETTALKOFF CLEAR SELECT3 USEJSK SELECT2 USEXSCJ SELECT1 USEXSRX JOINWITHCTOXSRX1FORFIELDS姓名,班级,任课教师,课程rqyn14ZNXI SELECT4 USEXSRX1 JOINWITHBTOXXFOR; FIELDS SELECT5 USEXX LIST SETTALKON RETURN 11、下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序: SETTALKOFF ACCEPT“输入待删除考生的准考证号: ”TONO USEKSDA IF DELETE ENDIF USE RETURN 5.共有五个数据库文件stdl.dbf~std5.dbf,下面程序的功能是删除每个库文件的末记录。 请填空。 EmxvxOtOco N=l DOWHILEN<=5 AB=_____10_____ 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 *子程序SUB.PRG PAUAMETERSX,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.替换,请对程序填空。 SixE2yXPq5 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,请在命令序列中填空。 6ewMyirQFL SELECT1 USESTUD1 SELECT2 USESTUD2ALIASS2 SELECT3 USESTUD3ALIASS3 INDEXON姓名TOSTRD3I SELECT2 INDEXON学号TOSTUD3I SELECT1 SETRELATIONTO_____________________ LIST学号,S3->姓名,S3->成绩 JOINWITHS3TOS13FOR_________________FEILDS学号,姓名,S3->成绩kavU42VRUs SELECT4 USES13 INDEXON学号TOS13I SELECT2 JOINWITHS13TOS123FOR学号=D->学号FIELD_______________________y6v3ALoS89 USES123 LIST 11.下面程序的功能是根据销售数据文件SALE.DBF中的数据去修改库文件INVENTRY.DBF数据,请对程序填空: M2ub6vSTnP SELECT1 USEINVENTRY SELECT2 USESALE DOWHILE____________ SELECT1 LOCATEFOR商品名=B->商品名 REPLACE数量WITH数量->B数量,总金额WITH单价*数量 SELECT2 _________ ENDDO CLOSEDATABASE 12.有计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,其内容分别如下: 笔试数据库bsh.dbf上机考试数据库shj.dbf0YujCfmUCw Record#姓名笔试成绩Record#姓名上机成绩eUts8ZQVRd 1欧阳惠871吴明友67sQsAEJkW5T 2陈冬梅772杨红87GMsIasNXkA 3吴明友943欧阳惠94TIrRGchYzg 4杨红604李霞837EqZcWLZNX 5李霞685陈冬梅75lzq7IGf02E 1>首先执行以下命令序列 SELECT2 USEshi SELECT1 USEbsh SETRELATIONTORECNOINTOb LOCATEFOR笔试成绩<=80 ? 姓名 SELECTb ? 姓名 执行命令序列后,第一个? 命令显示的姓名是__________,第二个? 命令显示的姓名是: ____________。 2>仍然使用上面的计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,执行以下程序zvpgeqJ1hk SELECT2 USEshj SELECT1 USEbsh J0INWITHbTOksFOR姓名=b->姓名FIELDS姓名,笔试成绩,上机成绩NrpoJac3v1 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 .? 姓名,年龄 最后一条? 命令的显示内容为___________________ 17.有三个数据库文件: 学生入学情况库XSQK.DBF、本学期学生成绩库XSCJ.DBF和教师情况JSQK.DBF库,各数据库内容如下: 1nowfTG4KI .USEXSQK .LISTOFF 姓名 班级 保送生 张平 2.T. 李明 4.T. 王军 2.F. 赵红 2.T. .USEXSCJ .LISTOFF 姓名 数学 英语 计算机 李明899288 赵红 809085 张平 898790 王军 906791 .USEJSQK .LISTOFF 任课教师 年龄 班级 课程 刘 342数学 李 404物理 孙 364英语 马 413计算机 下面的程序是生成一个新数据库文件XSQK2.DBF,此数据库文件包括四个字段: 姓名、班级、任课教师、课程。 记录是入学时为保送生并且本学期英语成绩在90分以上(包括90分>的全部学生。 请用正确语句填空: fjnFLDa5Zo SETTALKOFF CLEAR SELECT3 USEJSQK SELECT2 USEXSCJ SELECT1 USEXSQK JOINWITHCTOXSQK1FOR_____________________FIELDS姓名,班级,任课教师,课程tfnNhnE6e5 SELECT4 USEXSQK1 JOINWITHBTOXSQK2FOR________________FIELDS__________________HbmVN777sL SELECT5 USEXSQK2 LIST SETTALKON RETURN 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中。 请对以下操作填空。 V7l4jRB8Hs .USESTD .LIST Record#准考证号 姓名 性别 笔试成绩 上机成绩 合格否
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 程序 填空 阅读 历年 考题