浙江萬里學(xué)院VFP機(jī)考試題多選題

1、多選題1. 有STUDENT.DBF表文件，其中學(xué)號、姓名字段為字符型，性別字段為邏輯型，出生年月字段為日期型。查找并顯示1992年以前出生的學(xué)生名單(表記錄如下：)記錄號 學(xué)號 姓名 性別 出生年月1 2012010001 張海靜 .F. 1993-05-062 2012010002 王林豐 .T. 1992-12-253 2012010005 林小軍 .T. 1993-01-124 2012010008 周偉 .T. 1992-10-055 2012020007 林華 .F. 1991-09-186 2012020016 王韻玳 .F. 1994-03-09SET TALK OFFCLEA

2、RUSE STUDEND_B_F_? 姓名_J_O_ USESET TALK ON請選擇填空（ ）A.SEEK 1992-01-01B.FIND YEAR(出生年月)<1992C.LOCATE FOR YEAR(出生年月)<1992D.LOCATE FOR 出生年月<1992E.DO WHILE .F.F.DO WHILE !EOF()G.DO WHILE EOF()H.DO WHILE .T.I.SKIPJ.CONTINUEK.GO TOPL.GO BOTTOMM.ENDCASEN.ENDIFO.ENDDOP.ENDFOR BFJO 2.從鍵盤輸入一個數(shù)，判斷這個數(shù)是不是既

3、是3的倍數(shù)同時又是5的倍數(shù)SET TALK OFFCLEAR_C_ IF _F_ _K_ _O_? STR(N)+"不能同時滿足既是3的倍數(shù)又是5的倍數(shù)!" ENDIFSET TALK ON請選擇填空（ ）A.ACCEPT "N=" TO NB.WAIT "N=" TO NC.INPUT "N=" TO ND.STORE "N=" TO NE.MOD(N/3)=0 AND MOD(N/5)=0F.MOD(N,3)=0 AND MOD(N,5)=0G.N%3=0 OR N%5=0H.INT(N,3

4、)=0 AND INT(N,5)=0I.? N,"既是3的倍數(shù)又是5的倍數(shù)!"J.? N+"既是3的倍數(shù)又是5的倍數(shù)!"K.STR(N+既是3的倍數(shù)又是5的倍數(shù)!)L.? "N"M.ENDIFN.OTHERWISEO.ELSEP.DO CASE CFKO 3.如下程序?qū)崿F(xiàn)的功能是：輸入表名，如果存在，則顯示該表中所有字段，否則輸出找不到該文件。SET TALK OFFCLEADO WHIL .T.ACCEPT "輸入文件名(包含擴(kuò)展名)：" TO FNAMEIF FILE("&FNAME.DBF&

5、quot;) USE &FNAMEI=_ B _DO WHIL I<=FCOUNT() ? _G_I=I+1ENDDOELSE? '找不到該文件'ENDIF WAIT '輸入是否繼續(xù)？(Y-繼續(xù)/N-退出)' TO X_ J _EXITENDIF_N_SET TALK ON請選擇填空（ ）A.0B.1C.10D.100E.FCOUNT()F.IG.FIELD(I)H.FNAMEI.IF UPPER(X)<> 'N'J.IF LOWER(X)= 'N'K.IF UPPER(X)= 'N'L.

6、IF UPPER(X)= 'n'M.ENDSCANN.ENDDOO.ENDCASEP.ENDIF BGJN 4.已有學(xué)生.DBF表(學(xué)號-字符型，寬度6；姓名-字符型8；性別-邏輯型，寬度1；出生年月-日期型，寬度8；獎學(xué)金-數(shù)值型，寬度6，小數(shù)位2)，以下程序?qū)崿F(xiàn)的功能是：統(tǒng)計(jì)輸出各班獲獎學(xué)金人數(shù)，其中學(xué)號前3位表示班級號。SET TALK OFF CLEAUSE 學(xué)生INDEX ON 學(xué)號 TO X1DO WHILE !EOF()S=0BJH=SUBSTR(學(xué)號,1,3) &&截取學(xué)號前3位DO WHIL _D_IF _G_S=S+1ENDIFSKIP_I_

7、? BJH,'班獲獎學(xué)金人數(shù)為',S_N_SET TALK ON請選擇填空（ ）A.!EOF()B.學(xué)號=BJHC.STR(學(xué)號,1,3)=BJHD.SUBSTR(學(xué)號,1,3)=BJHE.獎學(xué)金<0F.獎學(xué)金>=0G.獎學(xué)金>0H.獎學(xué)金<=0I.ENDDOJ.ENDSK.ENDIFL.RETUM.ENDIFN.ENDDOO.ENDFORP.ENDCASE DGIN 5.給定一個年份(從鍵盤輸入數(shù)值型數(shù)據(jù))，判斷它是不是閏年。閏年的條件是：能被4整除但不能被100整除，或能被100整除且被400整除。SET TALK OFFCLEAR_B_ _E_ ?

