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

2003 年辽宁省高职高专毕业生升入本科学校招生考试 FoxPro 语言 在以下各题中，如果要用到数据库 RSDA.DBF和 GZDA.DBF，均依据以下数据库的 结构与内容为准。所有使用 WRSDA.DBF和 GZDA.DBF的程序均使用下面的原始数 据，即不考虑各程序运行的影响。 RSDA.DBF 记录号 编号 姓名 性别 出生日期 职称 工资 1 001 李丽 女 12/01/74 讲师 0.00 2 002 刘晓华 女 11/05/70 副教授 0.00 3 003 王刚 男 10/11/54 教授 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的结构，应该用命令（ ）。 第 1 页 共 12 页 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 第 2 页 共 12 页 skip Enddo ? “n=”,n use return 48. Set talk off Use rsda Copy structure to rs Use rs M=0 Do while m100 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 第 3 页 共 12 页 Clear 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 ret