vfp表单所有习题参考答案

THISFORM.S=THISFORM.S+1 IF THISFORM.S=60

THISFORM.F=THISFORM.F+1 THISFORM.S=0 ENDIF

IF THISFORM.F=60

THISFORM.H=THISFORM.H+1 THISFORM.F=0 ENDIF

IF THISFORM.H=60

THISFORM.S=THISFORM.S+1 THISFORM.H=0 ENDIF

HH=IIF(THISFORM.H>=10,STR(THISFORM.H,2),'0'+STR(THISFORM.H,1)) FF=IIF(THISFORM.F>=10,STR(THISFORM.F,2),'0'+STR(THISFORM.F,1)) SS=IIF(THISFORM.S>=10,STR(THISFORM.S,2),'0'+STR(THISFORM.S,1)) THISFORM.TEXT1.VALUE=HH+':'+FF+':'+SS

第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。

具体要求如下：

1． 表单的边框为固定对话框，运行时自动居中，不可移动； 2． 表单初始显示内容为表文件“学生.dbf”的首记录；

3． 表单内容将以10秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到首

记录循环翻动。 参考答案：

1．表单的标题属性Caption设置为“学生表内容只读浏览”； 2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.; 3．表单的Movable属性为.F.；

4．时钟控件Timer1的Interval属性为10000。 5．表单的Form1的Init事件代码：

THIS.SETALL(\GO TOP

THISFORM.REFRESH

6．时钟控件Timer1的Timer事件代码：

SKIP IF EOF()

GO TOP

ENDIF

THISFORM.REFRESH

21

第4题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。

具体要求如下：

1． 表单的边框为单线边框，运行时自动居中；

2． 表单初始显示内容为表文件“学生.dbf”的首记录；

3． 当按“前翻” “后翻” “首记录” “末记录” 按钮时，表单将自动显示相应记录的内容； 4． 当翻至表头或表底时，将自动设置相应按钮不可访问。 参考答案：

1． 表单的标题属性Caption设置为“学生表内容只读浏览”； 2． 表单的BorderStyle属性为“1—单线边框”；自动居中属性AutoCenter为.T. 3． 表单的Form1的Init事件代码：

THIS.SETALL(\GO TOP

THISFORM.REFRESH

4． “首记录”按钮Command1的Click事件代码：

go top

thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.command1.enabled=.f. thisform.refresh

5． “前翻”按钮Command2的Click事件代码：

skip -1 if bof()

thisform.command1.enabled=.f. this.enabled=.f. endif

thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.refresh 6．“后翻”按钮Command3的Click事件代码：

skip if eof()

thisform.command3.enabled=.f. thisform.command4.enabled=.f. endif

thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.refresh

22

7．“末记录”按钮Command4的Click事件代码：

go bottom

thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.f. thisform.refresh

第7题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。

具体要求如下：

1． 表单的边框为固定对话框，运行时自动居中；

2． 当用户在组合框（下拉列表）选择班级（学号的左三位）后，表单将自动显示对应班级的所有

学生的总平均成绩；

3． 按“退出”按钮时，自动关闭表单。 参考答案： 1． 表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”； 2． 表单的BorderStyle属性为“2—固定对话框”；自动居中属性AutoCenter为.T.。 3． 组合框Combo1的Init事件代码：

SET TALK OFF

INDEX ON LEFT(学号,3) TO XH UNIQUE SCAN

THIS.ADDITEM(LEFT(学号,3)) ENDSCAN SET INDEX TO 4． 组合框Combo1的Click事件代码：

BJ=THIS.VALUE

AVERAGE FOR LEFT(学号,3)=BJ 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ 5． “退出”按钮Command1的Click事件代码：

thisform.release

第8题：编制一个表单完成数字时钟显示功能（界面如图例所示）。

具体要求如下：

1． 表单的位置在左上角，可移动，表单的边框为无边框；

23

2． 表单将自动以1秒间隔动态显示系统时间； 参考答案：

表单的标题属性Caption设置为“数字时钟”；

表单的位置属性Left为0；Top为0；Movable为.T.； 表单的BorderStyle属性为“0—无边框”； 时钟控件Timer1的Interval属性为1000。

文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。 时钟控件Timer1的Timer事件代码：

s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2)

thisform.text1.value=s+\时\分'+m+'秒'

第10题：编制一个表单完成表文件“成绩.dbf”和“课程.dbf”内容的查询显示功能（界面如图所示）。

具体要求如下：

1． 表单运行时自动居中，不可移动；

2． 当用户在组合框（下拉列表）选择课程后，表单将自动显示该课程的总平均成绩； 3．按“退出”按钮时，自动关闭表单。 参考答案：

1．表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”； 2．表单的自动居中属性AutoCenter为.T.; 3．表单的Movable属性为.F.；

4．组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“课程.课程名”。 5．组合框Combo1的Click事件代码：

SET TALK OFF SELECT 课程 KCH=课程号 SELECT 成绩

AVERAGE FOR 课程号=KCH 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ

6.“退出”按钮Command1的Click事件代码：

thisform.release

第11题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。

24