VFP程序填空教学文案

1、（已知表中有20条记录）Comma nd1R=_1if _2_3的Click事件val(thisform. Textl.Value)R>0Thisform. Text2.Value=3.14*RA21执行下列命令序列USE学生? BOF()1? RECNO()2SKIP 3? RECNO()3GO TOPDISP NEXT 3? RECNO()4USE编号行对应的输出结果是2.编制一个计算圆面积的表单。表单中有文本框控件 Text1、Text2,命令按钮Command1、Command2，表单和控件的相关属性已设置。具体要求：（1）在Text1文本框中输入圆半径，按Command1按钮，

2、则在 Text2文本框中显示圆面积。当输入的圆半径为负数时，按Comma nd1按钮后，则弹出 messagebox窗口，显示 圆半径不能为负数！”。按Command2按钮，则退出表单。elseMessagebox（"圆半径不能为负数！"）EndifCommand2 的 Click 事件thisform.3.已知：已存在学生.dbf（学号，姓名，性别，出生年月，奖学金，简历，照片 ），表中有 20条记录。SET TALK OFFCLEARUSE学生? RECNO()1 1SKIP 6? RECNO()2 7DELEPACKLIST? RECNO()3? RECCOUNT()

3、4USESET TALK ON编号行对应的输出结果是()4程序运行时，从键盘输入包裹的重量，自动计算并输出需要付的运费，如果输入的数 据为负值（即小于0）则退出程序。SET TALK OFFDO WHILE1 .t.CLEARINPUT "请输入包裹重量：” TO XIF X<=02EXITENDIFIF X<=100Y=5ELSEY=5+（X-100）*0.2ENDIF?您需要付费：'，3 YWAIT "按任意键继续”4ENDDOSET TALK ON请选择填空（）5有STUDENT.DBF表文件，其中学号、姓名字段为字符型，性别字段为逻辑型， 出生年

4、月字段为日期型。查找并显示1992年以前出生的学生名单 (表记录如下：)记录号学号姓名性别出生年月1 2012010001 张海静.F. 993-05-062 2012010002 王林丰.T. A1992-12-253 2012010005 林小军.T. 人1993-01-124 2012010008 周伟.T. 人1992-10-055 2012020007 林华.F. 人1991-09-186 2012020016 王韵玳.F. 人1994-03-09SET TALK OFFCLEARUSE STUDEND1LOCATE FOR YEAR(出生年月)<19922DO WHILE !

5、EOF()?姓名_3CONTINUE4ENDDOUSESET TALK ON6.显示输出正整数M（从键盘输入）内的奇数和奇数之和。SET TALK OFFCLEARINPUT "M=" TO M1FOR I=1 TO M2? I3ENDIF4? SS=0IF MOD(I,2)!=0en dfor7.已有学生.DBF表（学号-字符型，宽度6;姓名-字符型8;性别-逻辑型，宽度1;出生 年月-日期型，宽度8;奖学金-数值型，宽度6,小数位2），以下程序实现的功能是：统计 输出各班获奖学金人数，其中学号前3位表示班级号。SET TALK OFFCLEAUSE学生INDEX ON

6、学号 TO X1DO WHILE !EOF()S=0BJH=SUBSTR（学号,1,3） &&截取学号前 3位DO WHIL1SUBSTR(学号,1,3)=BJHSET TALK OFFIF 2奖学金0S=S+1ENDIFSKIPENDDO? BJH,'班获奖学金人数为',SENDDOSET TALK ON8.显示输出20之内的偶数和偶数和。SET TALK OFFCLEARSUM=0FOR M=1 TO 20IF INT(M/2)=M/2SUM=SUM+MENDIFENDFOR? SUM9已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片

7、)。要求:在学生”表中查找指定学生，如果找到，显示该记录，否则，显示役有该生记录”。SET TALK OFFCLEARUSE学生ACCEPT "请输入学号” TO XH1LOCATE FOR 学号二XHif 2!EOF()3 Disp4Else?"没有该生记录”ENDIFUSESET TALK ON10. 如下程序实现的功能是：从键盘输入一个数，判断它是奇数还是偶数。SET TALK OFFCLEA1'请输入一个数='TO SHINPUTA=INT(SH)IF A=SH? STR(A)+'是偶数 rIF A%2=02ELSEendi? A,'

8、是奇数r3ELSEendi?不是整数4SET TALK ON11. 设变量X的输入值分别为113, 369, 228, 0CD="日一二三四五六DO WHILE .INPUT “ X=” TO XX=IIF(X>0 AND X<366, 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的倍数同

9、时又是5的倍数SET TALK OFFCLEAR1INPUT "N=" TO Nif 2MOD(N,3)=0 AND MOD(N,5)=03? N,"既是3的倍数又是5的倍数!"4 Else? STR(N)+"不能同时满足既是 3的倍数又是5的倍数!"ENDIFSET TALK ON13 如下程序实现的功能是： 输入表名，如果存在，则显示该表中所有字段， 否则输出 找不到该文件'CLEADO WHIL .ACCEPT "输入文件名（包含扩展名）："TO FNAMEIF FILE(”&F NAME.D

10、BF")USE &FNAMEFIELD(i)(Y-继续/N-退出)'TO XIF UPPER(X)二'N'DO WHIL l<=FCOUNT()?2I=I+1ENDDOELSE?找不到该文件ENDIFWAIT '输入是否继续？3EXITENDIF4ENDDOSET TALK ON14以下程序的功能是：求 1 ! +3! +5! +N!的值。N由键盘输入，且为奇数。SET TALK OFFCLEAR1 INPUT "N=" TO NSTORE 0 TO S,TFOR I=1 TO N STEP2 2DO SUB13S=S

11、+TENDFOR? SSET TALK ONPROC SUB1 && 过程 SUB1T=1FOR J=1 TO IT=T*JENDFOR请选择填空（）15.已在表单（Forml）中竖放文字 我是会移动的文字”（Labell和计数器（Timerl）并已设 置好相关属性，初始的显示位置在表单的左边，表单执行后，每间隔0.3秒，文字会自动以间隔加10的幅度逐步向表单右边移动，直到文字到达表单最右边缘；然后每间隔20毫秒文字会自动以间隔减 1的幅度逐步向表单左边移动，直到文字回复到初始位置；整个过程 不间断地来回移动。Form1的In it事件代码public i,zi=10z=thi

12、sfor m.l abel1.left thisform.timer1 .In terval= thisform.timer1.E nabled= 2Timer1的Timer事件代码if thisfor m.l abel1.left>thisform.width or thisfor m.l abel1 .l eft<z i= 3en difthisform.label1.left= 4thisfor m.l abel1.left+i请选择填空（DB茨件.墓中丰号廉程号字慣屛苻2b闕存段为细|盘。婕末童枝購一棗学E为2012020008的记索# 鲜碓记呂成軸曲僥込髯亦：)迓号亨号粥号彌1 2012010001 0001 802 2012010002 0001 703 2012020008 0006 S$4 2012010001 0005 $05 2012010001 0006 704W；bn iau urrCUMlocate far 学号二 “2012020008”n found ()AV