2003年辽宁专升本考试真题-VFP部分

2003年辽宁省高职高专毕业生升入本科学校招生考试
FoxPro语言
在以下各题中，如果要用到数据库RSDA.DBF和GZDA.DBF，均依据以下数据库的结构与内容为准。

所有使用W RSDA.DBF和GZDA.DBF的程序均使用下面的原始数据，即不考虑各程序运行的影响。

RSDA.DBF
记录号编号姓名性别出生日期职称工资
1 001 李丽女 12/01/74 讲师 0.00
2 002 刘晓华女 11/05/70 副教授 0.00
3 003 王刚男 10/11/5
4 教授 0.00
4 004 张志明男 01/02/68 副教授 0.00
5 005 吴月女 08/10/78 讲师 0.00
GZDA.DBF
记录号编号姓名基本工资津贴奖金合计
1 001 李丽 500 100 250 0.00
2 002 刘晓华 600 120 280 0.00
3 003 王刚 900 200 310 0.00
4 004 张志明 700 150 300 0.00
5 005 吴月 450 100 270 0.00
四、填空题（每题2分，计10分）
41. 目前数据库常用的数据模型有（）、层次模型、网状模型。

42. Foxpro规定一个工作区可以打开表的个数是（）个。

43. （）类型的文件是备注文件。

44. 要修改表TEST.DBF的结构，应该用命令（）。

45. 将当前表中全部记录的学号、姓名两个字段复制到表Y中，应使用的命令是（）。

五、阅读程序（每题3分，计24分）
46. Set talk off
Use gzda
Do while not eof()
replace 合计 with 基本工资+奖金
skip
Enddo
Go bottom
Skip -2
?姓名,合计
Go top
Skip
?recno()
Use
return
47. Set talk off
Use rsda
N=0
Do while not eof()
if 性别=“男”and 职称<>“讲师”
n=n+1
endif
Enddo
?“n=”,n
use
return
48. Set talk off
Use rsda
Copy structure to rs
Use rs
M=0
Do while m<100
append blank
m=m+1
Enddo
?”m=”,m
Use
return
49. Set talk off
Use gzda
Sum 基本工资 for 基本工资<600 to a1 Average 奖金 for 奖金>=300 to b1
?a1,b1
return
50. Set talk off
Q=“东方之珠:香港”
K=“庆祝回归”
M=left(k,4)+right(q,4)+right(k,4）
P=len(m)
?m,p
return
51. Set talk off
Use rsda
Copy to rsd for 出生日期>ctod(“01/01/74”) Use rsd
List off 姓名,性别,出生日期
Use
return
52. Set talk off
Select b
Use gzda
Index on 姓名 to gz1
Select a
Use rsda
?姓名,工资
Set relation to 姓名 into b
Replace all 工资 with b->基本工资
Go top
?姓名, 工资
Close database
return
53. Set talk off
Dimension x(5）
Store 1 to I,max,min
Do while i<=5
x(i)=i*i
if x(i)>max
max=x(i)
endif
if x(i)<min
min=x(i)
endif
i=i+1
Enddo
?max,min
return
六、完善程序（每题3分，计24 分）
54.对表gzda按姓名查询
Use gzda
Accept “输入姓名：” to xm Locate for 姓名=xm
If ( )
?姓名,基本工资
Endif
Use
return
55.对gzda表中的基本工资求和，且在表尾增加一条空白记录，其中基本工资的值用求的和值取代。

Set talk off
Use gzda
Sum 基本工资 to gz1
Append blank
Replace ( )
Go bottom
Display
Use
return
56.将表gzda与rsda连接成表gzrs,其中gzrs只含编号，姓名，职称三个字段。

Select 2
Use rsda
Index ( ) to rsda1
Select 1
Use gzda
Join with b to gzrs fields 编号,姓名,b->职称；
for 编号=b->编号
Select 3
Use gzrs
List
Close all
return
57.在rsda表中，按编号删除记录。

Set talk off
Use rsda
Index on 编号 to bh
Accept “输入编号：”to bh1
Seek bh1
If found()
display off 编号，姓名
wait “删除吗（y/n）” to yn
if upper(yn)=“Y”
delete
( )
list
endif
Else
?”查无此人”
Endif
return
58.显示rsda表中女职工记录
Set talk off
Use rsda
Do while not eof()
if 性别=“女”
display
skip
else
skip
( )
endif
Enddo
Use
return
59.显示有“*”号组成的如下三角形：*
Set talk off ***
R=1 *****
Cc=10 *******
Do while r<=4
s=1
do while s<=2*r-1
@r,cc say “*”
cc=cc+1
s=s+1
cc=10
( )
Enddo
return
60.求gzda中所有职工的平均基本工资
Set talk off
Use gzda
Count to n
M=0
Go top
Do while not eof()
m=( )
skip
Enddo
?”m=”,str(m/n,4)
Use
return
61.输出rsda表中1965年1月1日以前出生的职工姓名及出生日期。

Set talk off
Use rsda
Do while not eof()
if ( )
display 姓名，出生日期
skip
Enddo
Use
return
七、程序改错（每题3分，计12分）
62.显示男职工记录
(1)Set talk off
(2)Use rsda
(3)Do while .t.
(4) If 性别<>”男”
(5) skip
(6) loop
(7) endif
(8) display
(9) skip
(10)enddo
(11)usr
(12)return
63.在rsda 中，给女副教授增加100元工资。

(1)Set talk off
(2)Use rsda
(3)Do while not eof()
(4) If 性别=“女”or 职称=“副教授”
(5) Replace 工资 with 工资+100
(6) endif
(7) skip
(8)enddo
(9)Go top
(10)list
(11)use
(12)return
64.在rsda表中，查找第一个职称为讲师的记录
(1)Set talk off
(2)Use rsda
(3)Locate for 职称=“讲师”
(4)If found()
(5) list
(6)else
(7) ?”未找到”
(8)endif
(9)use
(10)return
65.求100！
(1)Set talk off
(2)clear
(3)s=1
(4)n=1
(5)Do while n<=100
(6) s=n*(n+1)
(7) n=n+1
(8)enddo
(9)?s
(10)return
扫描二维码立即获取答案。