实验9 程序设计三

实验九VFP程序设计三——子程序与过程

一、实验目的：

1. 学习模块化程序设计，理解子程序、自定义函数和过程的异同；

2. 掌握子程序的编写，理解参数的传递；

3. 进一步掌握分支和循环结构，掌握变量的作用域。

二、实验环境

1．Windows系统

2．VFP6.0

三、实验内容（步骤）

1. 练习教材P162的例7.26

2. 完成下面题目：

已有数据库表“学生.dbf”，“课程.dbf”和“选课.dbf”，如下表所示。

编程实现：

1．根据用户的输入查询该同学所选修的课程的情况，并统计输出该生的平均成绩。2．按以下格式显示出来，如所输入的学号查找不到，则显示“查无此人”。

请输入所查学生的学号：s0201101

姓名课程名课时成绩

王小平数学建模 80 86

王小平计算机网络 60 89

该生的平均成绩：87.5

（请在实验报告册上写出程序代码）参考代码如下：

set talk off

set safe off

clear

select 1

use 课程

index on 课程号tag kch

select 2

use 选课

select 3

use 学生

index on 学号tag xh

select 2

set relation to 学号into c

set relation to 课程号into a addi

accept "请输入所查学生的学号：" to no

locate fo 学号=no

if found()

aver for 学号=no to pjcj

?"姓名课程名课时成绩"

locate all for 学号=no

do while found()

?c.姓名,a.课程名,a.课时,成绩

continue

enddo

?

?"该生的平均成绩：" ,pjcj

else

?"查无此人"

endif

set talk on

set safe on

close data

return

3. 完成实验教材P13页实验七第三题的第1、2、3小题。

四、认真总结，填写实验报告