内容发布更新时间 : 2024/5/3 1:57:51星期一 下面是文章的全部内容请认真阅读。

四、实验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．实验完成情况及存在问题。