VFP程序填空借鉴文本.docx

VFP程序填空借鉴文本.docx

《VFP程序填空借鉴文本.docx》由会员分享，可在线阅读，更多相关《VFP程序填空借鉴文本.docx（2页珍藏版）》请在冰点文库上搜索。

VFP程序填空借鉴文本

1.执行下列命令序列（已知表中有20条记录）

USE学生

?

BOF（）____1____ .F.

?

RECNO（）____2____ 1

SKIP3

?

RECNO（）____3____ 4

GOTOP

DISPNEXT3

?

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*R^2

else

Messagebox（"圆半径不能为负数！

"）

Endif

Command2的Click事件

__4__thisform.release

3.已知：

已存在学生.dbf（学号，姓名，性别，出生年月，奖学金，简历，照片），表中有20条记录。

SETTALKOFF

CLEAR

USE学生

?

RECNO（）____1____1

SKIP6

?

RECNO（）____2____7

DELE

PACK

LIST

?

RECNO（）____3____20

?

RECCOUNT（）____4____19

USE

SETTALKON

编号行对应的输出结果是（  ）