试题三 【应用说明7】
本应用程序的运行窗口显示一行字“欢迎光临”,还有2个按钮,一个显示“闪烁”;一个显示“停止”。只要用户单击“闪烁”按钮,文字“欢迎光临”就会以0.5秒消失、0.5秒显示反复进行闪烁;单击“停止”按钮时,闪烁停止,恢复图示的初态。
在开发过程中,需要设置的属性如表4.1所示。
表4.1 属性设置 对象 | 对象名 | 属性名 | 属性值 |
窗体 | Frml | Caption | 闪烁显示演示 |
标签 | Label | Caption | 欢迎光临 |
命令按钮 | CmdF | Caption | 闪烁 |
命令按钮 | CmdT | Caption | 停止 |
定时器 | Timerl | 1 | false |
| | Interval | 2 |
在开发过程中,需要编写的程序代码如下:
【程序代码7】
Ptivate Sub CmdF_Click()
Timerl Enabled =
(3) Label Visible = False
End Sub
Ptivate Sub Timet1_Timer()
Label Visible = not
(4) End Sub
Ptivate Sub CmdT_Click()
Timerl Ensbled =
(5) Label Visible = true
End Sub
2.
500
[解析] 单击“闪烁” 按钮后,文字才开始闪烁,所以初始时定时器并未启动,(1)处应填定时器的Enabled属性。定时器的时间间隔为0.5秒,即500毫秒,所以(1)处应填500(Interval属性的单位是毫秒)。
5.
false
[解析] 单击“闪烁”按钮后,应启动定时器,所以修改Timerl的Enable属性为True。定时器到时的时候,应当使Label的是否可见属性(Visible)取反,所以(4)处应填Label.Visible。单击“停止”按钮后,应停止定时器,所以修改Timerl的Enable属性为false。