1、1、程序的功能是：在在學生表中查找并輸出指定學生的所有信息。 填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARUSE 學生INDEXINDEX ONON 學號學號 TOTO XHXH 或者或者 SETSET ORDERORDER TOTO 學號學號-1-&此處填空此處填空ACCEPT 請輸入指定的學生學號: TO XH SEEK XHIF !FOUND!FOUND-2-&此處填空此處填空 ? 查無此人! ELSE DISPLAYDISPLAY-3-&a

2、mp;此處填空此處填空ENDIFUSE SET TALK ON2、給定程序的功能是：判斷給定的正整數值表達式的值是否為素數。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARDO WHILE .T.INPUT 請輸入一個正整數: TO XFORFOR I=2I=2 TOTO X-1X-1-1-&此處填空此處填空 IF INT(X/I)=X/I EXIT ENDIFENDFOR IF X=IX=I-2- &此處填空此處填空 ? X,是素數! ELSE ?

3、X,不是素數! ENDIF WAIT 是否繼續輸入(Y/N) TO YN IFIF UPPER(YN)=YUPPER(YN)=Y 或者或者 IFIF LOWER(YN)LOWER(YN)-3-&此處填空此處填空 LOOP ELSE EXIT ENDIFENDDOSET TALK ON3、給定程序的功能是:輸入邊長，如果能構成三角形，則計算三角形面積。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFDODO WHILEWHILE .T.T.-1-&此處填空此處填空

