四、实验6-1报告
1．实验过程报告
（1）写出第2题“数字时钟”表单的Init事件和Timer事件的代码。 答：“数字时钟”表单的Init事件代码为：
THISFORM.TEXT1.VALUE=LEFT(TIME(),2)+\时\分\秒\
THISFORM.REFRESH
Timer事件的代码为： THISFORM.INIT THISFORM.REFRESH
（2）写出第3题“圆球跳动”表单的Timer事件的代码。 答：“圆球跳动”表单的Timer事件的代码为： IF THISFORM.SHAPE1.TOP=0
THISFORM.SHAPE1.TOP=THISFORM.HEIGHT-THISFORM.SHAPE1.HEIGHT ELSE
THISFORM.SHAPE1.TOP=0 ENDIF
THISFORM.REFRESH
（3）写出第4题“职工表自动只读浏览”表单的Timer事件的代码。 答：“职工表自动只读浏览”表单的Timer事件的代码为： SKIP IF EOF()
GO TOP ENDIF
THISFORM.REFRESH 2．简答题
（1）怎样使标签中的文字以竖行的形式显示？
答：将标签中属性名为WordWrap的属性由初始的默认值“.F.—假”设置为“.T.—真”，就可以使标签中的文字以竖行的形式显示。
（2）“圆球跳动”表单的圆球是使用的什么对象？怎样才能由方圆？改变球的颜色用的什么属性？怎样知道球到达了表单的顶部和底部？
答：“圆球跳动”表单的圆球是使用的图形控件—形状（Shape）对象。将形状中属性名为Curvatuer的属性值设置为99（圆）便可以由方变为圆。改变球的颜色用的BackColor属性。当shape的top属性值等于0时，球到达了表单的顶部；当shape的top属性值等于表单的height值减去shape的height值时，球到达了表单的底部。
（3）在文本框中显示文字要用什么属性？使文本框以只读的方式显示数据要用什么属性？
答：在文本框中显示文字要用属性名为DateFormat的属性，设置其属性值为“14—汉字”。 使文本框以只读的方式显示数据要用属性名为ReadOnly的属性，将其属性值由初始的默认值“.F.”设置为“.T.”。
（4）在什么条件下计时器控件的Timer事件代码才能运行？
答：当计时器中属性名为Enabled的属性由初始的默认值“.F.”设置为“.T.”时，计时器控件的Timer事件代码才能运行。
3．实验完成情况及存在问题。