程序填空[1]

*关闭按钮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