8、 STR(Y)+"是閏年!"ELSE_K_ _P_ SET TALK ON請選擇填空（ ）A.ACCEPT "Y=" TO YB.INPUT "Y=" TO YC.WAIT "Y=" TO YD.STORE "Y=" TO YE.IF (Y%4=0 AND Y%100!=0) OR Y%400=0F.IF (Y%4 AND Y!%100) OR Y%400G.IF (INT(Y/4)=Y/4 AND INT(Y/100)!=Y/100) AND INT(Y/400)H.IF (Y%4=0 AND

9、 Y%100!=0) AND Y%400=0I.? Y+不是閏年!J.? Y+"不是閏年!"K.? Y,"不是閏年!"L.STR(Y不是閏年)M.ENDDON.ENDCASEO.ENDFORP.ENDIF BEKP 6.程序運(yùn)行時，從鍵盤輸入包裹的重量，自動計(jì)算并輸出需要付的運(yùn)費(fèi)，如果輸入的數(shù)據(jù)為負(fù)值(即小于0)則退出程序。SET TALK OFFDO WHILE _B_CLEARINPUT "請輸入包裹重量：" TO XIF X<=0_E_ENDIFIF X<=100Y=5ELSEY=5+(X-100)*0.2ENDIF

10、? '您需要付費(fèi)：'，_3_WAIT "按任意鍵繼續(xù) " _4_SET TALK ON請選擇填空（ ）A.n<100B.x>0C.F.D.t.E.EXITF.BOF()G.LOOPH.EOF()I.XJ.YK.0L.5M.ENDIFN.ELSEO.ENDSCANP.ENDDO 7.顯示輸出正整數(shù)M(從鍵盤輸入)內(nèi)的奇數(shù)和奇數(shù)之和。SET TALK OFFCLEARINPUT "M=" TO M_A_FOR I=1 TO M_G_? I_J_ENDIF_P_? SSET TALK ON請選擇填空（）A. S=0B. M=SC.

11、S=1D. I=1E. IF INT(I/2)=I/2F. IF I%2=0G. IF MOD(I,2)!=0H. IF INT(I,2)#0I.S=S+1J.S=S+IK.S=S+ML.S=2*I+1M. ENDIFN. ENDCASEO. ENDSCANP. ENDFOR AGJP 8.設(shè)變量X的輸入值分別為211，367，126，0SET TALK OFFCD=“日一二三四五六”DO WHILE .T.INPUT “X=” TO XX=IIF(X>0 AND X<366，MOD(X+2，7)+1，IIF(X=0，0，8)DO CASECASE X=0？“結(jié)束”EXITCASE

12、 X=8？“輸入有錯”LOOPOTHERWISE？“星期”+SUBSTR(CD，2*X-1，2)ENDCASEENDDOSET TALK ON對應(yīng)的輸出結(jié)果是（ ） A.星期一 B.星期二 C.星期三 D.星期四 E.星期五 F.結(jié)束 G.輸入有錯 H.非法 I.輸入有錯 J.結(jié)束 K.星期二 L.星期六 M.星期二 N.結(jié)束 O.輸入有錯 P.輸入非法 CGKN 9.已知：已存在學(xué)生.dbf(學(xué)號，姓名，性別，出生年月，獎學(xué)金，簡歷，照片)，表中有10條記錄。SET TALK OFFCLEARUSE 學(xué)生? RECNO() _1_SKIP 2? RECNO() _2_DELEPACKLIST

13、? RECNO() _3_? RECCOUNT() _4_USESET TALK ON編號行對應(yīng)的輸出結(jié)果是（ ） A.1 B.10 C.0 D.11 E.2 F.3 G.10 H.1 I.9 J.10 K.11 L.1 M.1 N.9 O.10 P.11 10.編制一個計(jì)算圓面積的表單。表單中有文本框控件Text1、Text2，命令按鈕Command1、Command2，表單和控件的相關(guān)屬性以設(shè)置。具體要求：(1)在Text1文本框中輸入圓半徑，按Command1按鈕，則在Text2文本框中顯示圓面積。(2)當(dāng)輸入的圓半徑為負(fù)數(shù)時，按Command1按鈕后，則彈出messagebox窗口，顯

14、示“圓半徑不能為負(fù)數(shù)！”。(3)按Command2按鈕，則退出表單。Command1的Click事件R=_1_if _2_Messagebox("圓半徑不能為負(fù)數(shù)！")else_3_EndifCommand2的Click事件_4_請選擇填空（ ） A. thisform. Text1.Value B. val(thisform. Text.Value) C. val(thisform. Text1.Value) D. val(thisform. Text1.caption) E.R>0 F.R<0 G.R>"0" H. R<&qu

