1/1VFP期末填空題目+答案1、程序的功能是：

在在學(xué)生表中查找并輸出指定學(xué)生的所有信息。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARUSE學(xué)生1此處填空ACCEPT請(qǐng)輸入指定的學(xué)生學(xué)號(hào):TOXH此處填空SEEKXHIF2此處填空?查無此人!ELSE3此處填空ENDIFUSESETTALKON2、給定程序的功能是：

判斷給定的正整數(shù)值表達(dá)式的值是否為素?cái)?shù)。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARDOWHILE.T.INPUT請(qǐng)輸入一個(gè)正整數(shù):TOX1此處填空IFINT(X/I)=X/IEXITENDIFENDFORIF2此處填空?X,是素?cái)?shù)!ELSE?X,不是素?cái)?shù)!ENDIFWAIT是否繼續(xù)輸入(Y/N)TOYN3此處填空LOOPELSEEXITENDIFENDDOSETTALKON3、給定程序的功能是:輸入邊長(zhǎng)，如果能構(gòu)成三角形，則計(jì)算三角形面積。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFF1此處填空CLEARINPUT輸入第一邊長(zhǎng):TOXINPUT輸入第二邊長(zhǎng):TOYINPUT輸入第三邊長(zhǎng):TOZIFX=0.OR.Y=0.OR.Z=0.OR.X+Y=Z.OR.Y+Z=X.OR.X+Z=Y?尺寸有誤,重新輸入!2此處填空ENDIFEXITENDDOU=(X+Y+Z)/23此處填空?AREA=+ALLTRIM（STR(M，19，2)）SETTALKOFF4、給定程序的功能是:在屏幕上顯示輸出一個(gè)乘法九九表。

顯示格式如下:填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEAR1此處填空DOWHILEX=9Y=1DOWHILEY=X2此處填空Y=Y+1ENDDO3此處填空X=X+1ENDDOSETTALKON5、給定程序的功能是:根據(jù)輸入的數(shù)據(jù),計(jì)算不大于該數(shù)的所有奇數(shù)累加和。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARYN=YDOWHILE1此處填空INPUT請(qǐng)輸入兩位以內(nèi)的正整數(shù)：

TONSTORE0TOX,YDOWHILEXNX=X+1IF2此處填空Y=Y+XENDIFENDDO?不大于該數(shù)的奇數(shù)累加和=+STR(Y,4)3繼續(xù)計(jì)算否？(Y/N)TOYN此處填空ENDDO?再見！SETTALKON6、給定程序的功能是:根據(jù)輸入的數(shù)據(jù)，判斷該數(shù)是否為偶數(shù),可以循環(huán)輸入。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARYN=Y1此處填空INPUT請(qǐng)輸入一個(gè)自然數(shù)：

TONIF2此處填空?不是偶數(shù)!ELSE?是偶數(shù)!ENDIF3繼續(xù)否？(Y/N)TOYN此處填空ENDDO?再見！SETTALKON7、給定程序的功能是:顯示指定表中的全部字段名,并由用戶輸入顯示表信息的條件,最后列表顯示滿足條件的記錄。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFDOWHILE.T.CLEARACCEPT請(qǐng)輸入表名（擴(kuò)展名略）：

TOTBNIFFILE(TBN..DBF)1此處填空ELSEWAIT指定的表不存在!LOOPENDIF?表中的全部字段名列表:FORN=1TO2此處填空?FIELD(N)ENDFORACCEPT請(qǐng)輸入顯示表信息的條件：

TOEXPRLIST3此處填空WAIT是否繼續(xù)(Y/N)?:TOYNIFUPPER(YN)!=YEXITENDIFENDDOUSESETTALKON8、給定程序的功能是：

接收從鍵盤輸入的任意10個(gè)數(shù)，輸入的數(shù)字可以是負(fù)數(shù)，但包括符號(hào)位最多三位。

程序的功能是，找出其中最大的數(shù)和最小的數(shù)字，最后顯示出來。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARINPUT請(qǐng)輸入第一個(gè)數(shù)字：

