VFP程序填空.pdf

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

1、丹青不知老将至，贫贱于我如浮云。杜甫丈夫志四方，有事先悬弧，焉能钧三江，终年守菰蒲。顾炎武1.执行下列命令序列(已知表中有 20 条记录)USE 学生 BOF()_1_?.F.RECNO()_2_?1 SKIP 3 RECNO()_3_?4 GO TOP DISP 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.if _2_ R0 _3_ Thisform.=*R2 else Messagebox(圆半径不能为负数！)Endif Command2 的 Click 事件 _4_ 3.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)，表中有 20 条记录。SET TALK OFF CLEAR USE 学生 万两黄金容易得，知心一

3、个也难求。曹雪芹人不知而不愠，不亦君子乎？论语 RECNO()_1_ 1 SKIP 6 RECNO()_2_ 7 DELE PACK LIST RECNO()_3_ 20 RECCOUNT()_4_ 19 USE SET TALK ON 编号行对应的输出结果是（?）4.程序运行时，从键盘输入包裹的重量，自动计算并输出需要付的运费，如果输入的数据为负值(即小于 0)则退出程序。SET TALK OFF DO WHILE _1_ .t.CLEAR INPUT 请输入包裹重量：TO X IF X=0 _2_ EXIT ENDIF IF X=100 Y=5 ELSE Y=5+(X-100)*ENDIF

4、 您需要付费：，_3_ Y WAIT 按任意键继续?_4_ ENDDO SET TALK ON 请选择填空（?）以铜为镜，可以正衣冠；以古为镜，可以知兴替；以人为镜，可以明得失。旧唐书魏征列传丈夫志四方，有事先悬弧，焉能钧三江，终年守菰蒲。顾炎武5.有表文件，其中学号、姓名字段为字符型，性别字段为逻辑型，出生年月字段为日期型。查找并显示 1992 年以前出生的学生名单(表记录如下：)记录号 学号 姓名 性别 出生年月 1 01 张海静.F.1993-05-06 2 02 王林丰.T.1992-12-25 3 05 林小军.T.1993-01-12 4 08 周伟.T.1992-10-05 5

5、07 林华.F.1991-09-18 6 16 王韵玳.F.1994-03-09 SET TALK OFF CLEAR USE STUDEND _1_ LOCATE FOR YEAR(出生年月)0 S=S+1 ENDIF SKIP _3_ ENDDO BJH,班获奖学金人数为,S _4_ ENDDO SET TALK ON 8.显示输出 20 之内的偶数和偶数和。SET TALK OFF CLEAR _1_ SUM=0 FOR M=1 TO 20 _2_ IF INT(M/2)=M/2 M SUM=SUM+M ENDIF _3_ ENDFOR _4_ SUM SET TALK ON 我尽一杯，

6、与君发三愿：一愿世清平，二愿身强健，三愿临老头，数与君相见。白居易先天下之忧而忧，后天下之乐而乐。范仲淹9.已知：已存在学生.dbf(学号，姓名，性别，出生年月，奖学金，简历，照片)。要求：在“学生”表中查找指定学生，如果找到，显示该记录，否则，显示“没有该生记录”。SET TALK OFF CLEAR USE 学生 ACCEPT 请输入学号 TO XH _1_?LOCATE FOR 学号=XH IF _2_?!EOF()_3_?Disp _4_?Else 没有该生记录 ENDIF USE SET TALK ON 10.如下程序实现的功能是：从键盘输入一个数,判断它是奇数还是偶数。SET TA

7、LK OFF CLEA _1_ 请输入一个数=TO SH INPUT A=INT(SH)IF A=SH IF A%2=0 _2_ STR(A)+是偶数!ELSE?A,是奇数!_3_ endif ELSE 不是整数 _4_ endif SET TALK ON 11.设变量 X 的输入值分别为 113，369，228，0 SET TALK OFF 其身正，不令而行；其身不正，虽令不从。论语勿以恶小而为之，勿以善小而不为。刘备CD=“日一二三四五六”DO WHILE.T.INPUT“X=”TO X X=IIF(X0 AND X366，MOD(X+2，7)+1，IIF(X=0，0，8)DO CASE

8、CASE X=0“结束”EXIT CASE X=8“输入有错”LOOP OTHERWISE“星期”+SUBSTR(CD，2*X-1，2)ENDCASE ENDDO SET TALK ON 对应的输出结果是（?）12.从键盘输入一个数，判断这个数是不是既是 3 的倍数同时又是 5 的倍数 SET TALK OFF CLEAR _1_?INPUT N=TO N IF _2_?MOD(N,3)=0 AND MOD(N,5)=0 _3_?N,既是 3 的倍数又是 5 的倍数!_4_ Else STR(N)+不能同时满足既是 3 的倍数又是 5 的倍数!?ENDIF SET TALK ON 13.如下程

9、序实现的功能是：输入表名，如果存在，则显示该表中所有字段，否则输出找不到该文件。SET TALK OFF 天行健，君子以自强不息。地势坤，君子以厚德载物。易经宠辱不惊，看庭前花开花落；去留无意，望天上云卷云舒。洪应明CLEA DO WHIL.T.ACCEPT 输入文件名(包含扩展名)：TO FNAME IF FILE(&FNAME.DBF)?USE&FNAME I=_1_ 1 DO WHIL I=FCOUNT()?_2_ FIELD(i)I=I+1 ENDDO ELSE 找不到该文件 ENDIF?WAIT 输入是否继续(Y-继续/N-退出)TO X _3_ IF UPPER(X)=N EXIT

10、 ENDIF _4_ ENDDO SET TALK ON 14.以下程序的功能是：求 1！+3！+5！+N!的值。N 由键盘输入，且为奇数。SET TALK OFF CLEAR _1_ INPUT N=TO N STORE 0 TO S,T FOR I=1 TO N STEP _2_ 2 DO SUB1 _3_ S=S+T ENDFOR S SET TALK ON PROC SUB1&过程 SUB1 T=1 老当益壮，宁移白首之心；穷且益坚，不坠青云之志。唐王勃海纳百川，有容乃大；壁立千仞，无欲则刚。林则徐FOR J=1 TO I _4_ T=T*J ENDFOR 请选择填空（?）15.已在表

11、单(Form1)中竖放文字“我是会移动的文字”(Label1)和计数器(Timer1)并已设置好相关属性，初始的显示位置在表单的左边，表单执行后，每间隔秒，文字会自动以间隔加 10 的幅度逐步向表单右边移动，直到文字到达表单最右边缘；然后每间隔 20 毫秒文字会自动以间隔减 1 的幅度逐步向表单左边移动，直到文字回复到初始位置；整个过程不间断地来回移动。Form1 的 Init 事件代码 public i,z i=10 z=?300?.T.Timer1 的 Timer 事件代码 if or i=_3_ -i endif 请选择填空（?）以家为家，以乡为乡，以国为国，以天下为天下。管子牧民海纳百川，有容乃大；壁立千仞，无欲则刚。林则徐