二、3.编写一个课程信息的录入程序。要求在录入一门课程后屏幕询问：“继续录入吗？”，根据用户回答决定程序流程。
要求不退出本程序能继续进行录入操作。 （20分）
4.用FoxPro语言或SQL语言编写程序完成以下查询。（以下四题依次为10分、10分、15分、20分）
（1）列出学生名单，要包含所有学生的所有属性，且在最后一行显示：
年龄小于18岁的男生有 xx 人。
（2）列出成绩不及格的学生的信息，要包含选修表的所有属性，且在最后一行显示：
他们的平均成绩为 xx 分 .
（3）统计数学系每个学生姓名，性别，年龄，以及该学生所学课程的总成绩并列表显示。
（4）检索选课在2门及2门以上的学生的学号、姓名、总学分和平均成绩并列表显示。不及格的课程不统计在内。
答案：3
答案：4_1
close all
clear
select 1
use s
select 2
use c3
select 3
use sc
select s.sno ，s.sname ，s.sex ，s.birth ，c3.cno ， c3.cname ，c3.scarce ， sc.grade ；
from s， c3 ， sc to screen；
where （s.sno = sc.sno） and （c3.cno = sc.cno）
select 1
count for （ year（date（）） - year（birth） < 18 ） and （sex = “m”） to a
？“年龄<18岁的男生有”
？？ a
？？“人”
答案：4_2
clear
set talk off
use sc
list for grade <60 off
？
use sc
average grade to a
？“他们的平均成绩为：”
？？a
？？“分”