vfp复习程序Word下载.docx

1、 LOCATE FOR _ DISP IF BB=“00” EXIT ENDDO RETU二、运行程序题1、本程序运行后，输出结果是（ ） a=10 c=d b=11 a=c c=12 endif d=13 ?a if ba A）10 B）11 C）12 D）132、本程序是否有错 s=3.14*r*r r=6 圆面积=,s 3、本程序是否有错。 r=6 s=3.14*r*h,s4、运行下面程序，b值是多少？ a=10 if a5 b=a endifb A）5 B）10 C）a D）b 5、运行下面程序，b值是多少？ b=c otherwise b=5 endcase a=30 b=20 c=

2、10 do case case a=10 A）30 B）20 C）10 D）5 19. 下面这个程序，如果程序执行了Loop语句，下一步执行哪一句（ ） store 0 to i,s,t do while i100 i=i+1 s=s+i if int（i/2）=i/2 loop t=t+i enddo A）endif B）if int（i/2）=i/2 C）store 0 to i,s,t D）do while i0时,显示AAA.DBF的内容,当N USE AAA LIST ELSE USE BBB _ RETURN A） USE B） OPEN C） MODI FILE D） INDEX

3、 ON 43将变量N的值从0开始,逐次加2,加到98为止. N=0=98 N=N+2 N=+STR（N,3）A） LOOP B） EXIT C） ENDDO D） EOF 44任意输入20个数,找出最大数和最小数. INPUT TO X MA=X MI=X N=1 DO WHILE N=20 _ TO X IF MA N=N+1MA,MI A） INPUT B） ACCEPT C） WAIT D） FIELDS 45写出下面程序在键盘输入1234时的运行的结果。ClearInput “a=” to aP=str（a）B=len（p）Pp=” ”For i=1 to bP1=substr（p,I

4、,1）Pp=p1+ppEndfor?pp 46. 补充下列程序实现下图所示的结果。 CLEAR * DO WHILE I5 * * * J=1 * * * * * DO WHILE _ * * * * * * * I,27-I+J SAY* J=J+1 I=I+1 SET TALK ONA） J=1 B） J=1 C） J=2*1 D） J=5 ?X,Y 程序运算结果是_ A） 5 15 B） 3 25 C） 5 20 D） X 49本程序是求N!（N的阶乘）的值，留有一句未写，请选择一个答案。 _ FOR Y=1 TO N P=P*YA） P=P*X B）P=1 C）Y=1 D）Y=0 50

5、当X取值不同时，求Y的值，并完成如下程序。 Y=X+5 当8=X16 Y=IIF（X8,无意义,IIF（_,X+5,X*（X+2）+8）Y A）X= 16 B）X C）X=8 .AND. X=8 .OR. X=16 51现有两程序A.PRG，B.PRG，试分析执行后显示的内容。 *A.PRG M=1 N=2 DO BM=,M,N *B.PRG PRIVATE M M=3 N=4 执行DO A后，显示M=1,N=_。 A）2 B）7 C）4 D）3 53试写出程序执行后的结果: STORE 0 TO M FOR N=1 TO 8 M=M+N,M 结果为_.A）36 B）35 C）30 D）26

6、54下列程序运行结果是：（ ） set talk off clear store 0 to m,n do while m b=2*a if b2+3TF X的输出值是T 32.下列程序的输出结果是不是 AAA if 2*4=9AAABBB33.下面这段程序的结构是循环结构。 当前月份=month（date（） case inlist（当前月份,3,4,5） 季节=春 case inlist（当前月份,6,7,8）夏 case inlist（当前月份,9,10,11）秋 case inlist（当前月份,12,1,2）冬不可能34.下面这段程序的结构是顺序结构 s=0 for i=1 to 100s= endfor 四、程序题填空题 1 阅读下列程序： STORE 0 TO X，Y=4Y=+STR（Y，2） 这个程序执行后结果是_。 2 以下是从键盘输入10个实数,统计其中最大数的程序: INPUT“请输入第一个数:”TO X Y=X DO WHILE K=_ INPUT 请输入下一个数: TO X IF Y K=K+1最大数=,Y 3在当前盘当前目录下有一命令文件AA.PRG和MAIN.PRG,其内容如