在 XSDB.DBF 中查找学生徐秋实的记录, 如果找到则将该记录的系别、姓名,两科科目名称和对应的

成绩显示在屏幕上，否则显示:"查无此人!"。

SET TALK OFF

USE XSDB

***********FOUND**********

FIND FOR 姓名="徐秋实"

IF .NOT.FOUND()

？"查无此人!"

ELSE

***********FOUND**********

？系别,姓名, "计算机="+计算机, "英语="+英语

ENDIF

USE

SET TALK ON

RETURN