TOXZD=X1此處填空N=102此處填空INPUT請(qǐng)輸入下一個(gè)數(shù)字：

TOXIFZDXZD=XENDIFIF3此處填空Z(yǔ)X=XENDIFN=N-1ENDDO?最大數(shù)：

+STR(ZD,3,0),最小數(shù)：

+STR(ZX,3,0)SETTALKON9、程序的功能是,顯示輸出學(xué)生表中每個(gè)班級(jí)的男女同學(xué)的獎(jiǎng)學(xué)金總金額。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARUSE學(xué)生INDEXON學(xué)號(hào)TOINN0?**********各班男女獎(jiǎng)學(xué)金總額統(tǒng)計(jì)************?班級(jí)男同學(xué)獎(jiǎng)學(xué)金總額女同學(xué)獎(jiǎng)學(xué)金總額1此處填空CLASS=LEFT(學(xué)號(hào),3)STORE0TOBOYS,GIRLSDOWHILE2此處填空IF性別BOYS=BOYS+獎(jiǎng)學(xué)金ELSEGIRLS=GIRLS+獎(jiǎng)學(xué)金ENDIF3此處填空ENDDO?CLASS+STR(BOYS,19,2)+STR(GIRLS,19,2)ENDDOUSESETTALKON10、給定程序的功能是：

返回給定的字符串表達(dá)式的倒置字符串。

如:輸入字符串ABCD,倒置后輸出的字符串為DCBA。

填空要求：

程序中共有三個(gè)填空，請(qǐng)?jiān)趎處填空（注意：

不能刪除此處填空，以便于檢查），并調(diào)試運(yùn)行。

不得增加或刪減程序行。

SETTALKOFFCLEARACCEPT請(qǐng)輸入一個(gè)字符串:TOX1此處填空L=LEN(X)2此處填空Q=SUBSTR(X,L,1)C=3此處填空L=L-1ENDDO?倒置字符串是:+CRETURNSETTALKON11、本程序?qū)崿F(xiàn):利用公式eeSETTALKOFFCLEARINPUT‘X=‘TOXINPUT‘N=‘TONA=1B=1S=1此處填空2此處填空A=A*XB=B*I3此處填空ENDFOR?‘S=‘,SSETTALKON12、本程序?qū)崿F(xiàn):輸入一個(gè)正整數(shù)M，判斷并顯示1~M中有哪些數(shù)可以分為兩個(gè)相等的素?cái)?shù)。

（如M=10，有3個(gè)數(shù)符合，即2+2=4，3+3=6和5+5=10）SETTALKOFFCLEARINPUT‘M=‘TOMIFINT(M)!=MORABS(M)!=M?‘輸入數(shù)據(jù)不符合題目要求！‘1此處填空S=0FORI=2TOM/2FOR2此處填空IFI%J=0EXITENDIFx=1+X+X2/2!+X3/3!++Xn/n!，輸入X和N，計(jì)算x的近似值。

ENDFOR3此處填空S=S+1?ALLTRIM(STR(J*2,19))+=+ALLTRIM(STR(J,19))+++ALLTRIM(STR(J,19))ENDIFENDFOR?ALLTRIM(STR(M,19))+中共有：

+STR(S,3)+個(gè)數(shù)滿足條件SETTALKON13、本程序?qū)崿F(xiàn)口令驗(yàn)證。

輸入次數(shù)在3次以內(nèi)，給予重輸?shù)奶崾?，超過3次，則進(jìn)入死循環(huán)。

SETTALKOFFCLEARI=1DOWHILE.T.?請(qǐng)輸入口令=SETCONSOLEOFFACCEPTTOKLSETCONSOLEONIFKL==ABC?歡迎使用本系統(tǒng)！1此處填空ENDIF2此處填空?無權(quán)使用本系統(tǒng)！DOWHILE.T.ENDDOENDIF?口令第+STR(I,1)+次錯(cuò)，再試一次！3此處填空ENDDOSETTALKON14、本程序顯示學(xué)生表中的獲得獎(jiǎng)學(xué)金的學(xué)生姓名和獎(jiǎng)學(xué)金數(shù)額SETTALKOFFCLEARUSE學(xué)生1此處填空IF2此處填空?姓名,獎(jiǎng)學(xué)金SKIPELSE3此處填空ENDIFENDDOUSESETTALKON15、本程序顯示學(xué)生表中1971年或以前出生的學(xué)生姓名和出生年月(日期型)。