4、 CLEAR INPUT 輸入第一邊長: TO X INPUT 輸入第二邊長: TO Y INPUT 輸入第三邊長: TO Z IF X=0.OR.Y=0.OR.Z=0.OR. X+Y=Z .OR. Y+Z=X .OR. X+Z=Y ? 尺寸有誤,重新輸入! LOOPLOOP-2-&此處填空此處填空 ENDIF EXITENDDO U=(X+Y+Z)/2M=SORT(U*(U-X)*(U-Y)*(U-Z)M=SORT(U*(U-X)*(U-Y)*(U-Z)- 3-&此處填空此處填空? AREA=+ALLTRIM（STR(M，19，2)）SET TALK OFF4、給定程序的功能

5、是:在屏幕上顯示輸出一個乘法九九表。顯示格式如下: 填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARX=1X=1 或者或者 STORESTORE 1 1 TOTO X X -1-&此處填空此處填空DO WHILE X=9 Y=1 DO WHILE Y=X ?STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+?STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+或者或者 ?STR(X,1)?STR(X,1)+*+STR(Y,1)+=

6、+STR(X*Y,2)+SPACE(1)+*+STR(Y,1)+=+STR(X*Y,2)+SPACE(1)-2-&此處填空此處填空 Y=Y+1 ENDDO ? ?-3-&此處填空此處填空 X=X+1ENDDOSET TALK ON5、給定程序的功能是: 根據輸入的數據, 計算不大于該數的所有奇數累加和。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARYN=YDO WHILE UPPER(YN)=YUPPER(YN)=Y 或者或者 LOWER(YN)=y

7、LOWER(YN)=y-1-&此處填空此處填空 INPUT 請輸入兩位以內的正整數： TO N STORE 0 TO X,Y DO WHILE XN X=X+1 IF INT(X/2)X/2INT(X/2)X/2-2-&此處填空此處填空 Y=Y+X ENDIF ENDDO ? 不大于該數的奇數累加和=+STR(Y,4) WAITWAIT 或者或者 INPUTINPUT 或者或者 ACCEPTACCEPT-3-&此處填空此處填空繼續計算否？(Y/N) TO YN ENDDO? 再見！SET TALK ON6、給定程序的功能是: 根據輸入的數據，判斷該數是否為偶數,可以循環

8、輸入。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARYN=YDODO WHILEWHILE UPPER(YN)=YUPPER(YN)=Y 或者或者 DODO WHILEWHILE LOWER(YN)=yLOWER(YN)=y-1-&此處填空此處填空 INPUT 請輸入一個自然數： TO N IF N/2!=INT(N/2)N/2!=INT(N/2) 或者或者 MOD(N,2)!=0MOD(N,2)!=0 或者或者 N%2!=0N%2!=0-2-&此處

9、填空此處填空 ? 不是偶數! ELSE ? 是偶數! ENDIF WAITWAIT-3- &此處填空此處填空繼續否？(Y/N) TO YNENDDO? 再見！SET TALK ON7、給定程序的功能是: 顯示指定表中的全部字段名,并由用戶輸入顯示表信息的條件,最后列表顯示滿足條件的記錄。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFDO WHILE .T.CLEARACCEPT 請輸入表名（擴展名略）： TO TBNIF FILE(&TBN.DBF) USE(

10、TBN)USE(TBN) 或者或者 USE&TBNUSE&TBN-1-&此處填空此處填空ELSE WAIT 指定的表不存在! LOOPENDIF?表中的全部字段名列表: FOR N=1 TO FCOUNT()FCOUNT()-2-&此處填空此處填空 ?FIELD(N)ENDFORACCEPT 請輸入顯示表信息的條件： TO EXPR LIST &EXPR&EXPR-3- &此處填空此處填空WAIT 是否繼續(Y/N)?: TO YNIF UPPER(YN)!= Y EXITENDIFENDDOUSESET TALK ON8、給定程序的功能

11、是：接收從鍵盤輸入的任意 10 個數，輸入的數字可以是負數，但包括符號位最多三位。程序的功能是，找出其中最大的數和最小的數字，最后顯示出來。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARINPUT 請輸入第一個數字： TO XZD=XZX=XZX=X-1-&此處填空此處填空N=10DODO WHILEWHILE N1N1-2-&此處填空此處填空 INPUT 請輸入下一個數字： TO X IF ZDXZXX-3-&此處填空此處填空 ZX=X E

12、NDIF N=N-1ENDDO?最大數：+STR(ZD,3,0),最小數：+STR(ZX,3,0) SET TALK ON9、程序的功能是,顯示輸出學生表中每個班級的男女同學的獎學金總金額。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARUSE 學生INDEX ON 學號 TO INN0 ?*各班男女獎學金總額統計*?班級 男同學獎學金總額 女同學獎學金總額DODO WHILEWHILE !EOF()!EOF()-1-&此處填空此處填空CLASS=LEFT(學

13、號,3) STORE 0 TO BOYS,GIRLSDODO WHILEWHILE LEFT(LEFT(學號學號,3)=CLASS,3)=CLASS 或者或者 SUBSTR(SUBSTR(學號學號,1,3)=CLASS,1,3)=CLASS-2-&此處填空此處填空 IF 性別 BOYS=BOYS+獎學金ELSE GIRLS=GIRLS+獎學金ENDIF SKIPSKIP-3-&此處填空此處填空ENDDO?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2)ENDDOUSESET TALK ON10、給定程序的功能是：返回給定的字符串表達式的倒置字符串。如:

14、輸入字符串ABCD,倒置后輸出的字符串為DCBA 。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調試運行。不得增加或刪減程序行。SET TALK OFFCLEARACCEPT 請輸入一個字符串: TO XC=C= 或者或者 C=SPACE(0)C=SPACE(0)-1-&此處填空此處填空L=LEN(X)DODO WHILEWHILE 0L00-L0-2-&此處填空此處填空 Q=SUBSTR(X,L,1) C=C+QC=C+Q-3-&此處填空此處填空 L=L-1ENDDO? 倒置字符串是:+CRETURN

15、SET TALK ON11、本程序實現:利用公式ex=1+X+X2/2!+X3/3!+Xn/n!，輸入 X 和 N，計算 ex的近似值。SET TALK OFFCLEARINPUT X= TO XINPUT N= TO NA=1B=1S=1S=1-1-&此處填空此處填空 FOR I=1 TO N-2-&此處填空此處填空 A=A*X B=B*I S=S+A/BS=S+A/B-3-&此處填空此處填空ENDFOR? S=,SSET TALK ON12、本程序實現:輸入一個正整數 M，判斷并顯示 1M 中有哪些數可以分為兩個相等的素數。 （如 M=10，有 3 個數符合，即 2

16、+2=4，3+3=6 和 5+5=10）SET TALK OFFCLEARINPUT M= TO MIF INT(M)!=M OR ABS(M)!=M ? 輸入數據不符合題目要求！ELSEELSE-1-&此處填空此處填空 S=0 FOR I=2 TO M/2 FOR J=2J=2 TOTO I-1I-1-2-&此處填空此處填空 IF I%J=0 EXIT ENDIF ENDFOR IFIF JI-1JI-1 或者或者 IFIF J=IJ=I-3-&此處填空此處填空 S=S+1 ?ALLTRIM(STR(J*2,19)+=+ALLTRIM(STR(J,19)+ALLTRI

17、M(STR(J,19) ENDIFENDFOR?ALLTRIM(STR(M,19)+中共有：+STR(S,3)+個數滿足條件 SET TALK ON13、本程序實現口令驗證。輸入次數在 3 次以內，給予重輸的提示，超過 3 次，則進入死循環。SET TALK OFFCLEARI=1DO WHILE .T. ? 請輸入口令= SET CONSOLE OFF ACCEPT TO KL SET CONSOLE ON IF KL=ABC ? 歡迎使用本系統！ EXITEXIT-1-&此處填空此處填空 ENDIF IFIF I3I3-2-&此處填空此處填空 ? 無權使用本系統！ DO W

18、HILE .T. ENDDO ENDIF ?口令第+STR(I,1)+次錯，再試一次！ I=I+1-3-&此處填空此處填空ENDDOSET TALK ON14、本程序顯示學生表中的獲得獎學金的學生姓名和獎學金數額SET TALK OFFCLEARUSE 學生DODO WHILEWHILE !EOF()!EOF() 或者或者 DODO WHILEWHILE .NOT.EOF().NOT.EOF()-1-&此處填空此處填空 IF 獎學金獎學金00-2-&此處填空此處填空 ? 姓名,獎學金 SKIP ELSE SKIPSKIP-3-&此處填空此處填空 ENDIFEND

19、DOUSESET TALK ON15、本程序顯示學生表中 1971 年或以前出生的學生姓名和出生年月(日期型)。SET TALK OFFCLEARUSE 學生LOCATELOCATE FORFOR YEAR(YEAR(出生年月出生年月)=1990)=1990 或者或者 FORFOR 出生年月出生年月=1990-01-01-0M0-2-&此處填空此處填空T=MOD(M,10) S=S+T M=INT(M/10)INT(M/10)-3-&此處填空此處填空ENDDO?SENDIFSET TALK ON17.本程序實現從鍵盤中輸入 5 個數，去掉一個最大數和一個最小數，然后求平均值。S

20、ET TALK OFFCLEARINPUT N= TO NSTORESTORE N N TOTO A A，B B，S S-1-&此處填空此處填空FOR I=1 TO 4 INPUT N= TO N IF ANAANA-2-&此處填空此處填空 A=N ENDIF IF BN B=N ENDIF S=S+NS=S+N 或者或者 S=N+AS=N+A-3-&此處填空此處填空ENDFOR? 平均值=,(S-A-B)/3SET TALK ON18程序 1：求 1!+3!+5!+N!，N 由鍵盤輸入。SET TALK OFF CLEARINPUTINPUT N=N= TOTO N

21、N-1-&此處填空此處填空STORE 0 TO S,TFOR I=1 TO N STEP 2DO SUBS=S+T-S=S+T-2-&此處填空此處填空ENDFOR?SSET TALK ONPROC SUB T=1FOR J=1 TO IT=T*JT=T*J-3-&此處填空此處填空ENDFOR19設變量 N 的輸入值為 5，字符 A 的 ASCII 碼為 65。程序的運行如下圖所示：SET TALK OFFCLEARINPUT N= TO NFOR I=1 TO N? SPACE(N-I)SPACE(N-I)-1-&此處填空此處填空FOR J=1 TO 2*I-1

22、2*I-1-2-&此處填空此處填空? CHR(65+I-1)CHR(65+I-1)-3-&此處填空此處填空ENDFORENDFORSET TALK ON20. 將表“學生.DBF”中指定學生（由鍵盤輸入）的獎學金加 60，并顯示該學生的記錄。SET TALK OFFCLEARUSE 學生ACCEPT “輸入學號=” TO MLOCATELOCATE FORFOR 學號學號=M=M-1-&此處填空此處填空IF !EOF()REPLACEREPLACE 獎學金獎學金 WITHWITH 獎學金獎學金+60+60-2-&此處填空此處填空 DISPELSE?”沒有找到！”

23、 ENDIFENDIF-3-&此處填空此處填空USESET TALK ON21下面程序統計指定學生的平均成績及該成績的檔次。SET TALK OFFCLEARUSE 成績 ACCEPT 請輸入學生的學號： TO XHLOCATELOCATE FORFOR 學號學號=XH=XH-1-&此處填空此處填空IF !FOUND()?查無此人!ELSEAVERAGEAVERAGE 成績成績 TOTO PJCJPJCJ FORFOR 學號學號=XH=XH-2-&此處填空此處填空 DO CASECASE PJCJ=90DC=優CASE PJCJ=80DC=良CASE PJCJ=70DC

24、=中CASE PJCJ=60DC=及格OTHERWHISEOTHERWHISE 或者或者 CASECASE PJCJ60PJCJ60-3-&此處填空此處填空DC=不及格 ENDCASE ?學 號,平均成績,檔次 ?XH,STR(PJCJ,8,2),DCENDIFUSE SET TALK ON22程序輸出的結果如下圖所示：SET TALK OFFCLEAA=*H=5H=5-1-&此處填空此處填空FOR K=1 TO H? SPACE(H-K)SPACE(H-K)-2-&此處填空此處填空FOR T=1 TO 2*K-12*K-1-3-&此處填空此處填空?AENDFORENDFORSET TALK ON23編一將日期轉換成中文星期的自定義函數。N=DOW(D)N=DOW(D)-1-&此處填空此處填空DO