在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程:
Private Sub Form_Load()
Timer1. Enabled=False
Timer1. Interval= 【8】
End Sub
Private Sub Form_Cliek()
Timer1. Enabled= 【9】
End Sub
Private Sub Timer1_Timer()
Label1. Caption= 【10】
End Sub
程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟改变一次。请填空。
参考答案:[8]1000 [9]True或任何非0数值 [10]Time或Time$
解析:
[分析]: 根据题意:将Interval属性为1 000毫秒;在单击窗体后,为了能使计数器有效,应该将Enabled设置为True或任何非0数值。Time函数来显示系统时间,此函数返回一个Varianr,以日期/时间数值(VarType 7)的形式包含当前时间。将它赋予某个字符串变量或属性时,比如赋予本题中Label1标签的Caption属性时,Visual Basic将用“控制面板”中指定的格式将其转换成一个字符串。