绋嬪簭濉�绌�(1) - 鐧惧害鏂囧簱

第十题：

题目：计算Y=1+3^3/3!+5^5/5!+7^7/7!+9^9/9的值。 请在【】处添上适当的内容，使程序完整。 SET TALK OFF CLEAR S=0

FOR I=1 TO 9 【STEP 2】 T=1

FOR J=1 TO 【I】 T=T*J ENDIF

S=S+【I*I/T】 ENDIF ?”S=”,S SET TALK ON CANC

第十一题：

题目：通过循环程序，输出“九九”表。 SET TALK OFF FOR N=1 TO 9 【?】

【FOR M=1 TO N】

?? STR(M,1)+”X”+STR(N,1)+”=”+【STR(M*N)】+”” ENDFOR

SET TALK ON

第十二题：

题目：下面的程序是将“计算机等级考试”显示为“计算机等级考试”。 SET TALK OFF CLEAR

X=”计算机等级考试” Y=【“ ”】

DO WHILE LEN(X)>=【2】 Y=Y+SUBS(X,1，2)+”” X=【SUBS(X,3)】 ENDD ?Y

SET TALK ON RETURN

第十三题：

题目：求1到100之间的积数之和、偶数之和，并将奇数之和存入S1、偶数之和存入 S2显示输出。请在【】处填上适当的答案内容，使程序完整。 I=1

Stor 0 to s1，s2 Do while i<=100

IF 【MOD(I,2)<>0】 S1=s1+i 【ELSE】 S2=s2+i Endif 【I=I+1】 Endo ？S1，S2 第十四题：

题目：在XSDB.DBF数据表中查找学生王迪，如果找到，则显示： 学号、姓名、英语、生年月日，否则提示“查无此人！”。 请在【】处填上适当的答案内容，使程序完整。 【USE XSDB】 XM=”王迪”

【LOCATE FOR】姓名=XM IF FOUND ()

【DISPLAY】学号，姓名，英语，生年月日 ELSE

?”查无此人！” ENDIF USE RETURN 第十五题：

题目：显示输出图形：* * * * *

* * * * CLEAR I=1

DO WHILE 【I<4】 J=1

DO WHILE J<=7-2*I 【??”*”】 J=J+1 ENDDO 【I=I+1】 ? ENDDO

第十六题：

题目：给定年号与月份，编写程序判断该年是否是闰年，并根据给出的月份来判断该月 有多少天。请在【】处填上适当的答案内容，使程序完整。 SET TALK OFF CLEAR

INPUT”请输入年号：” TO Y INPUT”请输入月号：” TO M

IF Y%4=0 AND Y0<>0 OR Y@0=0 LYEAR= .T. ?”是闰年” ELSE

LYEAR=【.F.】 ？“不是闰年” ENDIF N=M%7 DO CASE

CASE M=2 IF LYEAR DAYS=29 ELSE

DAYS=29 ENDIF

CASE M=7 OR INT(N/2)【!=】N/2 DAYS=31 CASE N%2【=0】 DAYS=30 ENDCASE

?STR(Y,4)+”年”+IF(LYEAR,”是”，“不是”)+“闰年” ?STR(M,2)+”月份有”+STR(DAYS,2)+”天” SET TALK ON CANC 第十七题：

题目：列出XSDB.DBF数据表中法律系学生记录，将结果显示输出。 【USE XSDB】 DO WHILE .T.

IF 系别=“法律” DISP ENDIF 【SKIP】 IF EOF() 【EXIT】 ENDIF ENDDO RETURN