VFP程序填空.doc
如有侵权，请联系网站删除，仅供学习与交流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)当输入的圆半径为负数时，按Command1按钮后，则弹出messagebox窗口，显示“圆半径不能为负数！”。(3)按Command2按钮，则退出表单。Command1的Click事件R=_1_ val(thisform. Text1.Value)if _2_ R>0_3_ Thisform. Text2.Value=3.14*R2elseMessagebox("圆半径不能为负数！")EndifCommand2的Click事件_4_ thisform.release3.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)，表中有20条记录。SET TALK OFFCLEARUSE 学生? 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_ 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-03-09SET TALK OFFCLEARUSE STUDEND_1_ LOCATE FOR YEAR(出生年月)<1992_2_ DO WHILE !EOF()? 姓名_3_ CONTINUE_4_ ENDDOUSESET TALK ON6.显示输出正整数M(从键盘输入)内的奇数和奇数之和。SET TALK OFFCLEARINPUT "M=" TO M_1_ S=0FOR I=1 TO M_2_ IF MOD(I,2)!=0? I_3_ S=S+iENDIF_4_ endfor? S7.已有学生.DBF表(学号-字符型，宽度6；姓名-字符型8；性别-逻辑型，宽度1；出生年月-日期型，宽度8；奖学金-数值型，宽度6，小数位2)，以下程序实现的功能是：统计输出各班获奖学金人数，其中学号前3位表示班级号。SET TALK OFF CLEAUSE 学生INDEX ON 学号 TO X1DO WHILE !EOF()S=0BJH=SUBSTR(学号,1,3) &&截取学号前3位DO WHIL _1_ SUBSTR(学号,1,3)=BJHIF _2_ 奖学金>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(学号，姓名，性别，出生年月，奖学金，简历，照片)。要求：在“学生”表中查找指定学生，如果找到，显示该记录，否则，显示“没有该生记录”。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 TALK ON11.设变量X的输入值分别为113，369，228，0SET TALK OFFCD=“日一二三四五六”DO WHILE .T.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的倍数同时又是5的倍数SET TALK OFFCLEAR_1_ INPUT "N=" TO 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 I<=FCOUNT() ? _2_ FIELD(i)I=I+1ENDDOELSE? '找不到该文件'ENDIF WAIT '输入是否继续？(Y-继续/N-退出)' TO X_3_ IF UPPER(X)= 'N'EXITENDIF_4_ ENDDOSET TALK ON14.以下程序的功能是：求1！+3！+5！+N!的值。N由键盘输入，且为奇数。SET TALK OFFCLEAR_1_ INPUT "N=" TO NSTORE 0 TO S,TFOR I=1 TO N STEP _2_ 2DO SUB1_3_ S=S+TENDFOR? SSET TALK ONPROC SUB1 &&过程SUB1T=1FOR J=1 TO I_4_ T=T*JENDFOR请选择填空（ ）15.已在表单(Form1)中竖放文字“我是会移动的文字”(Label1)和计数器(Timer1)并已设置好相关属性，初始的显示位置在表单的左边，表单执行后，每间隔0.3秒，文字会自动以间隔加10的幅度逐步向表单右边移动，直到文字到达表单最右边缘；然后每间隔20毫秒文字会自动以间隔减1的幅度逐步向表单左边移动，直到文字回复到初始位置；整个过程不间断地来回移动。Form1的Init事件代码public i,zi=10z=thisform.label1.left thisform.timer1.Interval=_1_ 300thisform.timer1.Enabled=_2_ .T.Timer1的Timer事件代码if thisform.label1.left>thisform.width or thisform.label1.left<zi=_3_ -iendifthisform.label1.left=_4_ thisform.label1.left+i 请选择填空（ ）
