第一篇：VFP讀程序選擇題
讀下列程序： CLEAR STORE 1 TO I, J DO WHILE J<5 @ I , J SAY “*” J=J+1 ENDDO CANCEL（1）屏幕顯示的起始坐標(biāo)為___D___。A)1, 5 B)i, j C)0, 0 2）程序執(zhí)行后，i,j的值分別為__A____A)1, 5 B)i , j C)0, 0 設(shè)表文件XS.DBF有10條記錄，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1 ENDDO USE RETURN（1）程序的功能是（D）
（A）顯示所有記錄（B）分別顯示前3個記錄（C）顯示第3個記錄（2）退出循環(huán)后，N的值是（A）（A）0（B）1（C）3 第9題、閱讀下面程序 INPUT“輸入年齡” TO NL DO CASE CASA NL<7 ？“童年” CASE NL<18 ？“少年” CASE NL>18 ？“少年” CASE NL>=60 ？“老年” CASE NL>=35 ？“中年” OTHER ？“青年” ENDCASE 由于設(shè)計不當(dāng)，本程序運行結(jié)果不對
(1)運行時輸入 11，輸出的結(jié)果是：B A)童年 B)少年 C)青年 D)(2)運行時輸入 36，輸出的結(jié)果是：B A)中年 B)少年 C)青年 D)（D）分別顯示后三個（D）4 老年 老年
第10題、DIME A(6)S=0 FOR K=1 TO 6 INPUT“請輸入數(shù)據(jù)：” TO A(K)S=S+A(K)ENDFOR AV=S/6 R=0 FOR K=1 TO 6 IF A(K)>AV ??A(K)R=R+1 ENDIF ENDFOR ?R(1)若輸入的數(shù)據(jù)分別是：1 2 3 4 5 6，則顯示的是(D)A)1 2 3 B)2 3 4 C)3 4 5 D)4(2)？R的值是多少(B)A)2 B)3 C)4 D)5 第11題、讀下列程序：
*MAIPROGRAM CLEA CLEAR ALL X1=“工資-100” Y1=200 Z1=100 DO SUB1 ? 'A處:',X1,Y1,Z1 X1=1 Y1=2 Z1=3 DO SUB2 WITH X1,Z1+10,10 ? 'C處:',X1,Y1,Z1 CANCEL PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B處:',X1,Y1,Z1 Z1=1 RETURN
PROCEDURE SUB1 PRIV Z1 Z1=10 X1=300 Y1=2 ? 'B處:',X1,Y1,Z1 Z1=1 RETURN
PROCEDURE SUB2 PARA X1,Z1,Y1 X1=X1+10 Y1=Y1+10 X1=X1+10 RETURN（1）程序顯示A處的X1，Y1，Z1值分別為___B___。
A)300 200 100 B)300 2 100 C)300 200 10 D)300 2 10（2）程序顯示B處的的X1，Y1，Z1值分別為___D___。
A)300 200 10 B)300 200 100 C)300 2 100 D)300 2 10（3）程序顯示C處的的X1，Y1，Z1值分別為___D___。
A)21 20 30 B)21 20 3 C)21 2 30 D)21 2 3
二、讀程序選擇_1(本大題共4道小題，每小題分值6分，共24分。)
第7題、有學(xué)生信息表XS.DBF文件，其結(jié)構(gòu)和記錄如下：
記錄號 學(xué)號 姓名 年齡 性別 入學(xué)日期 出生地 1 Y001 李明 21 男 09/01/99 重慶 2 Y002 林雨 20 女 09/01/99 成都 現(xiàn)有一程序段：
DIMENSION X(3)USE XS SCATTER TO X X(1)=“A003” X(2)=“曾真” X(3)=19 APPEND BLANK GATHER FROM X LIST RETURN（1）運行結(jié)果X數(shù)組的數(shù)據(jù)元素的個數(shù)是___B___。A)0個 B)3個 C)6個（2）LIST顯示記錄中，最后一條記錄的姓名字段值是__D____。
A)字段值為空 B)林雨 C)李明 D)曾真
第8題、讀下列程序： Clear Store 1 To I, A, B Do While I<=3
個 D)1 Do Prog1 ??“P(”+Str(I, 1)+“)=”+Str(A, 2)+“,” I=I+1 Enddo ??“B=”+Str(B, 2)Return Procedure Prog1 A=A*2 B=B+A Return(1)程序的運行結(jié)果為（D）。
（A）P（1）=2，P（2）=3，P（3）=4，b=15（B）P（1）=2，P（2）=4，P（3）=6，b=8（C）P（1）=2，P（2）=4，P（3）=6，b=18（D）P（1）=2，P（2）=4，P（3）=8，b=15（2）變量i的最終結(jié)果是(C)(A)3(B)5(C)4(D)6
第9題、閱讀下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李強' LOOP ENDIF ?姓名，實發(fā)工資 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．?dāng)?shù)據(jù)庫表
Ｃ．?dāng)?shù)據(jù)庫 Ｄ．可能是自由表，也可能是（2）若數(shù)據(jù)庫有50條記錄，則程序的功能是：（D）A前10條記錄中搜索“李強”的記錄 B列出前10條記錄
C.每10條記錄一屏顯示記錄，但不顯示“李強”的記錄 D.列出前１０條記錄，但是不顯示“李強”的 第10題、閱讀下面程序： CLEA clear store 1 to i store 2 to j,k do a1 ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)proc a1 i=3*i+2 private i i=2*j+k ?“i=”+str(i,2)+“ j=”+str(j,2)+“ k=”+str(k,2)retu RETURN(1)主程序中“do a1”后的顯示語句顯示結(jié)果為：（C）
（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=2 k=2（D）i=6 j=8 k(2)過程a1中的顯示語句將顯示：（D）
（A）i=6 j=7 k=2（B）i=5 j=7 k=2（C）i=5 j=8 k=2（D）i=6 j=2 k=第7題、CLEAR CLOSE ALL USE 學(xué)生 COUNT TO X GO TOP FOR I=1 TO X IF 性別='男' DISP ENDIF SKIP ENDFOR CLOSE ALL(1)該程序的功能是：(C)A)顯示一條男同學(xué)的記錄 B)顯示一條女同學(xué)的記錄 C)顯示所有男同學(xué)的記錄 D)顯示所有女同學(xué)的記錄
(2)程序退出循環(huán)的條件是(C)A)記錄指針指向文件尾 B)記錄指針指向文件頭 C)循環(huán)次數(shù)大于表中記錄條數(shù) D)循環(huán)次數(shù)小于表中記錄條數(shù) 第8題、閱讀下面程序： 有圖書數(shù)據(jù)表TS和訂書單表DSD如下： TS：（書號：C3，單價：N6.2 書名C10）
書號 單價 書名
001 12.0 計算機應(yīng)用 002 10.0 化學(xué)
003 15.0 分析化學(xué)
DSD：（班級：C6，書號：C3，數(shù)量：N3.0, 款項：N7.2）
記錄號 班級 書號 數(shù)量 款項 1 化95.4 001 47 0.00 2 數(shù)94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 數(shù)94.3 001 74 0.00 8 化95.4 003 47 0.00 9 數(shù)94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 書號 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 書號 INTO SHU REPL ALL 款項 WITH數(shù)量＊shu.單價 LIST DO WHIL.T.ACCE “輸入0退出” TO BJ IF BJ ='0' EXIT ENDI ACCE“輸入書號” TO SH LOCAT FOR 書號=SH DISP ？“書號”+書號+str(款項)+“元?！? ENDD clea all RETURN（1）do while循環(huán)中l(wèi)ocate操作的表是：（B）（A）數(shù)據(jù)表TS（B）數(shù)據(jù)表DSD（C）系統(tǒng)臨時表aaa（D）系統(tǒng)臨時表cursor aaa（2）運行時輸入書號“003”，則輸出為：_C（A）分別顯示書號為“003”的所有款項（B）顯示書號為“003”的所有款項之和（C）顯示書號為“003”的第一條記錄的款（D）輸入錯誤，沒有輸出
第9題、讀下列程序： &&MAIN.PRG PUBLIC X，Y SET PROC TO KK X=20 Y=50 DO A1 ?X,Y SET PROC TO RETU *過程文件kk.prg Proc a1 Private x X=30 Local y Do a2 ?x,y Return Proc a2 X=“kkk” Y=“mmm” Return 第一次顯示的X，Y的值是(B)A)KKK 30 B)KKK.F.C)KKK 50 D)30.F.第二次顯示的X，Y的值是(B)A)20 50 B)20 MMM C)30 50 D)30 MMM 第10題、讀程序： CLEAR CLOSE ALL SELE 2 USE CJ INDEX ON 學(xué)號 TO XH SELE 1 USE XS SET RELATION TO 學(xué)號 INTO B SET SKIP TO B replace b.成績 with b.成績*1.1 for a.姓名=“王小平”(1)在以上程序中(A)A)表CJ是子表 B)表XS是子表 C)表XS是主表也可以是子表 D)無法確(2)該程序的功能是B A)修改王小平的成績?yōu)?.1分 B)修改王小平的成績?yōu)樵煽兊?.1C)修改字段名成績?yōu)槌煽?.1 D)顯示王小平的記錄
第11題、有以下三段程序
*Main.PRG CLEA K1=10 K2=20 DO SuB ?K1,K2 &&(1)DO Sub1 With K2+10,K1 ?K1,K2 &&(3)RETU PROC SUB PRIV K1 K1=K2+1 K2=K1+1 RETU PROC Sub1 PARA Xl,x2 X1=10 X2=20 X1=STR(X1,2)+STR(X2,2)X2=X1+STR(X2,2)?X1,X2 &&(2)RETU(1)程序運行到(1)處顯示的結(jié)果是(D)(A)10 20 b)20 30(C)10 30(D)l0 2(2)程序運行到(2)處顯示的結(jié)果是(B)A)1020 102010(B)1020 102020(C)1010 101010(D)1020 101010(3)程序運行到(3)處顯示的結(jié)果是(D)(A)101010 22(B)102020 30(C)102020 40(D)102020 22 第7題、I=0 DO WHILE I<10 IF INT(I/2)=I/2 I=I+3 ENDIF I=I+2 ENDDO ?I RETU（1）上述程序執(zhí)行后，共循環(huán)了__C____次。A)10 B)5 C)4 D)死循環(huán)（2）上述程序執(zhí)行后，屏幕顯示為___B___。A)10 B)11 C)9 D)13
第7題、讀下列程序： k=1 DO WHILE k<=21 k=k+2 ?STR(k,2)IF k=9 EXIT ENDIF ENDD（1）程序循環(huán)了多少次__A____。A)4 B)3 C)6 D)5（2）程序執(zhí)行的結(jié)果是___C___。A)1 3 5 7 B)2 4 6 8 C)3 5 7 9 第8題、讀下列程序： CLEAR FOR K=1 TO 4 A=“$” FOR J=1 TO k A=A+STR(K,1)ENDFOR @K,5 SAY A ENDFOR WAIT RETURN（1）程序運行的結(jié)果是___B___。
A)$1 B)$1 $22 $22 $122333 $333 $4444 C)$122333 D)$（2）程序運行到WAIT處，變量K與J的值分別是___D___A)1, 1 B)4, 4 C)4, 1 第9題、如下程序顯示的結(jié)果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值為(D)A)10 B)11 C)12 D)13(2)程序循環(huán)次數(shù)為：(B)A)3 B)4 C)5 D)6
第10題、閱讀下面程序： CLEAR OPEN DATABASE emplorer USE compen SCAN FOR RECNO()<=10 IF 姓名='李強' LOOP ENDIF ?姓名，實發(fā)工資 ENDSCAN USE CLOSE DATABASE（1）compen是：（D）A．自由表 B．?dāng)?shù)據(jù)庫表
C．?dāng)?shù)據(jù)庫 D.可能是自由表，也可能是數(shù)據(jù)（2）若數(shù)據(jù)庫有50條記錄，則程序的功能是：（D）
A． 前10條記錄中搜索“李強”的記錄 B．列出前10條記錄 C.每10條記錄一屏顯示記李強“的記錄 D.列出前１０條記錄，但是不顯示”李強“的記錄
第7題、讀下列程序： USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '請輸入姓名' TO XM INDEX ON 職稱 TO ZX FOR 姓名=ALLT（XM）L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名
@ L,M+20 GET 基本工資 L=L+2 SKIP ENDDO WAIT '下一個（Y/N）？' TO Y ENDDO USE RETU（1）這個程序的功能是___B___。A)輸入 B)查詢（C）修改（D）統(tǒng)計（2）程序中變量Y的作用是___A___。
A)控制整個程序循環(huán) B)把指針指向下一條記錄 C)等待 D)沒有作用 第9題、有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3“ ENDCASE(1)若在X=300的情況下執(zhí)行這個程序段，屏幕上將顯示A A）1 B）2 C）12 D）3(2)輸入下列什么數(shù)據(jù)時，屏幕上將顯示字符 3 A A）100 B）200 C）300 D）400 第7題、有如下教師授課表： 教師號 主講課程 t1101 數(shù)據(jù)結(jié)構(gòu) t1102 C語言 t1103 網(wǎng)頁制作 t1104 計算機網(wǎng)絡(luò) t1105 計算機網(wǎng)絡(luò) t1105 C語言 t1105 數(shù)據(jù)庫
下列程序段的輸出結(jié)果是 CLOSE DATA a=0 USE教師 GO TOP DO WHILE.NOT.EOF()IF主講課程＝”數(shù)據(jù)結(jié)構(gòu)“.OR.主講課程＝”C語言“ a=a+1 ELSE DISP ENDIF SKIP ENDDO ?a 1 A A)3 B)4 C)5 D)6(2)命令DISP一共顯示的記錄條數(shù)是：A)3 B)4 C)5 D)6
第8題、讀下列程序并進(jìn)行判斷。S=0 I=1 Do While I<4 Accept ”請輸入字符串: “ To X If ”A“ $ X S=S+1 Endif I=I+1 Enddo ?S Return(1)運行時輸入 ”abcd“, ”ABCD“, ”aBcD “, 輸出 S的值是(B)(A)2(B)1(C)3((2)運行時輸入”ABCD“, ”ABcd“, ”cdab“, 輸出 S的值是(C)(A)1(B)4(C)2(D)第7題、如下程序顯示的結(jié)果是()。s=1 i=0 do while i<8 s=s+i i=i+2 enddo ?s(1)S的值為(D)A)10 B)11 C)12 D)13(2)程序循環(huán)次數(shù)為：(B)A)3 B)4 C)5 D)6
第8題、CLEAR N=10 FOR J=1 TO 3 ?STR(J,2)+')' ??SPACE(6*J)FOR K=1 TO 3-J+1 ?? STR(J*K,6)N=N+2 ENDFOR ? ENDFOR RETURN（1）輸出的圖形為：（C）
A.1)1 B.1)1 2 3 C.1)1 2 3 D.1)1 2 3 2)2 4 2)2 4 2)2 4 2)4 6 8 3)3 6 9 3)3 3)3 3)9 12 15（2）程序結(jié)束時，N的值是：（A）A.22 B.9 C.10 D.15 第9題、設(shè)表文件XS.DBF有10條記錄，程序如下： USE XS GO BOTTOM N=3 DO WHILE N>=1 DISPLAY SKIP-1 WAIT N=N-1
ENDDO USE RETURN（1）程序的功能是（D）
（A）顯示所有記錄（B）分別顯示前3個記錄（C）顯示第3個記錄（D）分別顯示后三（2）退出循環(huán)后，N的值是（A）（A）0（B）1（C）3（D）4
讀下列程序：
USE GZ Y='Y' DO WHILE Y$'Yy' CLEA ACCE '請輸入姓名' TO XM INDEX ON 職稱 TO ZX FOR 姓名=ALLT（XM）
L=3 M=10 DO WHILE.NOT.EOF()@ L,M GET 姓名 @ L,M+20 GET 基本工 L=L+2 SKIP ENDDO WAIT '下一個（Y/N）？' TO Y ENDDO USE RETU（1）這個程序的功能是___B___。A)輸入 B)查詢（C）修改（D）統(tǒng)計（2）程序中變量Y的作用是___A___。
A)控制整個程序循環(huán) B)把指針指向下一條 錄C)等待 D)沒有作用
第8題、已知proc.prg程序清單如下：（12）n=10 t=15 S=1 M=0 DO proc_1 WITH n M=M+S DO proc_1 WITH T M=M+S ?M CANC proc_1.prg程序清單如下： PARAMETERS a S=1 FOR K=1 TO A S=S*K ENDFOR RETURN(1)程序proc.prg的功能是(C)A）輸出N 和T的乘積 B）輸出N 和T的階乘 C）輸出N 和T的階乘之和D）輸出N 和T的值(2)在程序中變量S是(D)A)全局變量 B)私有變量 C)本地變量 D)局部變量 讀程序 clear use 學(xué)生
locate for 入?？偡?=580 do while.not.eof()disp continu enddo ?'結(jié)束' Cancel(1)該程序的功能是：(B)A)顯示表中一條入總分大于580分的學(xué)生記錄 B)顯示表中所有入?？偡执笥?80分的學(xué)生記錄C)顯示表中一條學(xué)生記錄D)顯示表中所有的學(xué)生記錄
(2)循環(huán)結(jié)束后，表中記錄指針指向(B)A)文件頭 B)文件尾 C)末記錄 D)首記錄
USE XSDA N=1 XH=”200201“ DO WHILE N<=120 APPEND BLANK REPL 學(xué)號 WITH STR(VAL(XH)+N,6)N=N+1 ENDDO USE CANCEL（1）上述程序數(shù)據(jù)庫中，”學(xué)號“這個字段是__A___A)字符型 B)數(shù)值型 C)日期型 D（2）該程序的功能是____D__。
A)修改表文件的字段 B)修改表文件原有記錄中學(xué)號字段的值 C)增加表文件的字段 D)追加新記錄并填充學(xué)號字段的值
（3）程序運行到最后，變量N的值是___C___。A)1 B)120 C)121 D)0 現(xiàn)有表文件STUD.DBF，表中有：學(xué)號（C/6），姓名（C/8），性別（C/2），出生日期（D/8）等字段干條，根據(jù)已有的表文件運行下面程序： SET TALK OFF CLEAR USE STUD INDEX ON TRIM(姓名)TO ISTUD S=.T.DO WHILE S XM=SPACE(8)ACCEPT ‘請輸入姓名:’ TO XM IF LEN(TRIM(XM))=0 EXIT ENDIF SEEK XM IF.NOT.EOF()@3,10 SAY “學(xué)號” @3,20 SAY 學(xué)號
@5,5 SAY “姓名”+姓名 @7,5 SAY “性別”+性別 @9,5 SAY “出生日期:” @ 9,20 SAY 出生日期 ELSE @20,3 SAY “沒有找到該姓名的學(xué)生” S=.F.ENDIF WAIT ENDDO CANCEL（1）程序中的索引關(guān)鍵字和索引文件名分別為__B____。
A)學(xué)號, STUD.DBF B)姓名,ISTUD.DBF C）學(xué)號, ISTUD.IDX D)姓名,ISTUD.IDX（2）程序中用SEEK進(jìn)行___C___查找。A)順序 B)條件 C)索引 D)范圍（3）執(zhí)行EXIT命令的條件是____C___。
A）輸入姓名后直接按
C)輸入姓名，又按空格鍵，再按
A=“Abcde” N=LEN(A)I=1 DO WHILE I<=N B=SUBSTR(A,I,1)IF ISLOW(B)B=CHR(ASC(B)-32)A=STUFF(A,I,1,B)ENDIF I=I+2 ENDDO ?A RETURN（1）程序運行的結(jié)果是___D___。A)abcde B)ABCDE C)abCdE D)AbCdE（2）程序循環(huán)的次數(shù)是___C___。A)5 B)4 C)3 D)6
讀下列程序： USE 學(xué)生 I=1 FILEN=”” DO WHILE I<=9 FILEN=”S”+STR(I,1)+”.DBF” COPY TO &FILEN I=I+1 ENDDO USE（1）程序運行的結(jié)果是___C___。A)無結(jié)果 B)拷貝了1個文件C)拷貝了9個文件
了10個文件
（2）拷貝所產(chǎn)生的新文件名是___D___。A)S.DBF B)FILEN C)&FILEN D)S1.DBF~S9.D
有如下程序段： USE CLASS LOCATE FOR 政治面目=”團(tuán)員“ DO WHILE FOUND()DISPLAY CONTINUE ENDDO該程序的功能是：C
A)顯示團(tuán)員的一條記錄 B)顯示非團(tuán)員的一條記錄C)顯示團(tuán)員的所有記錄D)顯示非團(tuán)員的所程序退出循環(huán)的條件是A
A)FOUND()函數(shù)返回值為B)FOUND()函數(shù)返回值為假 C)與 FOUND()函數(shù)的值無關(guān)D)EOF()函數(shù)返回值為真
有如下程序段： DO CASE CASE X>100 ?? ”1“ CASE X>200 ?? ”2“ OTHERWISE ?? ”3" ENDCASE(1)若在X=300的情況下執(zhí)行這個程序段，屏幕上將顯示A A）1 B）2 C）12 D）3(2)輸入下列什么數(shù)據(jù)時，屏幕上將顯示字符 3 A A）100 B）200 C）300 D）400
讀程序
1、CLEAR M=0 FOR X=1 TO 10 IF MOD(X,3)=0 M=M+X ENDIF ENDFOR ? M RETURN（1）該程序的功能是：求1到10之間B A.能被3整除數(shù)的個數(shù) B.能被3整除數(shù)C.不能被3整除數(shù)的個數(shù) D.不能被3整除數(shù)的和
（2）該程序執(zhí)行的結(jié)果是：C A.3 B.10 C.18 D.37
&&MAIN.PRG &&P1.PRG X1=1 PARA W1,W2 X2=2 PRIVATE W1 DO P1 WITH X1,X2 W1=W1*3 ?’X1=’+STR(X1,1)W2=W2*4
??’X2=’+STR(X2,1)RETURN X1=1 X2=2 DO P1 WITH X1,X1+X2 ?’X1=’+STR(X1,1)??’X2=’+STR(X2,1)
RETURN（1）第一次顯示X1，X2的值是B A 1 , 8 B 3 , 8 C.1 , 1 D.8 , 8（2）第二次顯示X1，X2的值是C A 1 , 2 B 3 , 1 C 3 , 2 D.1 , 3
CLEAR DIME A（20）P=1 FOR N=1 TO 20 INPUT“請輸入數(shù)據(jù)：“ TO A(N)ENDFOR FOR L=1 TO 19 FOR M=L+1 TO 20 IF A(L)<=A(M)T=A(L)A(L)=A(M)A(M)=T ENDIF ENDFOR ??A(I)ENDFOR 程序完成的功能是將20個數(shù)組元素值A(chǔ) A 排序后按從大到小的順序輸出 B 排序后按從小到大的順序輸出C． 倒序輸出 D.按自然順序輸出
將DIME A（20）改成 DIME A（10）后，B A． 出現(xiàn)“數(shù)組重復(fù)定義”的錯誤 B． 出現(xiàn)“數(shù)組下標(biāo)越界”的錯誤 C． 程序功能不變，只是輸出10個數(shù)組元素值 D． 程序功能不變，仍然輸出20個數(shù)組元素值
CLEAR CLOSE ALL USE 學(xué)生 SCAN IF性別=’男’ DISP ENDIF N=N+1 ENDSCAN ？N CLOSE ALL CANC(1)D A)該程序顯示一條男同學(xué)的記錄 B)該程序顯示一條女同學(xué)的記錄 C)該程序顯示全班同學(xué)的記錄 D))該程序顯示全班男同學(xué)的記錄(2)命令？N 顯示的是C A)男同學(xué)的記錄個數(shù) B)女同學(xué)的記錄個數(shù) C)全班同學(xué)的記錄個數(shù) D)無法確定
USE SB SORT TO RQX ON 啟用日期/D FIELDS 編號，名稱，啟用日期 FOR NOT 主要設(shè)備 USE RQX LIST USE SB SORT TO BMX ON 部門/D，價格 FOR 主要設(shè)備 USE BMX LIST RETURN（1）程序執(zhí)行到第一個LIST命令時，輸出結(jié)果是C
（A）將主要設(shè)備按編號，名稱，啟用日期分別升序排序。（B）將主要設(shè)備按編號，名稱，啟用日期分別降序排序。（C）將非主要設(shè)備按啟用日期降序排序。（D）將非主要設(shè)備按啟用日期升序排序。
（2）程序執(zhí)行到第二個LIST命令時，輸出結(jié)果是B
（A）將主要設(shè)備按部門升序排序，當(dāng)部門相同時，按價格降序排序。（B）將主要設(shè)備按部門降序排序，當(dāng)部門相同時，按價格升序排序。（C）將主要設(shè)備按部門降序排序，當(dāng)部門相同時，按價格升序排序。（D）將主要設(shè)備按部門升序排序，當(dāng)部門相同時，按價格降序排序。
共有3個數(shù)據(jù)庫文件TB1.DBF, TB2.DBF, TB3.DBF,下面程序功能是把每個庫文件的末尾記錄刪掉。序，將程序填寫完整。N=1 DO WHILE N<=3 TB=“TB“+STR(N，1)USE &TB GO BOTTOM DELETE PACK N=N+1 ENDDO 該程序的功能是B（A）將數(shù)據(jù)表的末記錄作物理刪除（B）將數(shù)據(jù)表的末記錄作邏輯刪除（C）將數(shù)據(jù)表的首記錄作物理刪除（D）將數(shù)據(jù)表的首記錄作邏輯刪除
該程序一共刪除了()表中的記錄C（A）1個（B）2個（C）3個
（D）4個
閱讀下面程序： 有圖書數(shù)據(jù)表TS和訂書單表DSD如下： TS：（書號：C3，單價：N6.2 書名C10）
書號 單價 書名
001 12.0 計算機應(yīng)用 002 10.0 化學(xué)
003 15.0 分析化學(xué) DSD：（班級：C6，書號：C3，數(shù)量：N3.0, 款項：N7.2）
記錄號 班級 書號 數(shù)量 款項 1 化95.4 001 47 0.00 2 數(shù)94.3 002 74 0.00 3 物96.4 003 67 0.00 4 生95.4 002 47 0.00 5 地94.3 001 67 0.00 6 物94.3 002 67 0.00 7 數(shù)94.3 001 74 0.00 8 化95.4 003 47 0.00 9 數(shù)94.3 003 74 0.00 程序： CLEA ALL SELE 1 USE Ts ALIAS SHU INDEX on 書號 tag TSSH SELE 2 USE dsd alias shdn SET RELA TO 書號 INTO SHU REPL ALL 款項 WITH數(shù)量＊shu.單價 LIST DO WHIL.T.ACCE “輸入0退出” TO BJ
IF BJ =’0’ EXIT ENDI ACCE“輸入書號” TO SH LOCAT FOR 書號=SH DISP ENDI ？“書號”+書號+str(款項)+”元?！? ENDD clea all RETURN（1）do while循環(huán)中l(wèi)ocate操作的表是：B A數(shù)據(jù)表TS B數(shù)據(jù)表DSD C系統(tǒng)臨時表aaa D系統(tǒng)臨時表cursor aaa（2）運行時輸入書號“003”，則輸出為：_C（A）分別顯示書號為“003”的所有款項（B）顯示書號為“003”的所有款項之和（C顯示書號為“003”的第一條記錄的款項（D）輸入錯誤，沒有輸出
閱讀下面程序： CLEAR T=65 R=20 INPUT “請輸入圖形的行數(shù)N=” TO N I=1 DO WHILE I<=N J=1 DO WHILE J<=2*I-1 @I,J+R SAY CHR(T)J=J+1 IF J<=I T=T+1 ELSE T=T-1 ENDIF ENDDO I=I+1 R=R-1 T=65 ENDDO RETURN(1)運行程序后輸出圖形C
（A）A（B）A BBB ABC CCCCC ABCDE DDDDDDD ABCDEFG EEEEEEEEEEEE ABCDEFGHIJ
??????? ??????
（C）A A ABA BAB ABCBA CBABC ABCDCBA DCBABCD ABCDEDCBA EDCBABCDE
??????? ???????（2）語句@I,J+R SAY CHR(T)中函數(shù)CHR（）的功能是D（A）從字符T中取出子串（B）返回字符T的ACSⅡ碼值（C）返回字符T的ACSⅡ碼字符
（D）返回<數(shù)值表達(dá)式>表示的ACSⅡ碼字符
：
CLEA BM=SPACE(10)@5，10 SAY“請輸入表名：”GET BM READ BM=ALLTRIM(BM)IF FILE(“&BM..DBF”)USE &BM BROWSE ELSE WAIT“文件不存在!” WINDOW NOWAIT ENDIF USE RETURN(1)程序的功能是C(A)瀏覽任意一個打開的表文件(B)修改任意一個打開的表(c)瀏覽指定表文件BM(D)修改指定表文件BM(2)函數(shù)FILE(“&BM..DBF”)的功能是C(A)測試指定的文件的類型正確否(B)指定文件類型為(C)測試指定的文件存在否(D)指定文件為&BM．．DBF
有圖書目錄數(shù)腳sml，dbf和入庫流水單表skc．dbf如下 sml.dbf：(5條記錄)書號 書名 作者 出版社 1 計算機基礎(chǔ) 楊振山 高等教育 2 計算機原理 費利民 西安交大 3 C語言設(shè)計 趙國民 上海 4 C語言教程 張 揚 四川 5 C++教程 張 敏 高等教育 skc.dbf：(5條記錄)書號 單價 數(shù)量 金額 入庫日期 1 15.00 30 450.00 20030818 2 11.00 21 231.00 20030818 3 22.00 30 660.00 20030818 4 19.00 30 570.00 20031218 5 22.21 23 510.83 20031218 程序： CLEAR @1，15 SAY ‘新書入庫’ Y=’Y’
DO WHILE upper(Y)=”Y” SM=SPACE(14)ZZ=SPACE(8)CBS=SPACE(10)@3，10 SAY ’書名’ GET SM @3，30 SAY ’作者’ GET ZZ @3，45 SAY，出版社 GET CBS READ SELE 1 USE SML LOCA FOR TRIM(書名)=TRIM(SM)AND TRIM(作者)=TRIM(ZZ)AND TRIM(出版;社)=TRIM(CBS)IF FOUND()SH=書號 ELSE SKIP-1 SH=STR(val(書號)+1，4)APPE blan REPL書名WITH SM，書號WITH SH，作者WITH ZZ，出版社with cbs ENDIF SELE 2 USE skc APPE BLAN REPL書號with sh @4，10 SAY ‘單價’ GET單價 @4，30 SAY ‘購人數(shù)’ GET數(shù)量 READ REPL金額 WITH 單價*數(shù)量 REPL入庫日期 WITH date()WAIT “是否繼續(xù)(Y／N)” to Y ENDD CLOSE DATA 設(shè)運行時依次輸入下列數(shù)據(jù)：
代數(shù) 張三 清華 22.00 31 幾何 李四 北大 33.00 32 概率 王五 南開 44.00 33 幾何 李四 北大 33.00 41 代數(shù) 張三 清華 22.00 56(1)此時sml表中的記錄條數(shù)和最大記錄號分別為C A 10條，10 B 10條，5 C 8條，8 D 8(2)SKC表中記錄數(shù)為C(A)10(B)5(C)8(D)7
clear dimension k(2,3)i=l ? do while i<=2 j=l do while j<=3 k(i,j)=i*j ??k(i，i)??” ” j=j+1 enddo ? i=i+1 enddo(1)運行程序后，屏幕的顯示結(jié)果是A
(A)1 2 3(B)1 2 2 4 6 3 2(C)1 2 3(D)1 2 3 1 2 3 2 4 9(2)如果將dimension k(2,3)語句改為：dimension K(2，2)后，A(A)出現(xiàn)“數(shù)組重復(fù)定義”的錯誤(B)出現(xiàn)“數(shù)組下標(biāo)超界”的錯誤
(C)程序功能不變，只輸出4個數(shù)組元素(D)程序功能不變，仍然輸出6個數(shù)組元素
閱讀下列程序 CLEAR M=0 FOR K=0 TO 2 FOR J=3-k TO 3+K @K,J SAY STR(K，2)+STR(J,1)M=M+1 NEXT K NEXT 1 ?M RETURN(1)輸出圖形為： A
(A)03(B)03(C)03(D)0 3 14 14 14 1 4 25 25 25 2 5(2)程序結(jié)束時，M的值是： B(A)11(B)9(C)10(D)8
讀下列程序： J=0 CLEAR FOR K=1 TO 4 FOR R=1 TO 5-K ？？“” &&此處括號內(nèi)有1個空格 ENDFOR FOR M=1 TO 2*K-1 ？？STR(K，1)J=J+1 ENDFOR ? ENDFOR ? J(1)程序運行的結(jié)果是：A
A)1 B)1 C)2 D)1 222 121 121 212 33333 1331 1331 31113 4444444 144441 144441 4111114(2)程序結(jié)束時，J的 值為C A)7 B)17 C)16 D)6
SUM=0 N=0 DO WHILE N< 100 N=N+1 SUM=SUM+N ENDDO ?’SUM=’,SUM(1)該程序的功能是B A)計算1+100的值 B)計算1+2+3+?+100的值 C)計算1+99的值 C)計算1+2+3+?+99的值(2)循環(huán)結(jié)束后，N的值為A
A)100 B)99 C)101 D)102
Clea FOR N=1 TO 4 FOR I=1 TO 2*N-1
IF I<=N
@ N,10-N+I SAY STR(I,1)
ELSE
@ N,COL()SAY STR(2*N-I,1)
ENDI ENDF ENDF Canc(1)該程序的顯示的是：B
A)1 B)1 C)1 D)1 222 121 212 121 33333 12321 31213 13331 4444444 1234321 4123214 1444441(2)循環(huán)結(jié)束后，N的值為C A)3 B)4 C)5 D)6
INPUT”請輸入數(shù)據(jù)1：“ TO X INPUT”請輸入數(shù)據(jù)2：“ TO Y INPUT”請輸入數(shù)據(jù)3：“ TO Z IF X>Y N=Y ELSE N=X ENDI IF N (1)A)輸入的最大值 B)輸入的最小值 C)輸入的中間值 D)輸入的任意值 有一學(xué)生情況表STU，表中有成績字段 以下程序的功能是： N=0 S=0 USE STU 輸入的任 D)SCAN FOR 成績>=560 S=S+成績 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中成績大于560分的人數(shù) B)統(tǒng)計表中成績小于560分的人數(shù) C)表中成績大于560分的人的總分?jǐn)?shù) D)表中成績大于560分的人的平均分?jǐn)?shù) 有一學(xué)生情況表STU，表中有成績字段 以下程序的功能是： N=0 S=0 USE STU SCAN FOR 團(tuán)員 S=S+成績 N=N+1 ENDS S=S/N USE ?S CANC 程序中命令？S，S 表示的是D A)表中團(tuán)員人數(shù) B)表中非團(tuán)員的人數(shù) C)表中團(tuán)員總分?jǐn)?shù) D)均分?jǐn)?shù) VFP程序題 第一套題 一、運行結(jié)果題 1、以下程序運行結(jié)果是 SET TALK OFF CLEAR A = 5 B = 12 C = 18 IF MAX(A , B)< C ? MAX(A, B) ELSE IF MIN(A , B)< C ? C ELSE ? MIN(A , B) ENDIF ENDIF SET TALK ON RETURN 2、以下程序運行結(jié)果是 SET TALK OFF CLEAR USE STCJ DO WHILE ,NOT, EOF() REPLACE 總分 WITH 高數(shù) + 計算機 + 英語 SKIP ENDDO GO BOTTOM ? 學(xué)號，總分 USE RETURN 3、以下程序運行結(jié)果是 SET TALK OFF SET HEADINGS OFF SELECT 2 USE STCJ INDEX ON 編號 TO GZ21 REPLACE ALL 總分 WITH 高數(shù) + 計算機 + 英語 SELECT 1 USE STDA SET RELATION TO 編號 INTO B DISPLAY FIELDS 姓名，B.總分 FOR 四級通過 OFF CLOSE ALL RETURN 4、以下程序運行結(jié)果是 SET TALK OFF SET SAFETY OFF USE STDA INDEX ON 民族 TO XBSY TOTAL ON 民族 TO GZHZ USE GZHZ COUNT TO N ? N SET SAFETY ON SET TALK ON RETURN 5、以下程序運行結(jié)果是 SET TALK OFF SET DELETED ON USE STDA DELETE FOR 性別 = “ 男 ” COUNT TO A SET DELETED OFF COUNT TO B DELETE ALL PACK COUNT TO C ? A , B , C SET TALK ON RETURN 6、以下程序運行結(jié)果是 SET TALK OFF USE STDA INDEX ON 獎學(xué)金 TO GZSY SKIP 2 ? 姓名，獎學(xué)金 USE SET TALK ON RETURN 7、以下程序運行結(jié)果是 SET TALK OFF SET PROCEDURN TO SP S = 0 DO SP1 WITH 5 , S ? S SET TPROCEDURE TO RETURN * SP PRG PROCEDURE PARAMETERS X , Y N = 1 Y = 1 DO WHILE N < X Y = Y + N N = N + 1 ENDDO RETURN 8、以下程序運行結(jié)果是 SET TALK OFF DIMENSION X(2 ,2)X = 5 FOR I = 1 TO 2 FOR J = 1 TO 2 IF I = J X(I , J)ENDIF ?? X(I , J)ENDFOR ENDFOR SET TALK ON RETURN 二、完善程序 1、下列程序計算機 S =1！+ 2！+3！+4！+5！中，填空完成程序。 S = 0 FOR N = 1 TO 5 FOR I = 1 TO N P = P * I ENDFOR ENDFOR ? “SUN =” , S 2、用下列程序找出所有的水仙花數(shù)，所謂水仙花數(shù)，是指這樣一 個三位數(shù)，其各位數(shù)字的立方和等于該數(shù)本身，如 153 = 1^3 +5^3 +3^3，對以下程序填空完成該功能。FOR N = 100 TO 999 A = INT(N / 100) B = C = N – INT(N / 10)* 10 IF N = A^3 +B^3 +C^3 ? N ENDIF ENDFOR RETURN 3、將新表 DB2.DBF 文件中學(xué)號重復(fù)的記錄刪掉（只保留一個）SET TALK OFF SET SAFETY OFF USE STDA COPY TO DB2 USE DB2 INDEX ON 學(xué)號 TO XH DO WHILE.NOT.EOF()XH = 學(xué)號 SKIP DELETE ENDIF ENDDO CLEAR ALL 4、顯示STDA.DBF 文件中男同學(xué)的記錄 SET TALK OFF SET HEADING OFF USE STDA DO WHILE .NOT.EOF() IF ENDIF DISPLAY WAIT ENDDO USE SET TALK ON RETURN 5、將STDA.DBF 表中未通過英語四級考試學(xué)生的將賞金取消，通過者獎學(xué)金加50元，并顯示姓名和獎學(xué)金額。SET TALK OFF CLEAR USE STDA DO WHILE.NOT.EOF()IF.NOT.四級通過 REPLACE 獎學(xué) WITH 0 ELSE ? 姓名，獎學(xué)金 ENDIF SKIP ENDDO USE SET TALK ON RETURN 6、按學(xué)號查詢成績 SET TALK OFF CLEAR SELECT 1 USE STDA INDEX ON 學(xué)號 TO IXH SELECT 2 USE STCJ INDEX ON 學(xué)號 TO ICJ ACCEPT “請輸入查詢學(xué)號：” TO XH SEEK XH IF FOUND() DISPLAY 學(xué)號，A->姓名，總分 ELSE ? “ 查無此人！” ENDIF USE RETURN 7、請閱讀下列判斷一個自然數(shù)是否為質(zhì)數(shù)的程序，并將程序填寫完整。 SET TALK OFF INPUT “ 請輸入一個大于1 的自然數(shù)：” TO N K = 0 J = 2 DO WHILE J < N IF MOD(N , J) J = J +1 LOOP ELSE K = 1 EXIT ENDIF ENDDO IF K = 0 ? + “ 素數(shù)” ENDIF ? “ 再見！” SET TALK ON RETURN 8、修改數(shù)據(jù)表文件 STDA.DBF 中指定同學(xué)的四級通過情況。SET TALK OFF USE STDA INDEX TO ISY DO WHILE.T.CLEAR ACCEPT “ 輸入待學(xué)生的姓名” TO XM SEEK XM IF FOUND() @ 10 , 10 SAY “ 修改” + XM + “ 的四級通過情況：” GET 四級通過 WAIT “ 繼續(xù)修改？（Y / N）” TO N IF ENDIF ENDDO USE RETURN 9、將數(shù)據(jù)表文件STDA.DBF 中的第三條記錄與第四條記錄的內(nèi)容互換，并顯示第三條記錄。 SET TALK OFF CLEAR USE STDA GO SCATTER TO A GO SCATTER TO B GO GATHER FROM B DISPLAY GO USE SET TALK ON RETURN 10、如下程序根據(jù)鍵入的學(xué)號使用SQL SELECT 語句顯示學(xué)生的學(xué)號、姓名和平均成績。請在下劃線處填寫適當(dāng)?shù)膬?nèi)容，使程序能正確的運行。 DO WHILE.T.CLEAR ACCEPT “請輸入學(xué)號：” TO KEYNO SELECT STDA.學(xué)號，姓名，（高數(shù) +計算機 +英語）/3 AS平均成績;FROM STDA.STCJ WHERE WAIT “如果退出，請按【Y】鍵！” TO KEY IF UPPER(KEY)= “ Y” ENDIF ENDDO USE RETURN 三、程序改錯題 1、在STDA.DBF 中，查詢某人英語四級通過情況，若通過了，則授予學(xué)位，否則不授予學(xué)位。(1)SET TALK OFF(2)USE STDA (3)ACCEPT “請輸入姓名：” TO XM(4)SEEK FOR 姓名 = XM(5)IF EOF() (6)? “查無此人！”(7)RETURN(8)ENDIF (9)IF 英語四級通過 (10)?姓名 + “英語四級通過，授予學(xué)位”(11)ELSE (12)?姓名 + “英語四級沒通過，不授予學(xué)位”(13)ENDIF(14)USE (15)SET TALK ON(16)RETURN 錯誤的行是 改為： 2、顯示 STCJ.DBF 中總分不低于190分的所有學(xué)生的姓名和總分字段的值。 (1) SET TALK OFF (2) SET HEAD OFF (3) USE STCJ (4) DO WHILE RECNO()< = RECCOUNT() (5) REPL 總分 WITH 高數(shù) +計算機 +英語 (6) IF 總分> = 190 (7) DISP 學(xué)號，總分 OFF (8) ENDIF (9) LOOP (10) ENDDO (11) RETURN 錯誤的行是： 改為： 3、在STDA.DBF 中，快速查詢性別為“男”，“09/12/92”出生的人 (1) SET TALK OFF (2) USE STDA (3) INDEX ON 性別 +入學(xué)時間 TO LKL (4) SEEK “男” + “09/12/92” (5) IF .NOT.EOF() (6) DISPLAY (7) ELSE (8) ? “查無此人！” (9) ENDIF (10) USE (11) SET TALK ON (12) RETURN 錯誤的行是： 改為： 4、求出 STCJ 表中總成績的最大值和最小值。(1) SET TALK OFF (2) USE STCJ (3) DO WHILE .NOT.EOF() (4) REPLACE 總分 WITH 高數(shù) +計算機+英語 (5) SKIP (6) ENDDO (7) GO TOP (8) STORE 總分 TO MAX , MIN (9) DO WHILE .NOT.EOF() (10) IF MAX >總分 (11) MAX = 總分 (12) ENDIF (13) IF MIN <總分 (14) MIN = 總分 (15) ENDIF (16) SKIP (17) ENDDO (18) ? “最高分：” ,MAX ,”最低分：” , MIN (19)SET TALK ON (20)RETURN 錯誤的行是： 改為： 第九套題 一、完善程序題 1、將“職工”表中的數(shù)據(jù)按工資降序排列后生成新表，程序如下： CLOSE ALL SET TALK OFF CLEAR USE 職工 TO 職工1 ON 工資/D USE 職工1 DISPLAY ALL USE RETURN 2、在“職工”表中查找且顯示“孫大鵬”的信息，程序如下： SET TALK OFF CLEAR USE 職工 LOCATE IF FOUND()DISPLAY ENDIF USE 3、顯示“職工”表中女職工的工資和，程序如下： SET TALK OFF CLEAR SELECT FROM 職工 RETURN 1、設(shè)計一個查詢表單BD.SCX,其界面如圖所示，其中文本框控件 名為TEXT1，表格控件名為GRID1。當(dāng)在其中輸入職工姓名并單擊“查詢”按鈕時，將下邊的表格內(nèi)顯示該職工的信息。“查詢”按鈕的Click 事件代碼應(yīng)如下： THISFORM.GRID1.RECORDSOURCETYPE=4 THISFORM.GRID1.FRCORDSOURCE=”SELECT * FORM 職工 WHERE 姓名 = = ” 5、將“職工”表中第6條記錄的“出生日期”改為“12/12/1972”,程序如下： SET TALK OFF CLEAR USE 職工 SKIP 5 出生日期 WITH {^1972/12/12} DISPLAY USE RETURN 五．程序題 在Text1中輸入一個3位自然數(shù)，分解求和的結(jié)果存入Text2中 x= thisform.text1.value a=int【1 】 b=int 【 2】 c=【 3】 s=【 4】 thisform.text2.value=【5 】 x/100(x-a*100)/10 x-a*100-b*10 a+b+c s 2 文本框Text1中輸入的值與文本框Text2中輸入的值交換 a= thisform.text1.value b= thisform.text2.value d=【1 】 【2 】 【3 】=d thisform.text1.value=【4 】 thisform.text2.value=【 5】 a a=b b a b 3 已知任意一個三角形的三條邊為a、b、c，求其面積。 a=thisform.text1.value b=【 1】 c=【 2】 p=(a+b+c)/【3 】 s=【 4】(p*(p-a)*(p-b)*(p-c))thisform.text4.value=【5 】 thisform.text2.value thisform.text3.value 2 sqrt s 4 判斷一個學(xué)生的計算機考試成績x屬于哪個分?jǐn)?shù)段之間（0-59，60-69，70-79，80-89，90-100）Command1_click事件代碼如下： x= thisform.text1.value store 0 to h5,h6,h7,h8,h9 do case case x>=0 and x<=59 h5=h5+1 case 【1 】 and x<=69 h6=h6+1 case x>=70 and x<=79 【 2】 case 【3 】 and x<=89 h8=h8+1 case x>=90 and 【 4】 h9=h9+1 【 5】 thisform.label1.caption=str(h5)+ str(h6)+str(h7)+str(h8)+str(h9)x>=60 h7=h7+1 x>=80 x<=100 endcase 5 假設(shè)表單與第二題中的表文件zgqk.dbf 建立了數(shù)據(jù)環(huán)境，在其中按姓名查找職工情況，找到后將其情況在表單上顯示，否則在信息框中顯示“查無此人”。試完成下面程序。 【 1】 zgqk xm=thisform.text1.value locate for【2 】 if 【 3】eof()thisform.【4 】 else 【5 】(“查無此人”)Endif use xm=姓名 not refresh messagebox 6 求s=1/1^2+1/2^2+?+1/n^2 【 1】 n=thisform.text1.【2 】 FOR i=1 TO 【3 】 s=s+【4 】 next THISFORM.Label3.Caption=【5 】 s=0 value n 1/i^2 str(s)7 計算1+3+5+??99，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p> 【 1】 FOR N=1 TO 【 2】 step 【 3】 s=s+n end【4 】 【5 】 s=0 99 2 for thisform.text1.value=str(s)8 計算1+3+5+??99，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p> 【 1】 FOR N=1 TO 【 2】 if 【 3】(n/2)<> n/2 s=s+n endif end【 4】 【5 】 s=0 99 int for thisform.text1.value=str(s)9 計算2+4+6+??100，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p> 【1 】 FOR N=2 TO 【2 】step 1 if int(n/2)=【 3】 s=s+n 【4 】 endfor 【 5】 s=0 100 n/2 endif thisform.text1.value=str(s)10 求所有的3位正整數(shù)除以99的商和余數(shù)，并輸出。 for i= 【1 】to 【2 】 a= 【 3】 b=【4 】 ?【5 】 Endfor 100 999 int(i/99)i%99 a, b 11 求1！+2！+3！+4！+5！。 S=0 For i=1 to【1 】 t=【2 】 for k=1 to 【 3】 t=t*【4 】 endfor s=s+【 5】 endfor 5 1 I k t 12 計算1+2+3+??100，并將結(jié)果存入文本框Text1中，請?zhí)羁?/p> 【 1】 FOR N=1 TO【 2】step 【 3】 s=s+n 【 4】for 【5 】 s=0 100 1 end thisform.text1.value=str(s)13 統(tǒng)計1至100之間能被7整除的數(shù)的個數(shù)并求其和，結(jié)果用信息框（對話框）輸出。Command1_click事件代碼如下： k=0 s=0 for i=1 to 100 if 【1 】(I,7)=0 k=k+【 2】 s=s+【3 】 endif endfor a=messagebox(【 4】+【 5】)mod 1 I str(k)str(s)14 在文本框Text1中輸入一個字符串，統(tǒng)計其中數(shù)字字符的個數(shù)，結(jié)果存入文本框Text2中。Command1_click事件代碼如下： k=0 x=allt(thisform.text1.value)n=【1 】 for i=1 to 【 2】 if subs(x,i,1)>”0” and【3 】 【 4】 endif endfor thisform.text2.value=【 5】 len(x)n subs(x,i,1)>”9” k=k+1 str(k)15.s=求1！+2！+3！+...+20!【1 】 for n=1 to 20 t=1 for m=1 to 【 2】 t=t*【3 】 endfor 【 4】 endfor THISFORM.Text1.Value=【 5】 s=0 n m s=s+t s 16.找出2010至2100之間所有閏年的年份 FOR i=【 1】 TO 【2 】 if i%4=0 AND i%100!=0 OR i%【3 】 ? 【4 】 endif 【5 】 2010 2100 400=0 I ENDFOR 17.設(shè)計一個求t=n!的自定義函數(shù) 【 1】f(x)t=【 2】 FOR j = 1 to 【3】 t=t*【4 】 endfor return 【 5】 function[###]func 1 x j t 18.求 Fibonacci 數(shù)列(1,1,2,3,5?)的前n(n>3)項,并輸出 input “n=” to n 【 1】 a(n)a(1)=1 a(2)=1 ? a(1),a(2)for i=3 to 【 2】 a(i)=【 3】+【 4】 ?? a(i-1),a(i-2)end【 5】 dime n a(i-1)a(i-2)for 19.輸出zgqk.dbf的基本工資大于600的記錄 【 1】zgqk do while not 【 2】 if 【 3】 【 4】 endif 【5 】 enddo use eof()基本工資>600 disp[###]display skip 1.在Text1中輸入一個3位自然數(shù)，分解求和的結(jié)果存入Text2中 2.文本框Text1中輸入的值與文本框Text2中輸入的值交換 3.已知任意一個三角形的三條邊為a、b、c，求其面積。 4.判斷一個學(xué)生的計算機考試成績x屬于哪個分?jǐn)?shù)段之間（0-59，60-69，70-79，80-89，90-100）287 5.求s=1/1^2+1/2^2+?+1/n^2 6.計算1+3+5+??99，并將結(jié)果存入文本框Text1中，7.計算1+3+5+??99，并將結(jié)果存入文本框Text1中 8.計算2+4+6+??100，并將結(jié)果存入文本框Text1中，9.求所有的3位正整數(shù)除以99的商和余數(shù)，并輸出。 10.編寫程序計算：s=1+1/2!+1/3!+?+1/n!,說明：在表單中有一個文本框控件：Text1,用來接收n的值，有一個標(biāo)簽控件：Label1，用來顯示S的值，試編寫表單的單擊事件，實現(xiàn)計算與顯示功能，只要求寫出事件的主要代碼，事件過程的起始語句和結(jié)束語句可略去。11.編寫程序計算：S=1X2＋2X3＋?＋NX(N+1)。0 12.編寫程序計算多項式：1^1+2^2+3^3+?+10^10 0 13.編寫程序在表單上顯示出：1～15之間的偶數(shù) 0 14.編寫程序在表單上顯示出：5/6+4/5+3/4+2/3+1/2 15.假設(shè)表單與第二題中的表文件zgqk.dbf 建立了數(shù)據(jù)環(huán)境，在其中按姓名查找職工情況，找到后將其情況在表單上顯示，否則在信息框中顯示“查無此人” 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 二級VFP模擬選擇題 第一，二章選擇題 1.數(shù)據(jù)庫系統(tǒng)的三級模式結(jié)構(gòu)是對數(shù)據(jù)的三個抽象級別，數(shù)據(jù)庫用戶看到的視圖稱為（）。 答案:A A.外模式 B.概念模式 C.內(nèi)模式 D.存儲模式 2.實體-聯(lián)系方法用（）來描述現(xiàn)實世界的概念模型。 答案:B A.關(guān)系圖 B.E-R圖 C.流程圖 D.聯(lián)系圖 3.數(shù)據(jù)模型由數(shù)據(jù)結(jié)構(gòu)、（）和完整性約束三個要素組成。 答案:C A.數(shù)據(jù)管理 B.數(shù)據(jù)共享 C.數(shù)據(jù)操作 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 D.數(shù)據(jù)控制 4.數(shù)據(jù)模型由（）、數(shù)據(jù)操作和完整性約束三個要素組成。 答案:A A.數(shù)據(jù)結(jié)構(gòu) B.層次結(jié)構(gòu) C.關(guān)系結(jié)構(gòu) D.網(wǎng)狀結(jié)構(gòu) 5.下列關(guān)于關(guān)系模型的敘述中，正確的是（）。 答案:C A.關(guān)系中的一個屬性可以對應(yīng)于多個值域 B.主鍵只能由一個屬性組成C.任何屬性不可再分 D.一個關(guān)系只能有一個候選鍵 6.數(shù)據(jù)表是相關(guān)數(shù)據(jù)的集合，它不僅包括（），而且包括數(shù)據(jù)之間的聯(lián)系。 答案:A A.數(shù)據(jù)本身 B.數(shù)據(jù)定義 C.數(shù)據(jù)控制 D.數(shù)據(jù)字典 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 7.下列敘述中，（）是數(shù)據(jù)庫系統(tǒng)的特點之一。 答案:B A.數(shù)據(jù)結(jié)構(gòu)化低 B.數(shù)據(jù)獨立性高 C.數(shù)據(jù)冗余度高 D.數(shù)據(jù)與程序依賴程度高 8.下列敘述中不正確的是（）。 答案:C A.命令關(guān)鍵字不能是全角字符 B.在命令窗口中，命令關(guān)鍵字可以只輸入前四個字符 C.在“文件”菜單中選擇“關(guān)閉”可以退出Visual Foxpro D.在項目管理器中可以創(chuàng)建菜單文件 9.在“選項”對話框的“文件位置”選項卡中不可以設(shè)置（）。案:C A.臨時文件目錄 B.默認(rèn)目錄 C.日期和時間的顯示格式 D.搜索路徑 10.創(chuàng)建表時字段名默認(rèn)的數(shù)據(jù)類型是（）。 答案:D A.數(shù)值型 B.日期型 精心收集 精心編輯 精致閱讀 如需請下載！ 答 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 C.邏輯型 D.字符型 11.在數(shù)據(jù)工作期窗口中不可以（）。 答案:A A.創(chuàng)建表文件 B.關(guān)閉已打開的表 C.打開表文件 D.瀏覽已打開的表 12.項目管理器中的“數(shù)據(jù)”選項卡不可用于顯示和管理（）。 答案:A A.報表 B.數(shù)據(jù)庫 C.自由表 D.查詢 13.數(shù)據(jù)庫具有（）、最小冗余度、較高的數(shù)據(jù)獨立性和數(shù)據(jù)統(tǒng)一管理和控制的特點。 答案:A A.數(shù)據(jù)結(jié)構(gòu)化 B.較高的數(shù)據(jù)模塊化 C.較高的程序結(jié)構(gòu)化 D.較高的程序標(biāo)準(zhǔn)化 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 14.下列關(guān)于數(shù)據(jù)庫系統(tǒng)的敘述中，正確的是（）。 答案:A A.數(shù)據(jù)庫系統(tǒng)減少了數(shù)據(jù)冗余 B.數(shù)據(jù)庫系統(tǒng)中數(shù)據(jù)的一致性是指數(shù)據(jù)類型一致 C.數(shù)據(jù)庫系統(tǒng)避免了一切冗余 D.數(shù)據(jù)庫系統(tǒng)比文件系統(tǒng)能管理更多的數(shù)據(jù) 15.數(shù)據(jù)模型由數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)操作和（）三個要素組成。案:C A.獨立性約束 B.共享性約束 C.完整性約束 D.安全性約束 16.描述數(shù)據(jù)庫中全體數(shù)據(jù)的全局邏輯結(jié)構(gòu)和特征的是（）。案:D A.外模式 B.內(nèi)模式 C.存儲模式 D.概念模式 17.不能在（）中創(chuàng)建一個程序文件。 答案:C A.“文件”/“新建” 精心收集 精心編輯 精致閱讀 如需請下載！ 答答 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 B.項目管理器 C.數(shù)據(jù)工作期 D.命令窗口 18.用二維表格來表示實體之間聯(lián)系的模型稱為（）。 答案:C A.層次模型 B.網(wǎng)狀模型 C.關(guān)系模型 D.概念模型 19.關(guān)系表中的每一行稱為一個（）。 答案:A A.元組 B.字段 C.屬性 D.碼 20.下列關(guān)于關(guān)系模型的說法正確的是（）。 答案:B A.當(dāng)需要索引時列的次序非常重要 B.列的次序無關(guān)緊要 C.關(guān)鍵字必須指定為第一列 D.列的次序非常重要 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 21.Visual Foxpro項目管理器的“文檔”選項卡不包含（）。 答案:B A.表單 B.程序 C.標(biāo)簽 D.報表 22.Visual Foxpro項目管理器的“運行”按鈕可以執(zhí)行（案:C A.查詢、標(biāo)簽或表單 B.程序、表單或標(biāo)簽 C.查詢、表單或程序 D.標(biāo)簽、查詢或程序 第三章選擇題： 1.有如下賦值語句，合法的表達(dá)式是（）。 X=MONTH(DATE()) Y=“月” 答案:A A.STR(X)-Y B.X+Y C.X-STR(Y) D.LEFT(X,2)+Y 精心收集 精心編輯 精致閱讀 如需請下載！ 文件。答） 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 2.下列表達(dá)式中，表達(dá)式返回結(jié)果為.T.的是（）。 答案:A A.[亞運會]$“2010年廣州亞運會” B.TYPE(“12/25/10”)=“d” C.ROUND(12.66,0)=INT(12.66) D.LEN(STR(6))=6 3.下列函數(shù)返回值為數(shù)值型的是（）。 A.CTOD() B.STR() C.DATE() D.SQRT() 4.下列函數(shù)返回值為日期型的是（）。 A.CTOD() B.DTOC() C.ROUND() D.TYPE() 5.下列表達(dá)式中，結(jié)果為.T.的是（）。 A.LEN(“123”)=LEN(SPACE(3)) B.INT(5/3)=5/3 C.TYPE(“12/25/10”)=“d” 精心收集 精心編輯 精致閱讀 答案:D 答案:A 答案:A 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 D.ROUND(12.66,0)=INT(12.66) 6.設(shè)A=“123”，B=“234”，則下列表達(dá)式的運算結(jié)果為.F.的是（）。 答案:C A.NOT A=B OR B$“13579” B.NOT A$“ABC” AND A<>B C.NOT A<>B D.NOT A>=B 7.已知A=“.T.”，B=A，則執(zhí)行下行命令的結(jié)果是（）。 ? TYPE(“B”),TYPE(B)答案:B A.C C B.C L C.L C D.L L 8.表達(dá)式“INT(5.27*2)%ROUND(3.56,0)”的值是（）。 答案:C A.0 B.1 C.2 D.3 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 9.設(shè)數(shù)值型變量M是3的倍數(shù)，則以下（）表達(dá)式值為.T.。 答案:B A.MOD(M,3)=1 B.INT(M/3)=M/3 C.M%3=1 D.EMP(M,3)=1 10.下列表達(dá)式結(jié)果為數(shù)值型的是（）。 答案:A A.MONTH({^2010/12/25}) B.SPACE(5)-SPACE(3) C.1+1=2 D.LEFT(“20101225”,3) 11.已知變量X的值為.T.，變量Y和Z的值均為.F.，則下列表達(dá)式值為.T.的是（）。 答案:B A.NOT X AND Y OR Z B.X OR NOT Z AND Y C.Z AND X OR Y D.Y AND Z OR NOT X 12.設(shè)X=“0.25E2”，Y=“0.25E4”，則表達(dá)式VAL(Y)+VAL(X)的值為（）。 答案:D A.0.2525 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 B.0.25E20.25E4 C.0.50 D.2525.00 13.有如下賦值語句，表達(dá)式結(jié)果為“VFP考試”的是（）。 A=“等級考試” B=“VFP” 答案:A A.B-SUBSTR(A,5,4) B.B+SUBSTR(A,3,2) C.B+RIGHT(A,2) D.B-LEFT(A,2) 14.下列表達(dá)式結(jié)果為.F.的是（）。 答案:A A.AT(“VFP”,“BCD”)<0 B.“國家”$“中國是一個多民族的國家” C.ROUND(12.567,0)>12 D.LEN(“數(shù)據(jù)庫”)=LEN(SPACE(6)) 15.下列表達(dá)式結(jié)果不是邏輯型的是（）。 答案:B A.FOUND() B.CTOD('01/01/96') C.EMPTY(5) 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 D.BOF() 16.下列表達(dá)式結(jié)果為數(shù)值型的是（）。 答案:D A.TYPE(“TIME()”) B.CTOD(DTOC(DATE())) C.DATE() D.MONTH({^2011/06/11}) 17.如果變量D=[06/11/2011]，命令 ?TYPE(D)的結(jié)果為（）。 答案:B A.C B.N C.D D.U 18.設(shè)A=“123”，B=“234”，則下列表達(dá)式的運算結(jié)果為.F.的是（）。 答案:C A.NOT A=B OR B$“13579” B.NOT A$“ABC” AND A<>B C.NOT A<>B D.NOT A>=B 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 19.已知 A=“12”，B=“10”，C=20，下列表達(dá)式中正確的是（）。 答案:A A.A+B B.B*C C.A+&B D.B-C 20.下列表達(dá)式中錯誤的是（）。 答案:C A.{^2011-06-11}-20 B.{^2011-06-11}+20 C.{^2011/06/11}+{^2011/06/01} D.{^2011/06/11}-{^2011/06/01} 21.設(shè)N=“123.45”，表達(dá)式 10+&N 的值是（）。 A.133.45 B.123.45 C.123.4510 D.10123.45 22.結(jié)果為.T.的表達(dá)式是（）。 答案:A A.“abc” $ “abdabcabd” B.“abc” $ “abdcabd” 精心收集 精心編輯 精致閱讀 如需請下載！答案:A 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 C.“abcde” $ “abc” D.“ABC” $ “abc” 23.表達(dá)式 2*4^2+3*4/2+2^3 值是（）。 答案:C A.64 B.49 C.46 D.30 第四章 選擇題 1.已知STU.DBF是記錄數(shù)為 0 的數(shù)據(jù)表，執(zhí)行下列命令的結(jié)果是（）。 USE STU ? EOF(),BOF()答案:C A..T..F.B..F..F.C..T..T.D..F..T.2.參照完整性的規(guī)則不包括（）。 答案:D A.刪除規(guī)則 B.插入規(guī)則 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 C.更新規(guī)則 D.檢索規(guī)則 3.在Visual Foxpro中，建立數(shù)據(jù)表時，將某字段值限制在0-100之間的這種約束屬于（）。 答案:A A.域完整性約束 B.實體完整性約束 C.參照完整性約束 D.視圖完整性約束 4.Visual Foxpro參照完整性規(guī)則中的更新規(guī)則不包括（）。 答案:B A.級聯(lián) B.觸發(fā) C.限制 D.忽略 5.設(shè)置兩個數(shù)據(jù)表之間的數(shù)據(jù)參照完整性時要求這兩個數(shù)據(jù)表是（）。 答案:A A.同一個數(shù)據(jù)庫中的兩個表 B.兩個自由表 C.一個自由表和一個數(shù)據(jù)庫表 D.沒有限制 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 6.在數(shù)據(jù)庫設(shè)計器中，建立兩個表之間的一對多聯(lián)系要求（）。 答案:A A.父表建立主索引或候選索引，子表建立普通索引 B.父表建立主索引，子表建立普通索引或候選索引 C.父表建立普通索引，子表建立主索引或候選索引 D.父表建立普通索引，子表建立主索引或普通索引 7.若某一數(shù)據(jù)表中的某字段已包含有重復(fù)數(shù)據(jù)，則在該字段上能夠建立（）索引。 答案:D A.候選索引或普通索引 B.主索引或唯一索引 C.主索引或候選索引 D.普通索引或唯一索引 8.在自由表設(shè)計器中能夠建立（）。 答案:C A.候選索引、主索引或普通索引 B.主索引、普通索引或唯一索引 C.唯一索引、普通索引或候選索引 D.唯一索引、主索引或候選索引 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 9.對姓名(字符型)和性別(字符型)兩個字段進(jìn)行組合索引，索引表達(dá)式是（）。 答案:D A.姓名+STR(性別) B.STR(姓名)+性別 C.STR(姓名)+STR(性別) D.姓名+性別 10.在Visual FoxPro中，建立索引的作用之一是（）。 答案:D A.提高修改速度 B.節(jié)省存儲空間 C.提高更新速度 D.提高檢索速度 11.某數(shù)據(jù)表中共有10條記錄，若當(dāng)前記錄號為7，執(zhí)行命令DISPLAY NEXT 4 后，再調(diào)用函數(shù)EOF()的返回值為（）。 答案:C A.9 B.10 C..F.D..T.12.若TABLE1.DBF有10條記錄，執(zhí)行下列命令序列后，顯示結(jié)果為 精心收集 精心編輯 精致閱讀 如需請下載！ 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 （）。 USE TABLE1 LIST SKIP-3 ? RECNO()答案:A A.8 B.7 C.10 D.11 13.打開某個記錄數(shù)為 0 的數(shù)據(jù)表，函數(shù)EOF()的返回值（案:C A.0 B..F.C..T.D.1 14.打開某個記錄數(shù)為 0 的數(shù)據(jù)表，函數(shù)BOF()的返回值（案:C A.0 B..F.C..T.精心收集 精心編輯 精致閱讀 如需請下載！ 答 答）） 演講稿 工作總結(jié) 調(diào)研報告 講話稿 事跡材料 心得體會 策劃方案 下列關(guān)于表 精心收集 精心編輯 精致閱讀 如需請下載！ D.1 15. 第一部分:程序入門 一級 一、選擇結(jié)構(gòu)（IF-ELSE-ENDIF）語句格式：IF〈條件〉 〈語句序列1〉 [ ELSE 〈語句序列2〉] ENDIF 說明：IF和ENDIF必須配對使用，而ELSE可選。三個語句應(yīng)各占一行。若省略ELSE子句，條件為真時，則執(zhí)行〈語句序列1〉，然后再執(zhí)行ENDIF后的語句；否則，若條件為假，即執(zhí)行ENDIF后的語句。 二、循環(huán)結(jié)構(gòu) 1、條件循環(huán)： 語句格式： DO WHILE 〈條件表達(dá)式〉 〈語句序列1〉 [ LOOP] 〈語句序列2〉 [ EXIT ] 〈語句序列3 〉 ENDDO 說明：系統(tǒng)執(zhí)行該語句時，先測試條件表達(dá)式的值，若為真，則執(zhí)行循環(huán)體，在循環(huán)體中修改循環(huán)條件，直到條件為假時，脫離循環(huán)，執(zhí)行循環(huán)體ENDDO后的語句。若遇到LOOP語句，則直接返回執(zhí)行DO語句，測試條件以決定是否繼續(xù)循環(huán)。若執(zhí)行循環(huán)體時遇到EXIT語句，則不執(zhí)行下面的語句，直接跳出循環(huán)，執(zhí)行ENDDO后面的語句。 注意：DO WHILE 必須和ENDDO配合使用，兩者缺一不可，DO WHILE語句前一定要有條件變量的初始值。 2、計數(shù)循環(huán) FOR 〈循環(huán)變量〉=〈循環(huán)初值〉TO 〈循環(huán)終值〉[STEP〈步長〉] 〈語句序列1〉 [LOOP] 〈語句序列2〉 [EXIT] 〈語句序列3〉 ENDFOR/NEXT 說明：使用和DO WHILE 基本一致，注意步長和ENDFOR語句。 三、程序舉例： A.Eg:求出[10,100]內(nèi)所有能被2整除的整數(shù)的和(2530)，個數(shù)(46)set talk off clear 簡單整除，求和求個數(shù)。n=0 &&設(shè)置計數(shù)變量 s=0 &&設(shè)置求和變量 I=10 &&設(shè)置循環(huán)變量 Do while I<=100 &&循環(huán)開始及結(jié)束 if mod(i,2)=0 &&判斷整除條件 n=n+1 &&滿足條件計數(shù)變量加1 s=s+i &&滿足條件，求和變量增加 endif &&結(jié)束條件 I=I+1 &&循環(huán)變量累加 Enddo &&此句使循環(huán)回到 do while 處 ? n,s &&輸出結(jié)果 set talk on return A1.求出[10,100]內(nèi)所有能被7和9中至少一個數(shù)整除的整數(shù)的個數(shù)(22),和(1250).A2.求出[10,100]內(nèi)所有能被7但不能被9整除的整數(shù)的個數(shù)(12),(665) A3.求出[10,100]內(nèi)所有能被7和9中的一個且只有一個數(shù)整除的整數(shù)的個數(shù)(21),(1187) A4.編寫程序，求出1~7000以內(nèi)能被3或者7整除的數(shù)的個數(shù)(3000)。A5.編寫程序，求[1，500]既能被6整除又能被7整除的數(shù)之和。(2772)A6.求前[1,100]內(nèi)能被6或8整除的所有自然數(shù)的平方根的和（將第1位小數(shù)四舍五入，結(jié)果只保留整數(shù)）。（162） A7.將大于1000且能被3和5中至少一個數(shù)整除的所有整數(shù)按從小到大順序排列后，求前面20個數(shù)之和。(20465)set talk off clear k=1 s=0 &&設(shè)置求和變量 x=1000 do while k<=20 x=x+1 if mod(x,3)=0 or mod(x,5)=0 s=s+x &&滿足條件，求和變量增加 k=k+1 endif enddo ? s set talk on return A9 將小于2000且能被4和6中至少一個數(shù)整除的所有整數(shù)按從小到大順序排列后，求最后20個數(shù)之和。(39390)B類: 簡單余數(shù) Eg: 編寫程序，求出100到500之間同時滿足除5余4和除7余2條件的數(shù)的個數(shù)及和。(12)(3678)Set talk off S=0 N=0 I=100 Do while I<=500 If mod(I,5)=4 and mod(I,7)=2 S=s+I N=n+1 Endif I=I+1 Enddo ?n,s set talk on return B!.編寫程序，求在10~1000之間所有能被4除余2，被7除余3，被9除余5的數(shù)之和。2000 B2.求出[200,800]內(nèi)被除3余1并且被除5余3的整數(shù)的和。20020 C類:退出控制 Eg: 編寫程序，求出1到6000之間的能被5整除的前若干個偶數(shù)之和，當(dāng)和值大于650時退出并輸出和值。660 Set talk off S=0 For I=1 to 6000 If mod(I,5)=0 and mod(I,2)=0 S=s+I Endif If s>650 Exit Endif Endf ?s C1: 編寫程序，求出1到5000之間的能被7整除的前若干個數(shù)之和，當(dāng)和值大于等于1500時退出并輸出和值。1617 C2: 編寫程序，已知：S=2+4+8+16+32+?，求S不大于980的最大值。510 Set talk off S=0 For I =1 to 1000 X=2*i S=s+x ?x,s If s>980 Exit Endif Endf ?s-x C3: 編寫程序，已知：S=1+3+5+7+9+?，求S不大于1000的最大值。961 C4: 編寫程序，已知：S=2+4+8+16+32+?，求S不大于9000的最大值。8190 C5.已知數(shù)列：1,2,4,7,11,16,?，其規(guī)律是相鄰兩項之差依次是1,2,3,4,5,?。試求出此數(shù)列中大于5000的最小的項。5051 C6．求出50以內(nèi)最大的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的倒數(shù)之和小于3.5。（18）set talk off clear s=0 for n=1 to 50 s=s+1/n &&先求倒數(shù)再求和 if s>=3.5 exit &&退出循環(huán) endif endfor ? n-1 &&為什么？ return C7: 求出50以內(nèi)最小的自然數(shù)n，使得從1開始的連續(xù)n個自然數(shù)的倒數(shù)之和大于3.6（21）C8: 求出50以內(nèi)最小的自然數(shù)n,使得從1開始的連續(xù)n個自然數(shù)的立方和小于20000(16) C9.求出50以內(nèi)最大的自然數(shù)n，使得從101開始的連續(xù)n個奇數(shù)之和小于2000。(17)set talk off clear s=0 for n=1 to 50 a=99+2*n s=s+a if s>2000 exit endif endfor ? n-1 return C10.求出100以內(nèi)使得算式1/(1*2)+1/(2*3)+?+1/(n*(n+1))的值小于0.952的最大的自然數(shù)n。19 C11.某國在2000年時人口總數(shù)為1億，若以每年3%的速度遞增，試求出至少要到哪一年該國人口總數(shù)才會翻一翻。2024 set talk off clear s=1 for n=2001 to 2100 s=s*1.03 if s=2 &&應(yīng)改為 if s>=2 loop &&應(yīng)改為 exit endif endfor ? n set talk on return C12.某國今年的人口總數(shù)為1億，若以每年4%的速度遞增，試求出至少要再過幾年該國人口總數(shù)才會翻一翻。18 C13.一球從100米高處落至平地，并且連續(xù)多次再反彈再落下，假設(shè)每次反彈的高度都是前一高度的3/4倍，試求出最小的自然數(shù)n，使得此球從開始下落至第n次著地時在垂直方向所經(jīng)過的總路程超過678米。13 set talk off clear h=100 s=0 應(yīng)改為: s=100 for n=2 to 100 h=h*3/4 s=s+h 應(yīng)改為: s=s+2*h if s>678 exit endif endfor ? n set talk on return C14.一球從100米高處落至平地，并且連續(xù)多次再反彈再落下，假設(shè)每次反彈的高度都是前一高度的3/4倍，試求出最大的自然數(shù)n，使得此球從開始下落至第n次著地時在垂直方向所經(jīng)過的總路程不超過590米。6 第二部分:算法舉例 D類:多循環(huán)控制 窮舉法：窮舉法就是將所有可能的方案都一一測試，找出其中符合指定要求的。 Eg.把一張一元鈔票,換成一分、二分和五分硬幣,每種至少1枚,問有多少種方案?(461) set talk off clea n=0 for yi=1 to 100 && 1分的最少1枚，最多100枚。for er=1 to 50 for wu=1 to 20 if yi+er*2+wu*5=100 n=n+1 endif endfor endfor endfor ? n set talk on return d1.把一張一元鈔票,換成一分、二分和五分硬幣,每種至少1枚,問兌換后硬幣總數(shù)最多的與硬幣總數(shù)最少的枚數(shù)之差是多少?(73)d2.把一張一元鈔票,換成一分、二分和五分硬幣,每種至少1枚,問兌換后其中 二分的硬幣恰有20枚的方案共有多少種?(11)d3.有60個學(xué)生一起買小吃，共花錢100元，其中每個大學(xué)生花3元，每個中學(xué)生花2元，每個小學(xué)生花1元，問大、中、小學(xué)生的人數(shù)分配共有多少種 不同的解（去掉某類學(xué)生為0的）？ 19 D4.有5羊4犬3雞2兔值錢1496，4羊2犬6雞3兔值錢1175，3羊1犬7雞5兔值錢958，2羊3犬5雞1兔值錢861，求兔值多少錢？(雞13, 兔29 犬121, 羊177)(修改并調(diào)試下列程序) set talk off for y=1 to 300 for c=1 to 400 for j=1 to 500 for t=1 to 400 if 5*y+4*c+3*j+2*t=1496 and 4*y+2*c+6*j+3*t=1175; 3*y+1*c+7*j+5*t=958 and 2*y+3*c+5*j+1*t=861 ? y,c,j,t endif endf endf endf endf set talk on E類:簡單位數(shù)運算 Eg:編寫程序，求三位數(shù)的奇數(shù)中，所有各位數(shù)字之和是15的倍數(shù)的數(shù)的和。19731 Set talk off S=0 For I=100 to 999 A=int(I/100)B=int(mod(I,100)/10)C=mod(I,10)If mod(I,2)=1 and mod(a+b+c,15)=0 S=s+I Endif Endf ?s e1: 編寫程序，求三位數(shù)的奇數(shù)中，所有各位數(shù)字之和是12的倍數(shù)的數(shù)的個數(shù)。38 e2: 編寫程序，求三位數(shù)的偶數(shù)中，所有各位數(shù)字之和是15的倍數(shù)的數(shù)的個數(shù)。34 e3: 編寫程序，計算在0~50的范圍內(nèi)有多少個數(shù)，其每位數(shù)的乘積小于每位數(shù)的和。26 e4: 編寫程序，計算1000以內(nèi)有多少個這樣的數(shù)，其個位數(shù)為6且該數(shù)能被9整除。11 e5: 編寫程序，統(tǒng)計200~400之間的所有滿足三個數(shù)字之積為42，三個數(shù)字之和為12的數(shù)的個數(shù) 4 e6: 編寫程序，求四位數(shù)的偶數(shù)中，所有各位數(shù)字之和是24的倍數(shù)的數(shù)的個數(shù)。187 set talk off n=0 for I=1000 to 9999 a=int(i/1000)b=int(mod(I,1000)/100)c=int(mod(I,100)/10)d=mod(I,10)if mod(I,2)=0 and mod(a+b+c+d,24)=0 n=n+1 endif endf ?n e7: 編寫程序，求四位數(shù)的奇數(shù)中，所有各位數(shù)字之積（且不為0）是125的倍數(shù)的數(shù)的和。161095 e8: 編寫程序，求在四位數(shù)的偶數(shù)中，所有各位數(shù)字之積（且不為0）是18的倍數(shù)的數(shù)的和。8638596 e9: 編寫程序，計算100－10000以內(nèi)個位上的數(shù)小于百位上的數(shù)的所有數(shù)之和。23314500(改錯并調(diào)試下列程序)set talk off clea n=100 for i=100 to 10000 bw=mod(i,1000)gw=mod(i,10)if gw F類:回文數(shù) Eg:所謂回文數(shù)是從左至右與從右至左讀起來都是一樣的數(shù)字，如：121是一個回文數(shù)。編寫程序，求出100-200的范圍內(nèi)所有回文數(shù)的和。1460 Set talk off S=0 For I=100 to 200 A=int(i/100)B=int(mod(I,100)/10)c=mod(I,10)If a=c S=s+i endif endf ?s f1: 所謂回文數(shù)是從左至右與從右至左讀起來都是一樣的數(shù)字，如：121是一個回文數(shù)。編寫程序，求在100-900的范圍內(nèi)所有能被3整除的回文數(shù)的個數(shù)。26 f2: 所謂回文數(shù)是從左至右或從右至左讀起來都是一樣的數(shù)字，如：121是一個回文數(shù)。編寫程序，計算從1981年開始到3000年為止，共有多少個年號是回文數(shù)年號。11 f3: 求出[123,456]內(nèi)恰好有兩個數(shù)字相同的所有整數(shù)之和。26406(改正并調(diào)試下列程序)set talk off clear s=0 for x=123 to 456 a=int(x/100)b=int((x-a*100)/10)c=mod(x,1)if a=b and a!=c or a!=b and a=c s=s+x endif endfor ? s set talk on return G 類:水仙花數(shù) Eg: “水仙花數(shù)”是指這樣的數(shù)，其各位數(shù)字的立方和等于該數(shù)本身。編寫程序求100至400的范圍內(nèi)有多少個水仙花數(shù)。3 Set talk off n=0 For I=100 to 400 A=int(i/100)B=int(mod(I,100)/10)c=mod(I,10)If a^3+b^3+c^3=i N=n+1 endif endf ?n g1: “水仙花數(shù)”是指這樣的數(shù)，其各位數(shù)字的立方和等于該數(shù)本身。編寫程序求100至999的范圍內(nèi)有多少個水仙花數(shù)。4 g2: “水仙花數(shù)”是指這樣的數(shù)，其各位數(shù)字的立方和等于該數(shù)本身。編寫程序，計算從100年開始到2000年為止，共有多少個年號是水仙花數(shù)年號。4 g3: 設(shè)某四位數(shù)的各位數(shù)字的平方和等于198，問滿足這種條件的最大數(shù)和最小數(shù)之和是多少？12749(改正并調(diào)試下列程序)set talk off clea min1=1000 max1=1000 for x=1000 to 9999 a=int(x/1000)b=int((x-a*1000)/100)c=int(x/100)/10 d=mod(x,10)if a*a+b*b+c*c+d*d=198 if max1 H類:位數(shù)及多條件運算 Eg: 編寫程序，求滿足下列條件的所有四位數(shù)ABCD的個數(shù)，該四位數(shù)是8的倍數(shù)，且A+B=B+C，即第1位數(shù)加上第2位數(shù)等于第2位數(shù)加上第3位數(shù)。110 set talk off n=0 for I=1000 to 9999 a=int(i/1000)b=int(mod(I,1000)/100)c=int(mod(I,100)/10)d=mod(I,10)if mod(I,8)=0 and a+b=b+c n=n+1 endif endf ?n h1: 編寫程序，求滿足下列條件的所有四位數(shù)ABCD的個數(shù)，該四位數(shù)是18的倍數(shù)，且C=7，A+B=C+D，即第1位數(shù)加上第2位數(shù)等于第3位數(shù)加上第4位數(shù)。9 h2: 編寫程序，統(tǒng)計1000~9999之間的所有滿足以下條件的四位數(shù)的個數(shù)。該四位數(shù)是一個完全平方數(shù)，且其第1位與第3位數(shù)字之和為10，第2位與第4位數(shù)字之積為12。2 set talk off n=0 for I=1000 to 9999 a=int(i/1000)b=int(mod(I,1000)/100)c=int(mod(I,100)/10)d=mod(I,10)if a+c=10 and b*d= 12 and int(sqrt(i))=sqrt(i)&&注意判定完全平方數(shù) n=n+1 ? i endif endf ?n h3: 編寫程序，統(tǒng)計1000~9999之間的所有滿足以下條件的四位數(shù)的個數(shù)。該數(shù)是一個完全平方數(shù)，且其第1、2位數(shù)字之和為10，第3、4位數(shù)字之積為18。1 h4: 求滿足條件A*B=54321且使A+B的值最小的自然數(shù)對A、B中較大的一個數(shù)。（提示：設(shè)A<=B，當(dāng)A越大時A+B越?。?53 set talk off clear c=54321 k=int(sqrt(c))for a=1 to k b=int(c/a)if a*b=c max=b endif endfor ? max set talk on return h5: 求滿足條件A*B=54321的所有自然數(shù)對A、B對應(yīng)的A+B的最小值。（提示：設(shè)A<=B，當(dāng)A越大時A+B越小）1010 h6: 設(shè)a=234，b=569，求a/b的精確值中小數(shù)點后前40位數(shù)字中數(shù)字8的個數(shù)。（提示：基于人工計算的思想）6 set talk off clear a=234 b=569 n=0 for k=1 to 40 a=a*10 q=int(a/b)if q=8 n=n+1 endif a=mod(a,b) &&余數(shù)是下次運算時的被除數(shù) endfor ? n set talk on return h7: 求出將十進(jìn)制整數(shù)98765432等值轉(zhuǎn)換為二進(jìn)制形式表示后其中數(shù)字0的個數(shù)。（提示：模擬人工計算的“2除取余”法）14 h8: 求出將十進(jìn)制整數(shù)99887766554等值轉(zhuǎn)換為十六進(jìn)制形式表示后其中字母C的個數(shù)。（提示：模擬人工計算的“16除取余”法）2 h9: 對自然數(shù)A、B、C，若A if a*a+b*b=c*c and a &&排除A、B交換的情況。 n=n+1 endif endfor ? n set talk on return h10: 對自然數(shù)A、B、C，若A Eg: 編寫程序，求一正整數(shù)等差數(shù)列的前三項的和，該數(shù)列前四項之和是 26、之積是880。15 clea set talk off for a1=1 to 7 for d=1 to 7 if a1+(a1+d)+(a1+2*d)+(a1+3*d)=26 and a1*(a1+d)*(a1+2*d)*(a1+3*d)=880 ?a1,d ?a1+(a1+d)+(a1+2*d)endif endf endf i1: 編寫程序，求一正整數(shù)等差數(shù)列的前五項的立方和，該數(shù)列前四項之和是 26、之積是880。4720 i2: 已知數(shù)列：1、2、4、7、10、15、?，其特點是：相鄰兩項之差恰好構(gòu)成自然數(shù)列：1、2、3、4、5、?。求此數(shù)列的前100項中能被4整除的項的個數(shù)。25(改正并調(diào)試下列程序)set talk off clear a=1 k=0 for n=1 to 100 a=a+n if mod(n,4)=0 k=k+1 endif endfor ? k set talk on return J類:完數(shù) Eg: 一個數(shù)如果剛好與它所有的因子之和相等，則稱該數(shù)為一個“完數(shù)”，如：6=1+2+3，則6就是一個完數(shù)。求出200到500之間所有的完數(shù)之和。496 set talk off clea s=0 for i=200 to 500 k=0 && k是因子的和變量 for a=1 to i-1 && a是I的真因子 if mod(i,a)=0 k=k+a endif endf if k=I && I的因子求完后，看因子和是否等于原來的數(shù)i ?I &&顯示有幾個完數(shù) s=s+i endif endf ?s j1: 一個數(shù)如果剛好與它所有的因子之和相等，則稱該數(shù)為一個“完數(shù)”，如：6=1+2+3，則6就是一個完數(shù)。求出1000以內(nèi)的完數(shù)的個數(shù)。3 j2: 一個數(shù)如果剛好與小于它的所有因子之和相等，則稱該數(shù)為一個“完數(shù)”，求出1000以內(nèi)的所有完數(shù)的平方和。246836 K類：遞推 Eg: 已知一個數(shù)列的前3個數(shù)為0，0，1，以后每個數(shù)為前3個數(shù)的和，編程序求此數(shù)列的第36個數(shù)。334745777 set talk off clea f1=0 f2=0 f3=1 for i=4 to 36 f4=f1+f2+f3 f1=f2 f2=f3 f3=f4 endf ?f4 k1: 已知一個數(shù)列的前3個數(shù)為1，2，3，以后每個數(shù)為前3個數(shù)的和，編程序求此數(shù)列的第20項 101902 k2: 已知一個數(shù)列的前3個數(shù)為3，4，5，以后每個數(shù)為前3個數(shù)的和，編程序求此數(shù)列的第33項.537346739 k3: 設(shè)一數(shù)列{f(n)}：f(1)=1，當(dāng)n>1時f(n)=1/(f(n-1)+1)。試求出此數(shù)列的前20項中大于0.618的項的數(shù)目。15 (改正并調(diào)試下列程序)set talk off clear f=1.00000000 n=0 for k=2 to 20 f=1/f+1 if f>0.618 n=n+1 endif * ? k,f,n endfor ? n set talk on return k4: 設(shè)有用26個字母表示的26個表達(dá)式：a=1，b=1/(a+1)，c=1/(b+2)，?，z=1/(y+25)。試求出這26個字母中其值小于0.1的字母個數(shù)。16(改正并調(diào)試下列程序)set talk off clear lett=1 n=0 for k=1 to 26 lett=1/(lett+k)if lett<0.1 n=n+1 endif endfor ? n set talk on return k5: 已知數(shù)列{f(n)}：f(1)=1，f(2)=4，當(dāng)n=3,4,5,?時，f(n)=3*f(n-1)-f(n-2)。試求出100以內(nèi)最大的自然數(shù)n使得此數(shù)列的前n項之和首次大于75364321。19(改正并調(diào)試下列程序)set talk off clear dimension f(100)&& 遞推可能用數(shù)組的方法解決。f(1)=1 f(2)=4 s=0 for n=3 to 100 f(n)=3*f(n-1)-f(n-2)s=s+f(n)if s<75364321 loop endif endfor ? n set talk on return L類：因子 eg: 已知24有8個正整數(shù)因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子個數(shù)8整除。求[100,300]之間能被其因子數(shù)目整除的數(shù)的個數(shù)。19 set talk off clea c=0 && c是累計個數(shù)的。for n=100 to 300 s=0 for i=1 to n && I是n的所有因子。if mod(n,i)=0 s=s+1 && s是某個n的因子總個數(shù) endif endfor if mod(n,s)=0 ?n c=c+1 endif endfor ? c set talk on return l1: 已知24有8個正整數(shù)因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子個數(shù)8整除。求[200,300]之間能被其因子數(shù)目整除的數(shù)中且能被3整除的數(shù)之和 1713 l2: 求出45678的所有非平凡因子（即除1和它本身以外的約數(shù)）中奇數(shù)的個數(shù)。7(改正并調(diào)試下列程序)set talk off clear a=45678 n=0 for b=3 to a step 2 if mod(b,a)=0 n=n+1 endif endfor ? b set talk on return M類：最大公約數(shù) Eg: 求出179869和196037的最大公約數(shù)。2021 set talk off clear a=179869 b=196037 c=0 for d=2 to a if mod(a,d)=0 and mod(b,d)=0 c=max(c,d)?c endif endfor set talk on return m1: 求出20677和42067的最大公約數(shù) 713 N類：最小公倍數(shù) Eg: 求出9269和8671的最小公倍數(shù)。[ 算法提示：a與b的最小公倍數(shù)是a的倍數(shù)中第1個被b整除的數(shù) ] 268801 set talk off clear a=9269 b=8671 for k=a to a*b step a &&為什么？ if mod(k,b)=0 exit &&為什么保證了最小公倍數(shù)。endif endfor ? k set talk on return O類：素數(shù) 素數(shù)函數(shù)： function p para x flag=1 for k=2 to int(sqrt(x)) if mod(x,k)=0 flag=0 exit endi endf retu flag Eg : 編寫程序，求出3到200之間的所有非偶數(shù)非素數(shù)的數(shù)之和。5774 clea set talk off s=0 for i=3 to 200 if p(i)=0 and mod(i,2)=1 s=s+i endif endf ?s function p para x flag=1 for k=2 to int(sqrt(x)) if mod(x,k)=0 flag=0 exit endi endf retu flag o1: 編寫程序，求出3到100之間的所有非偶數(shù)非素數(shù)的數(shù)的個數(shù)。25 o2: 所謂素數(shù)是指這樣的自然數(shù)，除1和它本身外不再有其它因子。編寫程序，計算從1981年開始到3000年為止，我們將遇到多少個素數(shù)年號。131 o3: 梅森尼數(shù)是指能使2^n-1為素數(shù)的數(shù)n，求[1，21]范圍內(nèi)的梅森尼數(shù)的個數(shù)？14(改正并調(diào)試下列程序)set talk off clea n=0 s=2 for x=2 to 21 s=s*2 flag=1 for i=1 to int(sqrt(x))if mod(s-1,i)=0 flag=0 exit endif endfor if flag=0 n=n+1 endif endfor ? n return 完第二篇：VFP程序題
第三篇：vfp程序題總結(jié)
第四篇：二級VFP模擬選擇題（小編推薦）
第五篇：一級程序(教學(xué)用)VFP
![下載VFP讀程序選擇題[五篇]word格式文檔](http://static.xiexiebang.com/skin/default/images/icon_word.png){kind=icon}
點擊咨詢 