没有合适的资源?快使用搜索试试~ 我知道了~
#VFP程序填空与阅读历年考题.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 86 浏览量
2021-12-05
22:22:50
上传
评论
收藏 48KB PDF 举报
温馨提示
![preview](https://dl-preview.csdnimg.cn/56436809/0001-519619317026324def4e9b16c144ede3_thumbnail.jpeg)
![preview-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/scale.ab9e0183.png)
试读
35页
#VFP程序填空与阅读历年考题.pdf
资源推荐
资源详情
资源评论
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/release/download_crawler_static/56436809/bg1.jpg)
1 / 35
2005 届计算机专业《 VFP》程序填空与阅读试卷汇编一
班级 姓名
一、程序填空 (每空 3 分,共 27 分>
1.有一商场的商品销售数据库 XS.DBF, 其记录如下 :
记录号 商品名 单价 数量 总价
1 电冰箱 2000 3 6000
2 彩 电 1800 5 9000
3 电冰箱 2018 1 2018
4 空调机 1600 2 3200
5 彩 电 1900 2 3800
……
下面程序用于分类统计各种商品总的销售数量和总的销售额 (总价 >,并计算出平均
销售单价。
SET TALK OFF
USE XS
INDE ON __________________ TO SY
____________________ TO TJK
USE TJK
REPL _____________________
LIST
USE
SET TALK ON
2.任意输入两个正整数 X 和 Y,求 X 与 Y 的最小公倍数。
SET TALK OFF
INPUT "X="TO X
INPUT "Y="TO Y
IF X>Y
T=X
X=Y
Y=T
ENDI
N=Y
DO WHILE N<=__________________
IF ________________
EXIT
ENDI
N=_______________________
ENDDO
?"最小公倍数是 :"+STR(N>
SET TALK ON
3.现有一数据库 CJ.DBF,该数据库文件中仅有一个数值型字段 "数据 ",且无记录。要求键盘输
入十个数 ,将这些数保存到 CJ.DBF 的 "数据 "字段中 ,并由大到小显示出来。
SET TALK OFF
CLEA
![](https://csdnimg.cn/release/download_crawler_static/56436809/bg2.jpg)
2 / 35
USE CJ
K=1
DO WHIL K <= 10
_________________
@K+5,1 SAY " 第"+STR(K,2>+" 数是 :" GET 数据
READ
__________________
ENDD
INDE ON _______________ TO TMP
LIST
USE
SET TALK ON
二、程序填空 (每空 3 分,共 18 分>
1.男子 100M 短跑成绩已录入数据库 Male100.DBF, 现要求将前 3 名运动员的成绩转入获奖
数据库 gainer.dbf 和 gainer.txt 文件中。阅读下列程序 , 填写空位处的代码 ,使程序能正确有效
地实现上述要求。
set Talk off
clear
@14,20 say "请稍候… "
use Male100
___________ on 成绩/ D To temp
use Temp
Copy _________________ To gainer.dbf
use gainer
copy to gainer.txt _________________
use
@14,20 say "操作完毕 !"
Return
2.现有一户籍数据库 People.DBF,存贮有该地区各位公民的档案资料 ,现要求按 "出生日期 " 字
段(日期型 >,以索引查询方式 ,快速查找并显示所有与指定出生日期相同的记录。
Set Talk off
Set Safe off
Clear
use people
Index On 出生日期 To Ipeople
Born=" / / "
@14,20 Say "请输入查询的出生日期 :" Get Bom picture _________
Read
________________________
Do while .NOT.EOF( >.AND. _________________
Display
Skip
Enddo
use
![](https://csdnimg.cn/release/download_crawler_static/56436809/bg3.jpg)
3 / 35
Set Talk on
Return
三、程序填空 (每空 3 分,共 18 分>
1、在人事档案管理系统中,设有两个数据库:
ZGQK.DBF( 编号,姓名,性别,职称,部门名,基本工资 >
ZGGZ.DBF( 编号,资金,房租,实发工资 >
查询并显示实发工资 1200 元以上的职工姓名及职称,请将程序补充完整。
SET TALK OFF
SELE 1
USE ZGQK
INDEX TO QK
SELE 2
USE ZGGZ
LOCA FOR 实发工资>= 1200
IF FOUND( >
DO WHILE .NOT.EOF( >
DISP
CONT
ENDDO
ENDIF
CLOSE ALL
SET TALK ON
2、求 1── 100 间能被 5 整除的奇数个数及其和,请将程序被充完整。
SET TALK OFF
CLEA
I=1
S=0
M =0
DO WHILE
IF
M = M +1
ENDIF
I=I+2
?M , S
ENDO
SET TALK ON
四、程序填空题: <每空 3 分,共计 24 分)
1、显示 1 到 100 之间既能被 4 整除又能被 6 整除的整数。
set talk off
n=1
do while
if
n=n+1
Loop
![](https://csdnimg.cn/release/download_crawler_static/56436809/bg4.jpg)
4 / 35
else
? n
endi
Endd
2、向数据库文件 TSK.DBF 中增添新记录。
Set talk off
Clear
Use tsk
An="Y"
Do While An="Y"
@ 10, 20 say " 书号 " GET 书号
@ 11, 20 say " 书名 " GET 书名
@ 12, 20 say " 单价 " GET 单价
@ 13, 20 say " 册数 " GET 册数
READ
WAIT “继续吗? <Y/ N> ”
Endd
Use
3、通过光带式菜单选择并执行子程序,其菜单和子程序名称分别为:数据录入 <PG1-1.
PRG)、数据查询 <PG2-2. PRG)、统计报表 <PG3-3. PRG)、退出系统,共四项。
SET TALK OFF
DO WHILE .T
CLEAR
@ 10,26 PROM “1 . 数据录入”
@ 11,26 PROM “2 . 数据查询”
@ 12,26 PROM “3 . 统计报表”
@ 13,26 PROM “ 4 . 退出系统”
TO K
EXIT
ENDI
DO &FN
ENDDO
4、三个数据库文件;学生入学情况库 XSRX.DBF 、本学期学生成绩库 XSCJ.DBF 和教师
情况库 JXK.DBF ,和数据库内容如下:
USE XSRX
LIST OFF
姓名 班级 保送生
张红 2 .T.
李明 4 .T.
王军 2 .F.
赵波 2 .T.
USE XSCJ
LIST OFF
姓名 数学 英语 计算机
![](https://csdnimg.cn/release/download_crawler_static/56436809/bg5.jpg)
5 / 35
张红 89 92 87
李明 80 97 67
王军 25 78 80
赵波 90 67 91
USE JSK
LIST OFF
任课教师 年龄 班级 课程
陈 35 2 数学
李 40 4 物理
孙 38 4 英语
王 29 3 计算机
下面的程序是生成一个新数据库文件 XX.DBF, 此数据库文件包括四个字段 :姓名、班
级、任课教师、课程,记录是入学时为保送生并且本学期英语成绩在 90 分以上 <包括 90
分)的全部学生。
请用正确的语句填空:
SET TALK OFF
CLEAR
SELECT 3
USE JSK
SELECT 2
USE XSCJ
SELECT 1
USE XSRX
JOIN WITH C TO XSRX1 FOR FIELDS 姓名,班
级,任课教师,课程
SELECT 4
USE XSRX1
JOIN WITH B TO XX FOR ;
FIELDS
SELECT 5
USE XX
LIST
SET TALK ON
RETURN
11、下面是在“ KSDA.DBF “库文件逻辑删除已知准考证号学生的程序:
SET TALK OFF
ACCEPT “输入待删除考生的准考证号:” TO NO
USE KSDA
IF
DELETE
ENDIF
USE
RETURN
5.共有五个数据库文件 stdl.dbf~std5.dbf, 下面程序的功能是删除每个库文件的末记录。请填
剩余34页未读,继续阅读
资源评论
![avatar-default](https://csdnimg.cn/release/downloadcmsfe/public/img/lazyLogo2.1882d7f4.png)
![avatar](https://profile-avatar.csdnimg.cn/default.jpg!1)
sinat_40572875
- 粉丝: 57
- 资源: 7万+
![benefits](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-1.c8e153b4.png)
下载权益
![privilege](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-2.ec46750a.png)
C知道特权
![article](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-3.fc5e5fb6.png)
VIP文章
![course-privilege](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-4.320a6894.png)
课程特权
![rights](https://csdnimg.cn/release/downloadcmsfe/public/img/vip-rights-icon.fe0226a8.png)
开通VIP
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助
![voice](https://csdnimg.cn/release/downloadcmsfe/public/img/voice.245cc511.png)
![center-task](https://csdnimg.cn/release/downloadcmsfe/public/img/center-task.c2eda91a.png)
最新资源
- HC32F460智能台灯上位机
- HC32F460智能台灯 立创EDA专业版工程
- 基于Matlab的2Q-FSK移频键控通信系统仿真
- 基于Node.js+MySQL开发的开源微信小程序商城
- 基于Python实现GNU Radio上的OFDM通信系统仿真及实测
- CnWizards delphi插件 变量高亮 delphi工具
- 用K210进行垃圾识别,通过串口发送不同信号给stm32,控制步进电机进行分类,并且语音播报.zip
- 基于Matlab 实现单径瑞利信道下,交织与卷积编码对误码率影响仿真
- [金融、财务数据] Wrds RepRisk (RRI指标)数据集RepRisk
- 基于PCL的平面点云格网可视化程序代码
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
![feedback](https://img-home.csdnimg.cn/images/20220527035711.png)
![feedback](https://img-home.csdnimg.cn/images/20220527035711.png)
![feedback-tip](https://img-home.csdnimg.cn/images/20220527035111.png)
安全验证
文档复制为VIP权益,开通VIP直接复制
![dialog-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/green-success.6a4acb44.png)