15、ot;0" I. Thisform. Text.Value =3.14*R2 J. Thisform. Text2=3.14*R2 K. Thisform. Text2.Value=3.14*R2 L. Text2.Value=3.14*R2 M. Command1.release N. thisform.Close O. this.release P. thisform.release 11.已在表單(Form1)中豎放文字“我是會移動的文字”(Label1)和計(jì)數(shù)器(Timer1)并已設(shè)置好相關(guān)屬性，初始的顯示位置在表單的左邊，表單執(zhí)行后，每間隔20毫秒，文字會自動以間隔加1的幅

16、度逐步向表單右邊移動，直到文字到達(dá)表單最右邊緣；然后每間隔20毫秒文字會自動以間隔減1的幅度逐步向表單左邊移動，直到文字回復(fù)到初始位置；整個過程不間斷地來回移動。Form1的Init事件代碼public i,zi=1z=thisform.label1.left thisform.timer1.Interval=_1_thisform.timer1.Enabled=_2_ Timer1的Timer事件代碼if thisform.label1.left>thisform.width or thisform.label1.left<zi=_3_endifthisform.label1.l

17、eft=_4_請選擇填空（ ） A.2 B.200 C.20 D.0.2 E. .F. F. .T. G. 1 H. 0 I. 1 J. -i K. i L. 0 M. thisform.label1+i N. thisform.label1.left+i O. thisform.label1.left-i P. thisform.label1.right+i 12.執(zhí)行下列命令序列(已知表中有10條記錄)USE 學(xué)生? BOF() _1_ ? RECNO() _2_ SKIP 3? RECNO() _3_ GO TOPDISP NEXT 3? RECNO() _4_ USE編號行對應(yīng)的輸出結(jié)

18、果是（ ） A.T. B.F. C.0 D.1 E.0 F.1 G.10 H.11 I.3 J.4 K.7 L.8 M.3 N.4 O.7 P.11 13.已知：已存在學(xué)生.dbf(學(xué)號，姓名，性別，出生年月，獎學(xué)金，簡歷，照片)。要求：在“學(xué)生”表中查找指定學(xué)生，如果找到，顯示該記錄，否則，顯示“沒有該生記錄”。SET TALK OFFCLEARUSE 學(xué)生ACCEPT "請輸入學(xué)號" TO XH_1_ IF _2_ _3_ _4_ ? "沒有該生記錄"ENDIFUSESET TALK ON請選擇填空（ ） A.SEEK學(xué)號=XH B.LOCATE F

19、OR 學(xué)號=XH C.FIND學(xué)號 D.LOCATE FOR 學(xué)號 E.!EOF() F.BOF() G.FIND H.EOF() I.BROWSE J.LIST K.DISP L.SHOW M.OTHERWISE N.ELSE O.SCAN P.CASE 14.以下程序的功能是：求1！+3！+5！+N!的值。N由鍵盤輸入，且為奇數(shù)。SET TALK OFFCLEAR_1_STORE 0 TO S,TFOR I=1 TO N STEP _2_DO SUB1_3_ENDFOR? SSET TALK ONPROC SUB1 &&過程SUB1T=1FOR J=1 TO I_4_END

20、FOR請選擇填空（ ） A.ACCEPT "N=" TO N B.DO WHILE .T. C.WAIT "N=" TO N D.INPUT "N=" TO N E.0 F.1 G.2 H.8 I.S=S+T J.S=S+N K.S=T L.S=S+T*I M.T=T*I N.T=T*J O.T=T*N P.S=S+J*T 15.顯示輸出20之內(nèi)的偶數(shù)和偶數(shù)和。SET TALK OFFCLEAR_1_FOR M=1 TO 20_2_? MSUM=SUM+MENDIF_3_4_SET TALK ON請選擇填空（ ） A.S=0 B.SU

21、M=0 C.SUM=1 D.M=1 E.IF INT(M/2)=M/2 F.IF MOD(M,2)!=0 G.IF M%2 H.IF INT(M,2)=0 I.ENDIF J.ENDFOR K.ENDDO L.ENDCASE M.? S N.? SUM O.? M P.M/2 16.如下程序?qū)崿F(xiàn)的功能是：從鍵盤輸入一個數(shù),判斷它是奇數(shù)還是偶數(shù)。SET TALK OFFCLEA_1_ '請輸入一個數(shù)=' TO SHA=INT(SH)IF A=SHIF A%2=0_2_ELSE ? A,'是奇數(shù)!'_3_ELSE? '不是整數(shù)'_4_SET TALK ON對應(yīng)的選擇是（ ） A.ACCEPT B.WAIT C.INPUT D.STORE E.? A+'是偶數(shù)!' F.? STR(A)+'是偶數(shù)!' G.? A+是偶數(shù)! H.? VAL(A)+'是偶數(shù)!' I.ENDIF J.ENDDO K.ELSE L.ENDC