VFP程序填空

1.执行下列命令序列(已知 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 中有20条 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 )USE学生BOF()____1____?.F.RECNO()____2____?1SKIP3RECNO()____3____?4GOTOPDISPNEXT3RECNO()____4____?3USE编号行对应的输出结果是（??）2.编制一个计算圆面积的表单。表单中有文本框控件Text1、Text2，命令按钮Command1、Command2，表单和控件的相关属性已设置。具体要求：(1)在Text1文本框中输入圆半径，按Command1按钮，则在Text2文本框中显示圆面积。(2)当输入的圆半径为负数时，按Command1按钮后，则弹出messagebox窗口，显示“圆半径不能为负数！”。(3)按Command2按钮，则退出表单。Command1的Click事件R=__1__val(thisform.if__2__R>0__3__Thisform.=*R^2elseMessagebox("圆半径不能为负数！")EndifCommand2的Click事件__4__3.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)，表中有20条记录。SETTALKOFFCLEARUSE学生RECNO()____1____1SKIP6RECNO()____2____7DELEPACKLISTRECNO()____3____20RECCOUNT()____4____19USESETTALKON编号行对应的输出结果是（??）4.程序运行时，从键盘输入包裹的重量，自动计算并输出需要付的运费，如果输入的数据为负值(即小于0)则退出程序。SETTALKOFFDOWHILE____1____.t.CLEARINPUT"请输入包裹重量："TOXIFX<=0____2____EXITENDIFIFX<=100Y=5ELSEY=5+(X-100)*ENDIF'您需要付费：'，____3____YWAIT"按任意键继续……"?____4____ENDDOSETTALKON请选择填空（??）5.有表文件，其中学号、姓名字段为字符型，性别字段为逻辑型，出生年月字段为日期型。查找并显示1992年以前出生的学生名单(表记录如下：)记录号学号姓名性别出生年月101张海静.F.{^1993-05-06}202王林丰.T.{^1992-12-25}305林小军.T.{^1993-01-12}408周伟.T.{^1992-10-05}507林华.F.{^1991-09-18}616王韵玳.F.{^1994-03-09}SETTALKOFFCLEARUSESTUDEND____1____LOCATEFORYEAR(出生年月)<1992____2____DOWHILE!EOF()姓名____3____CONTINUE____4____?ENDDOUSESETTALKON6.显示输出正整数M(从键盘输入)内的奇数和奇数之和。SETTALKOFFCLEARINPUT"M="TOM____1____S=0FORI=1TOM____2____IFMOD(I,2)!=0I____3____S=S+iENDIF____4____endforS7.已有学生.DBF表(学号-字符型，宽度6；姓名-字符型8；性别-逻辑型，宽度1；出生年月-日期型，宽度8；奖学金-数值型，宽度6，小数位2)，以下程序实现的功能是：统计输出各班获奖学金人数，其中学号前3位表示班级号。SETTALKOFF?CLEAUSE学生INDEXON学号TOX1DOWHILE!EOF()S=0BJH=SUBSTR(学号,1,3)&&截取学号前3位DOWHIL____1____SUBSTR(学号,1,3)=BJHIF____2____奖学金>0S=S+1ENDIFSKIP____3____ENDDOBJH,'班获奖学金人数为',S____4____ENDDOSETTALKON8.显示输出20之内的偶数和偶数和。SETTALKOFFCLEAR____1____SUM=0FORM=1TO20____2____IFINT(M/2)=M/2MSUM=SUM+MENDIF____3____ENDFOR____4____SUMSETTALKON9.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)。要求：在“学生”表中查找指定学生，如果找到，显示该记录，否则，显示“没有该生记录”。SETTALKOFFCLEARUSE学生ACCEPT"请输入学号"TOXH____1____?LOCATEFOR学号=XHIF____2____?!EOF()____3____?Disp____4____?Else"没有该生记录"ENDIFUSESETTALKON10.如下程序实现的功能是：从键盘输入一个数,判断它是奇数还是偶数。SETTALKOFFCLEA____1____'请输入一个数='TOSHINPUTA=INT(SH)IFA=SHIFA%2=0____2____STR(A)+'是偶数!'ELSE?A,'是奇数!'____3____endifELSE'不是整数'____4____endifSETTALKON11.设变量X的输入值分别为113，369，228，0SETTALKOFFCD=“日一二三四五六”DOWHILE.T.INPUT“X=”TOXX=IIF(X>0ANDX<366，MOD(X+2，7)+1，IIF(X=0，0，8))DOCASECASEX=0“结束”EXITCASEX=8“输入有错”LOOPOTHERWISE“星期”+SUBSTR(CD，2*X-1，2)ENDCASEENDDOSETTALKON对应的输出结果是（??）12.从键盘输入一个数，判断这个数是不是既是3的倍数同时又是5的倍数SETTALKOFFCLEAR____1____?INPUT"N="TONIF____2____?MOD(N,3)=0ANDMOD(N,5)=0____3____?N,"既是3的倍数又是5的倍数!"____4____ElseSTR(N)+"不能同时满足既是3的倍数又是5的倍数!"?ENDIFSETTALKON13.如下程序实现的功能是：输入表名，如果存在，则显示该表中所有字段，否则输出‘找不到该文件’。SETTALKOFFCLEADOWHIL.T.ACCEPT"输入文件名(包含扩展名)："TOFNAMEIFFILE("&FNAME..DBF")?USE&FNAMEI=____1____1DOWHILI<=FCOUNT()?____2____FIELD(i)I=I+1ENDDOELSE'找不到该文件'ENDIF?WAIT'输入是否继续(Y-继续/N-退出)'TOX____3____IFUPPER(X)='N'EXITENDIF____4____ENDDOSETTALKON14.以下程序的功能是：求1！+3！+5！+……+N!的值。N由键盘输入，且为奇数。SETTALKOFFCLEAR____1____INPUT"N="TONSTORE0TOS,TFORI=1TONSTEP____2____2DOSUB1____3____S=S+TENDFORSSETTALKONPROCSUB1&&过程SUB1T=1FORJ=1TOI____4____T=T*JENDFOR请选择填空（??）15.已在表单(Form1)中竖放文字“我是会移动的文字”(Label1)和计数器(Timer1)并已设置好相关属性，初始的显示位置在表单的左边，表单执行后，每间隔秒，文字会自动以间隔加10的幅度逐步向表单右边移动，直到文字到达表单最右边缘；然后每间隔20毫秒文字会自动以间隔减1的幅度逐步向表单左边移动，直到文字回复到初始位置；整个过程不间断地来回移动。Form1的Init事件代码publici,zi=10z=?300?.T.Timer1的Timer事件代码ifori=__3__-iendif请选择填空（??）