VFP复习题.docx
- 文档编号:3850774
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:20
- 大小:20.36KB
VFP复习题.docx
《VFP复习题.docx》由会员分享,可在线阅读,更多相关《VFP复习题.docx(20页珍藏版)》请在冰豆网上搜索。
VFP复习题
数据库操作题
(一)CZT库结构为:
XH(C,10),XM(C,6),ZY(C,10),JSJ(N,3,0),YY(N,3,0),SX(N,3,0),ZF(N,3,0),BZ(M,10)
1、将“SX”在80以上的记录复制保存为“C:
\GZML\BF.DBF”;
2、填写字段“ZF”(ZF=JSJ+YY+SX);
3、将“马玲”的记录删除;
4、根据“JSJ”按降序排列,保存为“C:
\GZML\PX.DBF”;
5、在“杜礼彬”的“BZ”字段中填写“1999年获校二等奖学金”;
6、根据“ZY”建立单索引文件“C:
\GZML\SY.IDX”;
7、追加新记录,XM=“合计”,将“JSJ”、“YY”、“SX”求和。
(二)已知数据表CJ.DBF,其表结构为:
CJ.DBF((XH,C,10)、(XM,C,8)、(ZY,C,6)、(XB,C,2)、(CSRQ,D,8)、(YW,N,3)、(SX,N,3)、(YY,N,3))
请用结构化查询命令(SQL-SELECT),显示如下要求的记录:
(1)出生日期在81年以前的记录。
(2)按专业进行分组,并求出语文成绩累计值,结果按语文成绩累计值的升序排列。
(3)显示的字段有姓名、专业、语文成绩累计值。
(三)已有职工登记库ZGDJ.DBF,记录如下:
RECORD#XMXBZCJBGZHF
1王非女助教1500.T.
2刘华男工程师2500.F.
3周发男教授3000.T.
4李丽女讲师2200.F
请编写一简单程序,显示李丽的基本工资。
(四)已有职工登记库ZGDJ.DBF,记录如下:
RECORD#XMXBZCJBGZHF
1王非女助教1500.T.
2刘华男工程师2500.F.
3周发男教授3000.T.
4李丽女讲师2200.F
现编写一程序,计算最大基本工资的值。
USEZGDJ
MAX=JBGZ
N=RECCOUNT
FORI=2TON
GOi
IFMAX _______________ ENDIF ENDFOR ? "MAX=",MAX A)MAX=JBGZB)SKIPC)REC=RECNO()D)MAX=2500 (五)已有职工登记数据表ZGDJ.DBF,记录如下: RECORD#XMXBZCJBGZHF 1王非女助教1500.T. 2刘华男工程师2500.F. 3周发男教授3000.T. 4李丽女讲师2200.F 现编写一程序,显示刘华的姓名和职称。 (六)计算数据表G03.DBF中数学、英语、政治三字段的平均分,并追加一条空白记录,让该记录的学号字段值为“平均分”,英语字段值为表中原有记录该字段的平均值,并显示该记录的内容。 SETTALKOFF SELECT0 USEG03 AVERAGE数学,英语,政治TOA,B,C *********FOUND************ APPEND *********FOUND************ REPLACE英语WITHA REPLACE学号WITH'平均分' *********FOUND************ LIST USE SETTALKON RETURN (七)已有数据表b03.dbf,先通过结构复制生成一个具有学号、姓名、年龄和民族四个字段的空数据表b04.dbf,然后把b03.dbf中年龄小于20岁的相应数据添加到该数据表中,程序结束时关闭表。 1、本程序运行后,输出结果是(13) a=10c=d b=11a=c c=12endif d=13? a ifb>a 2、本程序是否有错,如果有错,是什么类型的错误()。 s=3.14*r*r r=6 ? "圆面积=",s A)本程序正确B)语法错误 C)逻辑(语序)错误D)该程序太大,超出2GB,无法运行 3、本程序是否有错,如果有错,是什么类型的错误()。 r=6 s=3.14*r*h ? "圆面积=",s A)本程序正确B)语法错误 C)逻辑(语序)错误D)该程序太大,超出2GB,无法运行 4、运行下面程序,b值是多少? B a=10 ifa>5 b=a endif ? b A)5B)10C)aD)b ? ? ? 5、运行下面程序,b值是多少? D b=c otherwise b=5 endcase ? b a=30 b=20 c=10 docase casea<10 b=a casea>=10 A)30B)20C)10D)5 6、下面这个程序,如果程序执行了Loop语句,下一步执行哪一句() store0toi,s,t dowhilei<100 i=i+1 s=s+i ifint(i/2)=i/2 loop endif t=t+i enddo 7、下面这个程序,S的最终值是(A),T的最终值是(B),i的最终值是(D) store0toi,s,t dowhilei<100 i=i+1 s=s+i ifint(i/2)=i/2 loop endif t=t+i enddo A)1至100的累加和B)1至100的奇数和 C)1至100的偶数和D)100 8、任意输入20个数,找出最大数和最小数. SETTALKOFF INPUTTOX MA=X MI=X N=1 DOWHILEN<=20 _____TOX IFMA MA=X ELSE IFMI>X MI=X ENDIF ENDIF N=N+1 ENDDO ? MA,MI RETU A)INPUTB)ACCEPTC)WAITD)FIELDS 10、*MAIN.PRG *DS.PRG A=1 B=1 DOWHILEA<=X B=B*A A=A+1 ENDDO X=B RETU SETTALKOFF M=9 N=9 X=M DODS C=X X=N DODS C=C/X ? "C",C SETTALKON RETU 程序MAIN.PRG的运行结果是_______. ? ? ? 11、 SETTALKOFF STORE0TOX,Y DOWHILE.T. X=X+1 Y=Y+X IFX>=5 EXIT ENDIF ENDDO ? X,Y RETURN 程序运算结果是__1,1_____ 12、编写一程序,求N! (N的阶乘)的值。 13、现有两程序A.PRG,B.PRG,试分析执行后显示的内容。 *A.PRG M=1 N=2 DOB ? "M=",M,"N=",N RETURN *B.PRG PRIVATEM M=3 N=4 RETURN 14、 *PROGRAMMAIN.PRG SETTALKOFF SETPROCEDURETOPROC123 PUBLICI,J I=1 DOPROC1 ? "I="+STR(I,2) J=1 K=1 DOPROC2 ? "J="+STR(J,2) ? "K="+STR(K,2) SETTALKON RETURN * PROCEDUREPROC1 I=I*2+1 RETURN * PROCEDUREPROC2 PRIVATEJ J=I*2+1 K=K*2+1 DOPROC3 RETURN * PROCEDUREPROC3 K=K*K RETURN * MAIN.PRG运行后的结果是: I=3 J=1 K=9 15、试写出程序执行后的结果: SETTALKOFF STORE0TOM FORN=1TO8 M=M+N ENDFOR ? "M=",M 结果为____36______. A)36 16、下列程序运行结果是: () settalkoff clear store0tom,n dowhilem<=10 m=m+1 ifmod(m,2)=1 loop else n=n+m endif enddo ? "n=",n return N=30 17、 *MAIN.PRG SETTALKOFF CLEAR X=5 Y=HS(X) ? "Y=",Y RETURN *HS.PRG FUNCHS PARAMETERSK IFK<4 F=K ELSE F=K^2 ENDIF RETURN F Y=25 18、 SETTALKOFF CLEAR X=0 I=1 DOWHILEI<=10 X=X+1 I=I+1 ENDDO ? X SETTALKON 运行结果为: ____________. 10 19、下面一段程序,输出的X值为__ m=5 x="m" ? x 20、下面一段程序,输出的X值为__ m=5 x="m" ? &x 21、下一段程序运行后,输出X的值是__ clea x=10 doaawithx ? "x=",x return procedureaa parametersbb bb=20 return 22、下一段程序运行后,Y值为__ x=8 y=int(x/3) ? y 23、下列程序运行后,a的值是__ clea a=0 dobwith2,a ? a return procedureb parameterc,d d=c*c*pi() return 24、循环一定要有出口,否则就是死循环。 下面这个程序不是死循环。 clea a=1 dowhilea>0 b=2*a ifb<3 ? b loop endif enddo 25、if4=4and5>2+3 x="T" else x="F" endif X的输出值是__ 26、下列程序的输出结果是__ if2*4>=9 ? "AAA" else ? "BBB" endif 27、下面这段程序的结构是循环结构。 当前月份=month(date()) docase caseinlist(当前月份,3,4,5) 季节="春" caseinlist(当前月份,6,7,8) 季节="夏" caseinlist(当前月份,9,10,11) 季节="秋" caseinlist(当前月份,12,1,2) 季节="冬" otherwise ? "不可能" endcase 28、阅读下列程序: STORE0TOX,Y DOWHILE.T. X=X+1 Y=Y+X IFX>=4 EXIT ENDIF ENDDO ? "Y="+STR(Y,2) 这个程序执行后结果是_______。 29、在当前盘当前目录下有一命令文件AA.PRG和MAIN.PRG,其内容如下: *AA.PRG PRIVATEM M=123 N=456 RETURN *MAIN.PRG M="ABC" N="DEF" DOAA ? M 执行命令文件MAIN.PRG,屏幕上输出N的最终结果是()。 30、已知有程序如下: SETTALKOFF DIMENSIONSS(10) FORI=1TO10 IFI/2=INT(I/2) SS(I)=I+10 ELSE SS(I)=2*I ENDIF ENDFOR ? SS(7)+SS(8) SETTALKON 该程序运行的结果为: ____________。 31、执行如下命令序列 SETTALKOFF STORE2002TOa STORE"2002"TOb STORE"a"TOm ? &m+&b SETTALKOFF *该程序运行的结果为: ____________。 32、执行以下命令序列(设今天是2002年6月15日) SETTALKOFF STOREDATE()TOm_date M_date=m_date-365 ? YEAR(m_date) SETTALKON 该程序运行的结果为: ____________。 33、 clea settalkoff a=2 b=0 store1tox,y dowhilex<=4 y=y*a b=b+y x=x+1 enddo ? b settalkon return b值为: ____________。 34、阅读下列程序,并填入S的值: ____________。 settalkoff s=0 I=-5 dowhileI<=5 ifABS(I)<=3 J=1 dowhileJ<=ABS(I) S=S+1 J=J+1 enddo endif I=I+1 enddo ? S settalkon return 35、下段程序的输出值是__________。 clea X=153 A=str(X,3) I=1 T=0 dowhileI<=3 T=T+VAL(substr(A,I,1))**3 I=I+1 enddo ? iif(X=T,'YES','NO') return 36、[程序1] CLEAR S=0 P=5 DOWHILEP<=10 P=P+1 S=S+P*2 ENDDO ? S RETURN 37、[程序2] CLEAR STORE0TOM,N DOWHILE.T. N=N+2 DOCASE CASEMOD(N,3)=0 LOOP CASEN>10 EXIT OTHERWISE M=M+N ENDCASE ENDDO ? ”M=”,M,”N=”,N RETURN 38、[程序3] DIMENSIONA(5) FORK=1TO5 A(K)=20-2*K ENDFOR FORK=5TO1STEP–1 A(K)=A(K)/(A(4)-10) ? ? A(K) ENDFOR RETURN 39、[程序4]*SUB.PRG *MAIN.PRGPARAY CLEARIFY>1 DOSUBWITH5DOSUBWITHY-1 RETURNENDIF ? REPLICATE(“*”,Y) RETURN 40、编程题: 根据键盘输入的系数A、B、C,求一元二次方程AX2+BX+C=0的实根。 41、[程序1] SETTALKOFF STORE10TOX,Y DOWHILEX>0 X=X-INT(Y/2) Y=Y-1 ENDDO ? ”X=”,X,”Y=”,Y SETTALKON 42、[程序2] SETTALKOFF STORE0TOA,B DOWHILE.T. A=A+1 B=B+A IFA>=5 EXIT ENDIF ENDDO ? ”A=”,A,”B=”,B SETTALKON 43、[程序3] SETTALKOFF S=0 I=1 INPUT“N=? ”TON DOWHILES<=N S=S+I I=I+1 ENDDO ? ”S=”,S SETTALKON 执行时如果输入值为5,写出运行结果 44、[程序4] SETTALKOFF FORI=1TO5 K=1 FORJ=1TOI @I,KSAY“*” K=K+1 ENDFOR ENDFOR SETTALKON 45、[程序5] 学号 姓名 性别 入学成绩 990001 马华 女 504 990002 王军 男 501 990003 陈燕 女 523 990004 高平 男 512 990005 黄勇 男 508 990006 刘红 女 515 990007 杨丽 女 521 现有一表xs.dbf(见右表) SETTALKOFF USEXS.DBFxs.dbf N=0 COUNTTOM SCAN IF性别=”男” LOOP ENDIF N=N+1 ENDSCAN N=M-N ? ”N=”,N USE SETTALKON 46、编写一程序,要求将从键盘输入的英文字符串倒过来显示(例如输入“WELCOME”,则显示“EMOCLEW”) 47、有如下程序: *主程序: MAIN.PRG SETTALKOFF CLEAR S=0 DOSUBWITH10,S ? S RETU *子程序SUB.PRG PARAMETERSD1,D2 D1=D1+D1 D2=D1*2 RETURN 执行主程序后S的值是__________。 40 48、SETTALKOFF STORE100TOx,y,z DOPROC1WITH(x),y ? x,y,z PROCEDUREprocl PARAMETERm,n m=m+100 n=n+100 RETURN
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 复习题
![提示](https://static.bdocx.com/images/bang_tan.gif)