VFP程序填空.doc

《VFP程序填空.doc》由会员分享，可在线阅读，更多相关《VFP程序填空.doc（9页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、如有侵权，请联系网站删除，仅供学习与交流VFP程序填空【精品文档】第 9 页1.执行下列命令序列(已知表中有20条记录)USE 学生? BOF() _1_ .F.? RECNO() _2_ 1 SKIP 3? RECNO() _3_ 4 GO TOPDISP NEXT 3? RECNO() _4_ 3 USE编号行对应的输出结果是（）2.编制一个计算圆面积的表单。表单中有文本框控件Text1、Text2，命令按钮Command1、Command2，表单和控件的相关属性已设置。具体要求：(1)在Text1文本框中输入圆半径，按Command1按钮，则在Text2文本框中显示圆面积。(2)当输入的

2、圆半径为负数时，按Command1按钮后，则弹出messagebox窗口，显示“圆半径不能为负数！”。(3)按Command2按钮，则退出表单。Command1的Click事件R=_1_ val(thisform. Text1.Value)if _2_ R0_3_ Thisform. Text2.Value=3.14*R2elseMessagebox(圆半径不能为负数！)EndifCommand2的Click事件_4_ thisform.release3.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)，表中有20条记录。SET TALK OFFCLEARUSE 学生

3、? RECNO() _1_ 1SKIP 6? RECNO() _2_ 7DELEPACKLIST? RECNO() _3_ 20? RECCOUNT() _4_ 19USESET TALK ON编号行对应的输出结果是（）4.程序运行时，从键盘输入包裹的重量，自动计算并输出需要付的运费，如果输入的数据为负值(即小于0)则退出程序。SET TALK OFFDO WHILE _1_ .t.CLEARINPUT 请输入包裹重量： TO XIF X=0_2_ EXITENDIFIF X=100Y=5ELSEY=5+(X-100)*0.2ENDIF? 您需要付费：，_3_ YWAIT 按任意键继续 _4_

4、 ENDDOSET TALK ON请选择填空（）5.有STUDENT.DBF表文件，其中学号、姓名字段为字符型，性别字段为逻辑型，出生年月字段为日期型。查找并显示1992年以前出生的学生名单(表记录如下：)记录号 学号 姓名 性别 出生年月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-0

5、3-09SET TALK OFFCLEARUSE STUDEND_1_ LOCATE FOR YEAR(出生年月)0S=S+1ENDIFSKIP_3_ ENDDO? BJH,班获奖学金人数为,S_4_ ENDDO SET TALK ON8.显示输出20之内的偶数和偶数和。SET TALK OFFCLEAR_1_ SUM=0FOR M=1 TO 20_2_ IF INT(M/2)=M/2? MSUM=SUM+MENDIF_3_ ENDFOR_4_ ? SUMSET TALK ON9.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)。要求：在“学生”表中查找指定学生，如果

6、找到，显示该记录，否则，显示“没有该生记录”。SET TALK OFFCLEARUSE 学生ACCEPT 请输入学号 TO XH_1_ LOCATE FOR 学号=XHIF _2_ !EOF()_3_ Disp_4_ Else? 没有该生记录ENDIFUSESET TALK ON10.如下程序实现的功能是：从键盘输入一个数,判断它是奇数还是偶数。SET TALK OFFCLEA_1_ 请输入一个数= TO SH INPUTA=INT(SH)IF A=SHIF A%2=0_2_ ? STR(A)+是偶数!ELSE? A,是奇数!_3_ endifELSE? 不是整数_4_ endifSET TA

7、LK ON11.设变量X的输入值分别为113，369，228，0SET TALK OFFCD=“日一二三四五六”DO WHILE .T.INPUT “X=” TO XX=IIF(X0 AND X366，MOD(X+2，7)+1，IIF(X=0，0，8)DO CASECASE X=0？“结束”EXITCASE X=8？“输入有错”LOOPOTHERWISE？“星期”+SUBSTR(CD，2*X-1，2)ENDCASEENDDOSET TALK ON对应的输出结果是（）12.从键盘输入一个数，判断这个数是不是既是3的倍数同时又是5的倍数SET TALK OFFCLEAR_1_ INPUT N= T

8、O NIF _2_ MOD(N,3)=0 AND MOD(N,5)=0_3_ ? N,既是3的倍数又是5的倍数!_4_ Else? STR(N)+不能同时满足既是3的倍数又是5的倍数!ENDIFSET TALK ON13.如下程序实现的功能是：输入表名，如果存在，则显示该表中所有字段，否则输出找不到该文件。SET TALK OFFCLEADO WHIL .T.ACCEPT 输入文件名(包含扩展名)： TO FNAMEIF FILE(&FNAME.DBF)USE &FNAMEI=_1_ 1DO WHIL Ithisform.width or thisform.label1.leftzi=_3_ -iendifthisform.label1.left=_4_ thisform.label1.left+i 请选择填空（）