*关闭按钮CLICK代码：
***********SPACE********** THISFORM.【?】 Text1.value Exit Release
【程序填空】
*-------------------------------------------------------
*题目:在XSDB.DBF数据表中查找学生王迪，如果找到，则显示： * 学号、姓名、英语，生年月日，否则提示\查无此人！\。 * 请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
***********SPACE********** 【?】
XM=\王迪\
***********SPACE********** 【?】姓名=XM IF FOUN()
***********SPACE**********
【?】学号, 姓名, 英语, 生年月日 ELSE
? \查无此人！\ENDIF USE
RETURN Use xsdb Locate for
Display ? display off
------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*题目:实现:求0-100之间的奇数之和，超出范围则退出。请在【】处 * 添上适当的内容，使程序完整。
*------------------------------------------------------- X=0 Y=0
DO WHILE .T.
X=X+1 DO CASE
***********SPACE********** CASE 【?】 LOOP
CASE X>=100
***********SPACE********** 【?】
OTHERWISE Y=Y+X ENDCASE
***********SPACE********** 【?】
? \之间的奇数之和为: \RETURN Mod(x,2)=0 Exit Enddo
*------------------------------------------------------- *【程序填空】
*-------------------------------------------------------
*题目:下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖
* 学金做相应调整：双科90分以上（包括90）的每人增加30元； * 双科75分以上（包括75）的每人增加20元；其他人增加10元。 * 请在【】处
* 添上适当的内容，使程序完整。
*-------------------------------------------------------
USE XSDB
***********SPACE********** DO WHILE 【?】 DO CASE
CASE计算机>=90.AND.英语>=90
REPLACE 奖学金 WITH 奖学金+30 CASE计算机>=75.AND.英语>=75
REPLACE 奖学金 WITH 奖学金+20 ***********SPACE********** 【?】
REPLACE 奖学金 WITH 奖学金+10 ENDCASE
***********SPACE**********
【?】 Not eof() Other Skip
*【程序填空】
*-------------------------------------------------------
*题目:显示输出图形： * *** *****
*请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
CLEA I=1
DO WHILE I<=3 ?SPAC(10-I) J=1
DO WHILE J<=2*I-1
***********SPACE********** 【?】
***********SPACE********** 【?】 ENDDO
***********SPACE********** 【?】 ENDDO ??”*” J=j+1 I=i+1
【程序填空】
*-------------------------------------------------------
*题目：复制表XSDA.DBF，生成新表XS.DBF，在新表中查找所有 * 男同学的记录，并将男同学的记录逻辑删除。
*-------------------------------------------------------
SET TALK OFF USE XSDA
***********SPACE********** 【?】 USE XS
LOCATE FOR 性别=\男\ DO WHILE FOUND()
***********SPACE********** 【?】
***********SPACE********** 【?】 ENDDO USE
SET TALK ON Copy to xs Delete Continue
【程序填空】
*-------------------------------------------------------
*题目：通过循环程序输出图形： *
* 1 * 321 * 54321 * 7654321
*-------------------------------------------------------
SET TALK OFF FOR N=1 TO 4
***********SPACE********** 【?】
***********SPACE********** FOR M=1 TO 【?】 ?? \ ENDFOR FOR M=1 TO 2*N-1
***********SPACE********** ?? STR(【?】,1) ENDFOR ENDFOR
SET TALK OFF ? 8-n*2