SETTALKOFFCLEARUSE學(xué)生LOCATE1此處填空2此處填空?姓名,出生年月3此處填空ENDIFENDDOUSESETTALKON16.本程序計(jì)算一個(gè)十進(jìn)制正整數(shù)N的各位數(shù)字之和。

SETTALKOFFCLEARINPUTM=TOMIFINT(M)!=MORABS(M)!=M?輸入的數(shù)據(jù)不符合題目要求！1此處填空S=0DO2此處填空T=MOD(M,10)S=S+TM=3此處填空ENDDO?SENDIFSETTALKON17.本程序?qū)崿F(xiàn)從鍵盤中輸入5個(gè)數(shù)，去掉一個(gè)最大數(shù)和一個(gè)最小數(shù)，然后求平均值。

SETTALKOFFCLEARINPUT‘N=‘TONSTORENTOA，B，N此處填空FORI=1TO4INPUT‘N=‘TONIF2此處填空A=NENDIFIFBNB=NENDIF3此處填空ENDFOR?‘平均值=‘,(S-A-B)/3SETTALKON18．程序1：

求1!+3!+5!++N!，N由鍵盤輸入。

SETTALKOFFCLEAR1此處填空STORE0TOS,TFORI=1TONSTEP2DOSUB2此處填空ENDFOR?SSETTALKONPROCSUBT=1FORJ=1TOI3此處填空ENDFOR19．設(shè)變量N的輸入值為5，字符A的ASCII碼為65。

程序的運(yùn)行如下圖所示：

SETTALKOFFCLEARINPUTN=TONFORI=1TON？1此處填空FORJ=1TO2此處填空??3此處填空ENDFORENDFORSETTALKON20.生的記錄。

SETTALKOFFCLEARUSE學(xué)生ACCEPT輸入學(xué)號(hào)=TOM1此處填空IF!EOF()2此處填空DISPELSE?沒有找到！3此處填空USESETTALKON21．下面程序統(tǒng)計(jì)指定學(xué)生的平均成績(jī)及該成績(jī)的檔次。

SETTALKOFFCLEARUSE成績(jī)ACCEPT請(qǐng)輸入學(xué)生的學(xué)號(hào)：

TOXH1此處填空IF!FOUND()?查無此人!ELSE2此處填空DOCASECASEPJCJ=90DC=優(yōu)CASEPJCJ=80DC=良CASEPJCJ=70DC=中CASEPJCJ=60DC=及格3此處填空DC=不及格ENDCASE?學(xué)號(hào),平均成績(jī),檔次?XH,STR(PJCJ,8,2),DCENDIFUSESETTALKON將表學(xué)生.DBF中指定學(xué)生（由鍵盤輸入）的獎(jiǎng)學(xué)金加60，并顯示該學(xué)22．程序輸出的結(jié)果如下圖所示：

SETTALKOFFCLEAA=*1此處填空FORK=1TOH?2此處填空FORT=1TO3此處填空??AENDFORENDFORSETTALKON23．編一將日期轉(zhuǎn)換成中文星期的自定義函數(shù)。

1此處填空N=2此處填空DOCASECASEN=1C=星期日CASEN=2C=星期一CASEN=3C=星期二CASEN=4C=星期三CASEN=5C=星期四CASEN=6C=星期五CASEN=7C=星期六OTHERC=輸入有錯(cuò)!ENDCASE3此處填空24．本程序?qū)崿F(xiàn)百錢買百雞的計(jì)算（取自《算經(jīng)》：

雞翁一，值錢五；雞母一，值錢三；雞雛三，值錢一。

