沈阳农业大学vf机房模拟1

菜单题目中的程序代码一律放到“过程”里面。

5.《VFP 数据库与程序设计》共4道大题，其中： (1)单项选择： 20题，共20分 (2)填空： 10题，共10分 (3)判断： 10题，共10分 (4)编程综合：
数据库： 1题，共20分 改错： 1题，共10分 表单： 1题，共20分 菜单： 1题，共10分
机房模拟题1
选择： 1.
2.
3.
4.
执行下列命令序列后，vf1的指针指向第（）条记录。

SELECT 2 USE VF1 SELECT 3 USE VF2 SELECT 2 SKIP 2
A.1,2
B.2,1 C1,1， D.3,1
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
AAADC DABDA DDDCD AACDB
判断: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
√×××√××√√√
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
答案：1.Thisform.text1.value="你好" 2.fgh 3.SKIP 4.普通 5.标题 标题文本 6.降序 7.降序 降序排序 8.sort 9.FontSize 10. PRG .PRG
程序设计
1.
2.
*给定程序gc.PRG 的功能是：显示如下九九乘法口诀表
* 1*1=1
* 1*2=2 2*2=4
* 1*3=3 2*3=6 3*3=9
* .....................
* 1*9=9 2*9=18 3*9=27 .............9*9=81
*改错要求: 程序中共有2行程序错误, 请修改错误, 并调试运行。

*注意: 要求在指定位置修改, 不得增加或删减程序行。

for i =1 to 9 for j=1 to 9 （将9改为i ） ??space(3)+str(i,1)+"*"+str(j,1)+"="+str(j+i,2)
（将i 和j 对调，将加号改为乘号） endfor
?
endfor
3.
Keyboardhighvalue,keyboardlowvalue;spinnerhighvalue;spinnerlowvalue;increment
命令：
b1.enabled=.t. a=thisform.sp1.value b=thisform.sp2.value c=thisform.sp3.value
b1.forecolor=RGB(a,b,c)
4.
退出(写在过程里)：set sysmenu to default 求和：
s=0
for i=1 to 100 step 2 s=s+i endfor ?s
阶乘：
m=1 i=1
do while i<=6 (或i<7) m=m*i i=i+1 enddo ?m
机房模拟题2 选择：
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
ADBAA DAABD DBBCA CDDDD
判断：1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
××××√√××√×
填空：1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
1. bel1.caption="你好"
2.c
3.1
4.降序
5.单击
6. .PRG PRG
7. FontSize
8. .scx scx
9. 没有无 E
编程应用：
1.
注意替换字段
2.
*欲统计rcda中所有姓"刘"记录的工资现状之和。

*改错要求: 程序中共有2处错误, 请修改错误, 并调试运行。

*注意: 要求在指定位置修改, 不得增加或删减程序行。

S=0
Use rcda
Do while .t.
If eof()
Loop
Endif
If 姓名="刘"
S=S+工资现状
Endif
continue
enddo
use
?"所有姓刘的人的工资总合为:"+str(s)
改法：loop改为exit；continue改为skip|skip 1|skip +1
3.
在表单上单击鼠标右键，选择“数据环境”，弹出“添加表或视图”，选择。

数据源：页框controlsource
屏幕居中：将表单autocenter=.t.
在Pagef 里写程序
go 2
thisform.Pagef.p1.TXT.value=姓名
GO 3
thisform.Pagef.p2.TXT.value=成绩
thisform.Pagef.p3.TXT.value="再见"
4.
1. use xsda
go 2
delete 2
delete，属于逻辑删除，作用是给符合条件的记录打上删除标记，可用RECALL命令来恢复。

pack，属于物理删除，作用是将打上删除标记的记录物理删除掉，不能恢复。

zap，直接将表中所有记录物理删除，表将只剩下结构，无记录，不能恢复。

set delete on：表示在浏览记录时不显示带删除标记的记录。

set delete off：表示在浏览记录时要显示带删除标记的记录，默认为off。

2. use xsda
go 2
reco
或方案二：recall
*方案三：reca reco 2
*方案四：reca record 2
*方案五：recall reco 2
*方案六：recall record 2。