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