二、3.編寫一個課程信息的錄入程序。要求在錄入一門課程后屏幕詢問：“繼續(xù)錄入嗎？”，根據(jù)用戶回答決定程序流程。
要求不退出本程序能繼續(xù)進(jìn)行錄入操作。 （20分）
4.用FoxPro語言或SQL語言編寫程序完成以下查詢。（以下四題依次為10分、10分、15分、20分）
（1）列出學(xué)生名單，要包含所有學(xué)生的所有屬性，且在后一行顯示：
年齡小于18歲的男生有 xx 人。
（2）列出成績不及格的學(xué)生的信息，要包含選修表的所有屬性，且在后一行顯示：
他們的平均成績?yōu)?xx 分 .
（3）統(tǒng)計數(shù)學(xué)系每個學(xué)生姓名，性別，年齡，以及該學(xué)生所學(xué)課程的總成績并列表顯示。
（4）檢索選課在2門及2門以上的學(xué)生的學(xué)號、姓名、總學(xué)分和平均成績并列表顯示。不及格的課程不統(tǒng)計在內(nèi)。
答案：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
？“他們的平均成績?yōu)椋骸?BR> ？？a
？？“分”
要求不退出本程序能繼續(xù)進(jìn)行錄入操作。 （20分）
4.用FoxPro語言或SQL語言編寫程序完成以下查詢。（以下四題依次為10分、10分、15分、20分）
（1）列出學(xué)生名單，要包含所有學(xué)生的所有屬性，且在后一行顯示：
年齡小于18歲的男生有 xx 人。
（2）列出成績不及格的學(xué)生的信息，要包含選修表的所有屬性，且在后一行顯示：
他們的平均成績?yōu)?xx 分 .
（3）統(tǒng)計數(shù)學(xué)系每個學(xué)生姓名，性別，年齡，以及該學(xué)生所學(xué)課程的總成績并列表顯示。
（4）檢索選課在2門及2門以上的學(xué)生的學(xué)號、姓名、總學(xué)分和平均成績并列表顯示。不及格的課程不統(tǒng)計在內(nèi)。
答案：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
？“他們的平均成績?yōu)椋骸?BR> ？？a
？？“分”