五、【案例分析题】(本大题共1小题,共10分;请将资料填写在答题卷相应题号处)
28、学生数据库STD.DBF包括的数据项是:
学号,姓名,性别,数学,英语,计算机
下面程序连续输入新学生记录,先输入学号,如果输入为0,表示输入结束;如果输入学号重复,需提示用户,重新输入,请在程序中填写相应内容,完成上述要求。
SET TALK OFF
USE STD
DO WHILE.T.
INPUT '输入学号' TO X
IF X=0
[(1)]
ENDIF
LOCATE FOR 学号=X
IF[(2)]
CLEAR
[(3)]
REPLACE[(4)]
@3,5 SAY '学号:' +学号
@3,11 SAY '姓名' GET 姓名
@3,27 SAY '性别' GET 性别
@5,5 SAY '数学' GET 数学
@5,15 SAY '英语' GET 英语
@5,25 SAY '计算机' GET 计算机
[(5)]
ELSE
WAIT '学号重复,按任意键重新输入'
[(6)]
ENDDO
USE
SET TALK ON
久爱奥鹏网:www.92open.com