搜索
四、实验6-1报告1．实验过程报告（1）写出第2题“数字时钟”表单的Init事件和Timer事件的代码。答：“数字时钟”表单的Init事件代码为：THISFORM.TEXT1.VALUE=LEFT(TIME(),2)+时+SUBSTR(TIME(),4,2)+分+SUBSTR(TIME(),7,2)+秒THISFORM.REFRESHTimer事件的代码为：THISFORM.INITTHISFORM.REFRESH（2）写出第3题“圆球跳动”表单的Timer事件的代码。答：“圆球跳动”表单的Timer事件的代码为：IFTHISFORM.SHAPE1.TOP=0THISFORM.SHAPE1.TOP=THISFORM.HEIGHT-THISFORM.SHAPE1.HEIGHTELSETHISFORM.SHAPE1.TOP=0ENDIFTHISFORM.REFRESH（3）写出第4题“职工表自动只读浏览”表单的Timer事件的代码。答：“职工表自动只读浏览”表单的Timer事件的代码为：SKIPIFEOF()GOTOPENDIFTHISFORM.REFRESH2．简答题（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．实验完成情况及存在问题。