#VFP程序填空阅读历年考题.docx
- 文档编号:5126539
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:50
- 大小:33.41KB
#VFP程序填空阅读历年考题.docx
《#VFP程序填空阅读历年考题.docx》由会员分享,可在线阅读,更多相关《#VFP程序填空阅读历年考题.docx(50页珍藏版)》请在冰豆网上搜索。
#VFP程序填空阅读历年考题
计算机专业《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的"数据"字段中,并由大到小显示出来。
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文件中。
阅读下列程序,填写空位处的代码,使程序能正确有效地实现上述要求。
setTalkoff
clear
@14,20say"请稍候…"
useMale100
___________on成绩/DTotemp
useTemp
Copy_________________Togainer.dbf
usegainer
copytogainer.txt_________________
use
@14,20say"操作完毕!
"
Return
2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"出生日期"字段(日期型>,以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。
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、通过光带式菜单选择并执行子程序,其菜单和子程序名称分别为:
数据录入 SETTALKOFF DOWHILE.T CLEAR @10,26SAY“1.数据录入” @11,26SAY“2.数据查询” @12,26SAY“3. 统计报表” @13,26SAY“4.退出系统” TOK EXIT ENDI DO&FN ENDDO 4、三个数据库文件;学生入学情况库XSRX.DBF、本学期学生成绩库XSCJ.DBF和教师情况库JXK.DBF,和数据库内容如下: 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分)的全部学生。 请用正确的语句填空: SETTALKOFF CLEAR SELECT3 USEJSK SELECT2 USEXSCJ SELECT1 USEXSRX JOINWITHCTOXSRX1FOR。 FIELDS姓名,班级,任课教师,课程 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,下面程序的功能是删除每个库文件的末记录。 请填空。 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.替换,请对程序填空。 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,请在命令序列中填空。 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_______________________ USES123 LIST 11.下面程序的功能是根据销售数据文件SALE.DBF中的数据去修改库文件INVENTRY.DBF数据,请对程序填空: SELECT1 USEINVENTRY SELECT2 USESALE DOWHILE____________ SELECT1 LOCATEFOR商品名=B->商品名 REPLACE数量WITHB->数量,总金额WITH单价*数量 SELECT2 _________ ENDDO CLOSEDATABASE 12.有计算机等级测试的笔试测试数据库bsh.dbf和上机测试数据库shj.dbf,其内容分别如下: 笔试数据库bsh.dbf上机测试数据库shj.dbf Record#姓名笔试成绩Record#姓名上机成绩 1欧阳惠871吴明友67 2陈冬梅772杨红87 3吴明友943欧阳惠94 4杨红604李霞83 5李霞685陈冬梅75 1>首先执行以下命令序列 SELECT2 USEshj SELECT1 USEbsh SETRELATIONTORECNOINTOb LOCATEFOR笔试成绩<=80 ? 姓名 SELECTb ? 姓名 执行命令序列后,第一个? 命令显示的姓名是__________, 第二个? 命令显示的姓名是: ____________。 2>仍然使用上面的计算机等级测试的笔试测试数据库bsh.dbf和上机测试数据库shj.dbf,执行以下程序 SELECT2 USEshj SELECT1 USEbsh J0INWITHbTOksFOR姓名=b->姓名FIELDS姓名,笔试成绩,上机成绩 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中。 请对以下操作填空。 .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.计算机等级测试的考生数据和测试成绩分别放在两个数据库文件中。 欲使用关联方法显示两个库文件的有关数据,请对如下命令序列填空。 SELECT1 USESTUD LIST Record#考生编号 姓名 年龄 性别 11002张伟25女 21004吴红30男 SELECT2 USESTDCJALTASTL LIST Record#考生编号 笔试成绩 上机成绩 110047285 210026792 INDEXON考生编号TOABC SELECT1 ____________________ LIST考生编号,姓名,性别,B->笔试成绩,B->上机成绩 Record#考生编号 姓名 性别 B->笔试成绩 B->上机成绩 11002张伟 女 6792 21004吴红 男 7285 23.计算机等级测试各考点均有数据库文件KSCJ.DBF,其中有关考生成绩的字段值暂空。 省市考区阅卷后建立成绩数据库文件ST.DBF。 下列程序是使用ST.DBF中的数据更新考生数据库数据,请填空补齐命令。 SELECT1 USEKSCJ LIST Record#准考证号姓名 年龄 性别 班号 笔试成绩 上机成绩 合格否 11011017刘丽23女 101.F. 21011083王友 28男 101.F. INDEXON准考证号TOAIND SELECT2 USEST LIST Record#准考证号 笔试成绩 上机成绩 110110839060 210110176040 INDEXON准考证号TOBIND SELECT1 UPDATEON准考证号___________笔试成绩WITHB->笔试成绩,上机成绩WITHB->上机成绩 LIST Record#准考证号姓名 年龄 性别 班号 笔试成绩 上机成绩 合格否 11011017刘丽23女1016040.F. 21011083王友28男1019060.F. 24.接上题,为了颁发合格证书,把KSCJ.DBF数据库中笔试成绩和上机成绩均及格(大于等于60分>记录的合格否字段值修改为逻辑真,然后显示并打印该字段值为真的考生名单。 请对以下命令填空: USEKSCJ REPLACE合格否WITH________FOR_________________ LISTFOR_______________TO___________________ USE 25.有下列两个程序,主程序是MAIN.PRG,子程序是SUBPRO.PRG。 执行主程序后,屏幕第5行显示信息_______________,屏幕第6行显示信息__________。 *MAIN.PRG SETTALKOFF CLEAR P=10 Q=10 DOWUBPROWITHP @6,6SAY“Q=”+STR(Q,2> CANCEL *SUBPRO.PRG PARAMETERSQ Q=20 @5,6SAY“Q=”+S
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 程序 填空 阅读 历年 考题