老板办公室植物:数据库卷子(VF)

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/03 03:58:54
一、 填空:(15分)
1、 按照数据模型分类,Vfp属于__________型。
2、 表达式 ”BEIJING” $ ”BEI” 的结果为__________。
3、 表文件的扩展名是__________。
4、 VFP提供的可视化辅助设计工具有向导、生成器和__________。
5、 如果数值型字段的宽度为10,小数位数为2,则其整数部分的最大取值为__________。
6、 主名与表的主名相同,随表的打开而自动打开,并且能跟随表自动更新的索引文件是__________。
7、 表由__________ 和__________ 两部分组成。
8、 索引能确定表中记录的__________顺序,而不改变表中记录的__________顺序。
9、 在创建快速报表时,基本带区包括__________ 、__________ 、__________ 三部分
10、 报表由__________ 和 __________ 两个基本部分组成。
二、 简答:(40分)
1、 报表布局有几种类型?(6分)
2、 视图与查询有什么区别?(10分)
3、 写出下列操作的指令(24分)
已知表sb.dbf的结构如下:
字段名 类型 宽度 小数位数
编号 C 5
名称 C 6
价格 N 9 2
部门 C 2
主要设备 L 1
(1) 将所有设备的价格均降低10%
(2) 显示部门是“11”的设备的编号、名称、价格。
(3) 用Replace 命令将名称为“车床”记录的主要设备字段的值置为“.F.”
(4) 从表中物理删除编号为“030-3”的记录
(5) 用LOCATE命令找到名称是“复印机”的设备,将其改成主要设备。
(6) 数据库当前记录号是10,分别写出SKIP 3 和 GO 3 执行后的记录号
三、 写出下列程序运行后的结果 (30分)
1、 CLEAR
I=0
DO WHILE I<10
IF INT(I/2)=I/2
? “W”
ENDIF
? ”ABC”
I=I+1
ENDDO
2、 CLEAR
X=3
DO WHILE X<8 .AND. X>2
C=2
DO WHILE C<X
? X*C
C=C+3
ENDDO
X=X+2
ENDDO
3、 CLEAR
STORE 0 TO Y1,Y2
X=10
DO WHILE X>1
IF SORT(X)=3 .OR. INT(X/2)=X/2
Y1=Y1+X
ELSE
Y2=Y2+X
ENDIF
X=X-1
ENDDO
? “Y1=”+STR(Y1,3), ” Y2=”+STR(Y2,3)
4、SET TALK OFF
STORE 1 TO N,I
DO WHILE N<=5
I=I*N
N=N+1
ENDDO
?I
SET TALK ON
四、 编写程序(15分)
1、 计算1+2+3+……+100(5分)
五、 求1~100中偶数的和(10分)

*3、 写出下列操作的指令(24分)
*(1) 将所有设备的价格均降低10%
replace 价格 with 价格*0.9 all
*(2) 显示部门是“11”的设备的编号、名称、价格。
list 编号,名称,价格 for 部门='11'
*(3) 用Replace 命令将名称为“车床”记录的主要设备字段的值置为“.F.”
replace 主要设备 with .F. for 名称='车床'
*(4) 从表中物理删除编号为“030-3”的记录
delete for 编号='030-3'
pack
*(5) 用LOCATE命令找到名称是“复印机”的设备,将其改成主要设备。
locate for 名称='复印机'
if found()
replace 主要设备 with .T.
else
?'没有找到!'
endif
*(6) 数据库当前记录号是10,分别写出SKIP 3 和 GO 3 执行后的记录号
skip 3:recn()=13
Go 3:recn()=3

retu
三、 写出下列程序运行后的结果 (30分)
*************************************************
*只有第一个,我给你解释程序,下面的就不说了
*************************************************
*1、CLEAR && - 清除屏幕
I=0 && - 定义变量
DO WHILE I<10 && - 如果小于10进入,反之退出
IF INT(I/2)=I/2 && - 取整然后比较,实际上就是判断能否被2整除
? “W” && - 如果能,显示W
ENDIF && - if结束
? ”ABC” && - 不管能否,显示ABC
I=I+1 && - 变量增加1
ENDDO && - 跳回do while i<10重新判断
1、执行结果:
W
ABC
ABC
W
ABC
ABC
W
ABC
ABC
W
ABC
ABC
W
ABC
ABC

2、执行结果:
6
10
14
35

3、执行结果:
IF SORT(X)=3 .OR. INT(X/2)=X/2 && - 你打错函数了吧?
应该是SQRT(),求平方根的???,这个没有显示,最后变量值,如下:
y1=39
y2=15
x=1

3、执行结果:120

*四、 编写程序(15分)
*1、 计算1+2+3+……+100(5分)
xx=0
for aa=1 to 100
xx=xx+aa
endfor
?xx

*五、 求1~100中偶数的和(10分)
*这个IF INT(I/2)=I/2是套用上面第一题的,既然他这么做,我也这么做吧
xx=0
for I=1 to 100
IF INT(I/2)=I/2
xx=xx+i
endif
endfor
?xx

好累!!!还有什么问题???