搜索
多选题1.有STUDENT.DBF表文件，其中学号、姓名字段为字符型，性别字段为逻辑型，出生年月字段为日期型。查找并显示1992年以前出生的学生名单(表记录如下：)记录号学号姓名性别出生年月12012010001张海静.F.{^1993-05-06}22012010002王林丰.T.{^1992-12-25}32012010005林小军.T.{^1993-01-12}42012010008周伟.T.{^1992-10-05}52012020007林华.F.{^1991-09-18}62012020016王韵玳.F.{^1994-03-09}SETTALKOFFCLEARUSESTUDEND____B________F____?姓名____J________O____USESETTALKON请选择填空（）A.SEEK{^1992-01-01}B.FINDYEAR(出生年月)1992C.LOCATEFORYEAR(出生年月)1992D.LOCATEFOR出生年月1992E.DOWHILE.F.F.DOWHILE!EOF()G.DOWHILEEOF()H.DOWHILE.T.I.SKIPJ.CONTINUEK.GOTOPL.GOBOTTOMM.ENDCASEN.ENDIFO.ENDDOP.ENDFORBFJO2.从键盘输入一个数，判断这个数是不是既是3的倍数同时又是5的倍数SETTALKOFFCLEAR____C____IF____F________K________O____?STR(N)+不能同时满足既是3的倍数又是5的倍数!ENDIFSETTALKON请选择填空（）A.ACCEPTN=TONB.WAITN=TONC.INPUTN=TOND.STOREN=TONE.MOD(N/3)=0ANDMOD(N/5)=0F.MOD(N,3)=0ANDMOD(N,5)=0G.N%3=0ORN%5=0H.INT(N,3)=0ANDINT(N,5)=0I.?N,既是3的倍数又是5的倍数!J.?N+既是3的倍数又是5的倍数!K.STR(N+既是3的倍数又是5的倍数!)L.?NM.ENDIFN.OTHERWISEO.ELSEP.DOCASECFKO3.如下程序实现的功能是：输入表名，如果存在，则显示该表中所有字段，否则输出‘找不到该文件’。SETTALKOFFCLEADOWHIL.T.ACCEPT输入文件名(包含扩展名)：TOFNAMEIFFILE(&FNAME..DBF)USE&FNAMEI=____B____DOWHILI=FCOUNT()?____G____I=I+1ENDDOELSE?'找不到该文件'ENDIFWAIT'输入是否继续？(Y-继续/N-退出)'TOX____J____EXITENDIF____N____SETTALKON请选择填空（）A.0B.1C.10D.100E.FCOUNT()F.IG.FIELD(I)H.FNAMEI.IFUPPER(X)'N'J.IFLOWER(X)='N'K.IFUPPER(X)='N'L.IFUPPER(X)='n'M.ENDSCANN.ENDDOO.ENDCASEP.ENDIFBGJN4.已有学生.DBF表(学号-字符型，宽度6；姓名-字符型8；性别-逻辑型，宽度1；出生年月-日期型，宽度8；奖学金-数值型，宽度6，小数位2)，以下程序实现的功能是：统计输出各班获奖学金人数，其中学号前3位表示班级号。SETTALKOFFCLEAUSE学生INDEXON学号TOX1DOWHILE!EOF()S=0BJH=SUBSTR(学号,1,3)&&截取学号前3位DOWHIL____D____IF____G____S=S+1ENDIFSKIP____I____?BJH,'班获奖学金人数为',S____N____SETTALKON请选择填空（）A.!EOF()B.学号=BJHC.STR(学号,1,3)=BJHD.SUBSTR(学号,1,3)=BJHE.奖学金0F.奖学金=0G.奖学金0H.奖学金=0I.ENDDOJ.ENDSK.ENDIFL.RETUM.ENDIFN.ENDDOO.ENDFORP.ENDCASEDGIN5.给定一个年份(从键盘输入数值型数据)，判断它是不是闰年。闰年的条件是：能被4整除但不能被100整除，或能被100整除且被400整除。SETTALKOFFCLEAR____B________E____?STR(Y)+是闰年!ELSE____K________P____SETTALKON请选择填空（）A.ACCEPTY=TOYB.INPUTY=TOYC.WAITY=TOYD.STOREY=TOYE.IF(Y%4=0ANDY%100!=0)ORY%400=0F.IF(Y%4ANDY!%100)ORY%400G.IF(INT(Y/4)=Y/4ANDINT(Y/100)!=Y/100)ANDINT(Y/400)H.IF(Y%4=0ANDY%100!=0)ANDY%400=0I.?Y+不是闰年!J.?Y+不是闰年!K.?Y,不是闰年!L.STR(Y不是闰年)M.ENDDON.ENDCASEO.ENDFORP.ENDIFBEKP6.程序运行时，从键盘输入包裹的重量，自动计算并输出需要付的运费，如果输入的数据为负值(即小于0)则退出程序。SETTALKOFFDOWHILE____B____CLEARINPUT请输入包裹重量：TOXIFX=0____E____ENDIFIFX=100Y=5ELSEY=5+(X-100)*0.2ENDIF?'您需要付费：'，____3____WAIT按任意键继续……____4____SETTALKON请选择填空（）A.n100B.x0C..F.D..t.E.EXITF.BOF()G.LOOPH.EOF()I.XJ.YK.0L.5M.ENDIFN.ELSEO.ENDSCANP.ENDDO7.显示输出正整数M(从键盘输入)内的奇数和奇数之和。SETTALKOFFCLEARINPUTM=TOM____A____FORI=1TOM____G____?I____J____ENDIF____P____?SSETTALKON请选择填空（）A.S=0B.M=SC.S=1D.I=1E.IFINT(I/2)=I/2F.IFI%2=0G.IFMOD(I,2)!=0H.IFINT(I,2)#0I.S=S+1J.S=S+IK.S=S+ML.S=2*I+1M.ENDIFN.ENDCASEO.ENDSCANP.ENDFORAGJP8.设变量X的输入值分别为211，367，126，0SETTALKOFFCD=“日一二三四五六”DOWHILE.T.INPUT“X=”TOXX=IIF(X0ANDX366，MOD(X+2，7)+1，IIF(X=0，0，8))DOCASECASEX=0？“结束”EXITCASEX=8？“输入有错”LOOPOTHERWISE？“星期”+SUBSTR(CD，2*X-1，2)ENDCASEENDDOSETTALKON对应的输出结果是（）A.星期一B.星期二C.星期三D.星期四E.星期五F.结束G.输入有错H.非法I.输入有错J.结束K.星期二L.星期六M.星期二N.结束O.输入有错P.输入非法CGKN9.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)，表中有10条记录。SETTALKOFFCLEARUSE学生?RECNO()____1____SKIP2?RECNO()____2____DELEPACKLIST?RECNO()____3____?RECCOUNT()____4____USESETTALKON编号行对应的输出结果是（）A.1B.10C.0D.11E.2F.3G.10H.1I.9J.10K.11L.1M.1N.9O.10P.1110.编制一个计算圆面积的表单。表单中有文本框控件Text1、Text2，命令按钮Command1、Command2，表单和控件的相关属性以设置。具体要求：(1)在Text1文本框中输入圆半径，按Command1按钮，则在Text2文本框中显示圆面积。(2)当输入的圆半径为负数时，按Command1按钮后，则弹出messagebox窗口，显示“圆半径不能为负数！”。(3)按Command2按钮，则退出表单。Command1的Click事件R=__1__if__2__Messagebox(圆半径不能为负数！)else__3__EndifCommand2的Click事件__4__请选择填空（）A.thisform.Text1.ValueB.val(thisform.Text.Value)C.val(thisform.Text1.Value)D.val(thisform.Text1.caption)E.R0F.R0G.R0H.R0I.Thisform.Text.Value=3.14*R^2J.Thisform.Text2=3.14*R^2K.Thisform.Text2.Value=3.14*R^2L.Text2.Value=3.14*R^2M.Command1.releaseN.thisform.CloseO.this.releaseP.thisform.release11.已在表单(Form1)中竖放文字“我是会移动的文字”(Label1)和计数器(Timer1)并已设置好相关属性，初始的显示位置在表单的左边，表单执行后，每间隔20毫秒，文字会自动以间隔加1的幅度逐步向表单右边移动，直到文字到达表单最右边缘；然后每间隔20毫秒文字会自动以间隔减1的幅度逐步向表单左边移动，直到文字回复到初始位置；整个过程不间断地来回移动。Form1的Init事件代码publici,zi=1z=thisform.label1.leftthisform.timer1.Interval=__1__thisform.timer1.Enabled=__2__Timer1的Timer事件代码ifthisform.label1.leftthisform.widthorthisform.label1.leftzi=__3__endifthisform.label1.left=___4___请选择填空（）A.2B.200C.20D.0.2E..F.F..T.G.1H.0I.1J.-iK.iL.0M.thisform.label1+iN.thisform.label1.left+iO.thisform.label1.left-iP.thisform.label1.right+i12.执行下列命令序列(已知表中有10条记录)USE学生?BOF()____1____?RECNO()____2____SKIP3?RECNO()____3____GOTOPDISPNEXT3?RECNO()____4____USE编号行对应的输出结果是（）A..T.B..F.C.0D.1E.0F.1G.10H.11I.3J.4K.7L.8M.3N.4O.7P.1113.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)。要求：在“学生”表中查找指定学生，如果找到，显示该记录，否则，显示“没有该生记录”。SETTALKOFFCLEARUSE学生ACCEPT请输入学号TOXH____1____IF____2________3________4____?没有该生记录ENDIFUSESETTALKON请选择填空（）A.SEEK学号=XHB.LOCATEFOR学号=XHC.FIND学号D.LOCATEFOR学号E.!EOF()F.BOF()G.FINDH.EOF()I.BROWSEJ.LISTK.DISPL.SHOWM.OTHERWISEN.ELSEO.SCANP.CASE14.以下程序的功能是：求1！+3！+5！+……+N!的值。N由键盘输入，且为奇数。SETTALKOFFCLEAR____1____STORE0TOS,