百錢買百雞，問雞翁、母、雛各幾何？）SETTALKOFFCLEARFORX=0TO20FOR1此處填空Z(yǔ)=100-X-YIF2此處填空?X=+STR(X,2),Y=+STR(Y,2),Z=+STR(Z,2)ENDIFENDFOR3此處填空SETTALKON25．輸入一個(gè)自然數(shù)，判斷該數(shù)是否為完數(shù)。

（完數(shù)的定義：

若該數(shù)除本身之外的所有因子之和等于該數(shù)，則為完數(shù)。

如：

1+2+3=6，6為完數(shù)；1+2+4#8，8不是完數(shù)。

）SETTALKOFFCLEARINPUTM=TOMN=11此處填空FORN=1TOM-1IF2此處填空S=S+NENDIFENDFORIF3此處填空?M,是完數(shù)！ELSE?M,不是完數(shù)！ENDIFSETTALKON程序填空題目+答案1.在學(xué)生表中查找并輸出指定學(xué)生的所有信息INDEXON學(xué)號(hào)TOIXH!FOUND()DISPLAY2.判斷給定的正整數(shù)表達(dá)式的值是否為素?cái)?shù),并能反復(fù)判斷.FORI=2TOX-1I=X-1IFUPPER(YN)=Y或者IFLOWER(YN)=y輸入邊長(zhǎng),如果能構(gòu)成三角形,則計(jì)算三角形面積.DOWHILE.T.3.LOOPM=SQRT(U*(U-X)*(U-Y)*(U-Z))4.在屏幕上顯示輸出一個(gè)九九乘法表.X=1??STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+?5.根據(jù)輸入的數(shù)據(jù),計(jì)算不大于該數(shù)的所有奇數(shù)累加和.UPPER(YN)=YINT(X/2)X/2WAIT或者ACCEPT或者INPUT根據(jù)輸入的數(shù)據(jù),判斷該數(shù)是否為偶數(shù),可以反復(fù)判斷.DOWHILEUPPER(YN)=Y6.N%2!=0或者N/2!=INT(N/2)或者M(jìn)OD(N,2)!=0WAIT7.顯示指定表中的全部字段名,并由用戶輸入顯示表信息的條件,最后列表顯示滿足條件的記錄.USE(TBN)或者USETBNFCOUNT()ForEXPR8.接收從鍵盤輸入的任意5個(gè)數(shù),輸入的數(shù)字可以是負(fù)數(shù),但最多包括3位符號(hào)位.程序的功能是,,找出其中最大的數(shù)和最小的數(shù),最后顯示出來.ZX=XDOWHILEN1ZXX9.顯示輸出學(xué)生表中每個(gè)班級(jí)男女生的獎(jiǎng)學(xué)金總金額.DOSHILE!EOF()LEFT(學(xué)號(hào),3)=CLASS或者SUBSTR(學(xué)號(hào),1,3)=CLASSSKIP10.返回給定字符串表達(dá)式的倒置字符串.例如,輸入字符串ABCD,倒置后輸出的字符串為DCBA.C=或者C=SPACE(0)DoWhileL0C+Q11.利用公式e的x次方=1+X+X2/2!+X3/3!++XN/N!,輸入X和N,計(jì)算e的x次方的近似值.S=1FORI=1TONS=S+A/B12.輸入一個(gè)正整數(shù)M,判斷并顯示1~M中有哪些數(shù)可以分為兩個(gè)相等的素?cái)?shù).(例如,M=10，有2個(gè)數(shù)符合,即3+3=6和5+5=10。

)ELSEJ=2TOI-1IFJI-1或者IFJ=I13.本程序?qū)崿F(xiàn)口令驗(yàn)證.輸入次數(shù)在3次以內(nèi),給予重輸?shù)奶崾?超過3次,則進(jìn)入死循環(huán).EXITIFI=3或者IFI=3I=I+114本程序顯示學(xué)生表中獲得獎(jiǎng)學(xué)金的學(xué)生姓名和獎(jiǎng)學(xué)金數(shù)額DO