vfp程序填空教学内容.pdfVIP

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) 当输入的圆半径为负数时，按 Command1 按钮后，则弹出 messagebox 窗口，显示 “圆半 径不能为负数！ ”。 (3) 按 Command2 按钮，则退出表单。 Command1 的 Click 事件 R=__1__val(thisform. Text1.Value) if __2__ R0 __3__Thisform. Text2.Value=3.14*R^2 else Messagebox( 圆半径不能为负数！ ) Endif Command2 的 Click 事件 __4__thisform.release 3. 已知：已存在学生 .dbf( 学号，姓名，性别，出生年月，奖学金，简历，照片 )，表中有 20 条记录。 SET TALK OFF CLEAR USE 学生 ? 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)*0.2 ENDIF ? 您需要付费： ，____3____Y WAIT 按任意键继续 …… ____4____ ENDDO SET TALK ON 请选择填空（ ） 5.有 STUDENT.DBF 表文件， 其中学号、 姓名字段为字符型， 性别字段为逻辑型， 出生 年月字段为日期型。查找并显示 1992 年以前出生的学生名单 (表记录如下： ) 记录号学号姓名性别出生年月 1 2012010001 张海静 .F. {^1993-05-06} 2 2012010002 王林丰 .T. {^1992-12-25} 3 2012010005 林小军 .T. {^1993-01-12} 4 2012010008 周伟 .T. {^1992-10-05} 5 2012020007 林华 .F. {^1991-09-18} 6 2012020016 王韵玳 .F. {^1994-03-09} SET TALK OFF CLEAR USE STUDEND ____1____ LOCATE FOR YEAR( 出生年月 )1992 ____2____ DO WHILE !EOF() ? 姓名 ____3____ CONTINUE ____4____ ENDDO USE SET TALK ON 6.显示输出正整数 M( 从键盘输入 ) 内的奇数和奇数之和。 SET TALK OFF CLEAR INPUT M= TO M