程序填空(1)

程序填空

第一题：

题目：依次显示XSDB.DBF数据表中的记录内容。请在【】处填上适当内容，使程序完整。 【use xsdb】

DO WHILE 【.not. eof（）】 DISP 【SKIP】 ENDDO USE RETURN

第二题:

题目：统计300到600之间（包括300和600）能被3整除的数的个数。请在【】处填上 适当内容，使程序完整。 GS=0 N=300

DO EHILE 【N< =600】 IF MOD(N,3)=0 【GS=GS+1】 ENDIF 【N=N+1】 ENDDO

?”300到600之间（包括300和600）能被3整除的数的个数为”，GS RETURN

第三题：

题目：以下程序通过键盘输入四个数字，找出其中最小的数。 SET TALK OFF 【I=1】

INPUT “请输入第一个数字” TO X M=X

DO WHILE I<=3

INPUT”请输入数字” TO X IF 【X

?”最小的数是”，M SET TALK ON

第四题：

题目：求出1到100之间的奇数积、偶数和。 SET TALK OFF 【S1=0】 S2=1

FOR I=1 TO 100

IF MOD(i,2)=【0】 SI=S1+1 ELSE

S2=【S2*i】 ENDIF NEXT

?”奇数积为：”，S2 ？“偶数和为：”， S1 SET TALK ON

第五题：

题目：实现：求0-100之间的奇数之和，超出范围则退出。请在【】处填上适当内容，使 程序完整。 X=0 Y=0

DO WHILE .T. X=X+1 DO CASE

CASE 【MOD(X,2)=0】 LOOP

CASE X>=100 【EXIT】 OTHERWISE Y=Y+X ENDCASE 【ENDDO】

？“0-100之间的奇数之和为：”Y RENTURN

第六题： 题目：对表XSDB.DBF中的计算机和英语都大于等于90分以上的学生奖学金进行调整：法 律系学生奖学金增加12元，英语系奖学金增加15元，中文系学生奖学金增加18 元，其他系学生奖学金增加20元，请在【】处填上适当内容，使程序完整。 USE XSDB

【LOCATE FOR 计算机 >=90 .AND. 英语 >=90】 DO WHILE FOUN ( ) DO CASE

CSAE 系别=“法律” ZJ=12

CSAE 系别=”英语” ZJ=15

CASE 系别=”中文” ZJ=18 【OTHERWISE】 ZJ=20 ENDCASE

REPL 奖学金 WITH 奖学金+ZJ 【CONTINUE】 ENDDO USE

第七题：

题目：从键盘输入一个表的文件名，在该表的第一条记录之前插入一条新记录，然后查找 “姓名”为“王丽”的记录。如果找到，输出“姓名”为“王丽”的记录数。

SET TALK OFF ACCEPT TO A USE &A GO 1

【INSERT BLANK BEFORE】

【LOCATE】 FOR 姓名=“王丽” IF NOT EOF( )

【COUNT】 TO A FOR 姓名=“王丽” ？“共”，A，“条” ELSE

？“没有找到” ENDIF USE

SET TALK ON

第八题：

题目：查找XSDB表中计算机成绩最高分的同学，将其姓名和计算机字段的内容显示出

来，如：王迪 98。请在【】处填上适当的答案内容，使程序完整。 USE XSDB MAX=计算机 【XM= 姓名】

Do while .NOT. EOF() IF MAX<计算机 MAX=计算机 【XM=姓名】 ENDIF 【SKIP】 Enddo ？XM,MAX USE

第九题：

题目：表RSDA.DBF结构为：姓名（C,6）;性别（C,2），年龄（N,2）,出生日期（D,8）。

判断表中是否有“李明”，查询此人的性别及年龄，确定参加运动会的项目。 SET TALK OFF USE RSDA

【LOCATE】 FOR 姓名=“李明” IF .NOT. 【EOF()】 DO CASE

CASE 性别=“男” ？“请参加爬山比赛” CASE 年龄<=50 ？“请参加投篮比赛” CASE 年龄<=60

？“请参加老年迪斯科比赛” 【ENDCASE】 ELSE

？“查无此人” BROWSE ENDIF USE

SET TALK ON RETURN