高二数据库期终试卷

（2）在xscj.DBF中，查找用户指定的学生记录，如果查找成功，显示找到的记录，否则，显示一条说明信息，请完成如下程序 use xscj Do while clear

accrp??“请输入学号” to XH locate for t if found ( ) Display Else

Wait “不存在该记录” window timeout 1

Wait “是否继续查找？”（X/N）to ABC window If upper (ABC) <> ”Y” exit endif enddo use /Return

2、写出下列程序的运行结果 （1）set talk off s=0

I=1

Input “请输入N的值” to N Do while s<=N S=S+I I=I+1 Enddo ?S set talk on Return

如果输入值为3，则最后S的显示值为 （2）use xscj01

accept “请输入查词的学号:” to XH locate for ==XM if found() do cose cose 数学>=80

wait “该生数学成绩优良” window timeout cose 数学>=60

wait “该生数学成绩及格” window timeout endcose else

wait “不存在该生或数学成绩不及格” window timeout

endif use Rerun