《Visual Foxpro》综合复习资料(5)

5 计算机原理 四川大学 21.00 6 现代汉语 四川师大 23.00 7 操作系统 西南交大 24.00 阅读下列程序：

UPDATE TS SET 单价=单价+8 WHERE 出版单位=’四川师大’

SELECT 出版单位，AVG（单价） AS 单价 FROM TS GROUP BY 出版单位；

INTO DBF ABC

SELECT * FROM ABC WHERE 单价<28 ORDER BY 单价 DESC; INTO DBF ABC1 USE ABC1 ?

出版单位

(3) 新表ABC的记录数有( C )个

（A)7 (B) 5 (C)4 (D)3 (4) 最后显示的出版单位是( B )

(A)电子科大 (B)四川大学 (C)西南交大 (D)四川师大 (4)新表ABC1的记录数有( A )个

(A)3 (B)4 (C)5 (D)6

3、数据库信息.DBC 中有数据库表职工.DBF，用SELECT 命令查询职工表中年龄不小于25岁、“职务”字段为“销售员”的职工的信息，结果按“部门号”字段值降序排列，请填空： SELECT 部门号，职工号，姓名，职务，年龄； FROM 人事！职工

WHERE 年龄>=25 AND 职务＝“销售员” ORDER BY 部门号 desc

五、程序设计题

1、根据表SCORE（学号，课程号，成绩）中的数据，统计选修课程号分别为“000002”、“000005”和“000008”课程的人数以及这些课程的平均分。

SET TALK OFF

STORE 0 TO S2,S5,S8 STORE 0 TO N2,N5,N8

USE SCORE SCAN

DO CASE

CASE 课程号=”000002” N2=N2+1 S2=S2+成绩

CASE 课程号=”000005”

N5=N5+1 S5=S5+成绩

CASE 课程号=”000008”

N8=N8+1 S8=S8+成绩 ENDCASE ENDSCAN

P2=S2/N2 P5=S5/N5 P8=S8/N8

? “000002号课程选课人数”,N2, “000002号课程平均分”,P2 ? “000005号课程选课人数”,N5, “000005号课程平均分”,P5 ? “000008号课程选课人数”,N8, “000008号课程平均分”,P8 USE

SET TALK ON RETURN

2、从键盘输入任一小于10的自然数N，求N的阶乘。

SET TALK OFF CLEAR S=1

INPUT “N=?” TO N FOR T=1 TO N S=S*T

ENDFOR ?”S=”,S SET TALK ON RETURN

3、编写一个主程序和两个子程序，它们分别实现以下功能： 1）主程序MAIN：

从键盘输入任意10个正整数存入数组A(10)中，然后顺序调用以下两个子程序SUB1、SUB2。 2）子程序SUB1：计算并显示此10个数的和S。 3）子程序SUB2：找出其中的最小数并显示。 Main程序： Dimension A(10) K=1

Do while k<=10

Input “请输入数据：” to A(k)

K=k+1 enddo

do sub1 with a,10 do sub2 with a,10

sub1程序： parameters arr,cnt i=1 s=0

do while i<=cnt

s=s+arr(i) i=i+1

enddo ? s Return

Sub2程序： Parameters arr,cnt I=1 Min=arr(1) Do while i<=cnt

If arr(i)<=min

Min=arr(i)

Endif I=i+1 Enddo ? min return

4、有如下售书数据表BOOK.DBF，BOOK.DBF中的记录如下： 书号 单价 数量 总计 B0168 19.8 3 B6915 12.6 36 B9023 40.0 100 B4682 18.0 40 B6329 28.0 56 B8127 2.0 20

要逐条计算总计并填入“总计”字段之中，计算按照如下规则： 若数量小于等于10，总计等于“单价*数量” 若数量大于50，总计等于“单价*数量*(1-5/100)” 若数量在11与50之间，总计等于“单价*数量(1-10/100)” SET TALK OFF CLEAR USE BOOK

DO WHILE NOT EOF()

IF 数量<=10

REPLACE 总计 WITH 单价*数量

ENDIF IF 数量>50

REPLACE 总计 WITH 单价*数量*(1-5/100)

ENDIF

IF 数量>=11 AND 数量<=50

REPLACE 总计 WITH 单价*数量*(1-10/100)

ENDIF SKIP

ENDDO SET TALK ON RETURN