![[填空题] 在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程:Private Sub Form,第1张 [填空题] 在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),如图16-11所示,然后编写如下几个事件过程:Private Sub Form,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E7%94%BB%E4%B8%80%E4%B8%AA%E6%A0%87%E7%AD%BE%28%E5%90%8D%E7%A7%B0%E4%B8%BALabel1%29%E5%92%8C%E4%B8%80%E4%B8%AA%E8%AE%A1%E6%97%B6%E5%99%A8%28%E5%90%8D%E7%A7%B0%E4%B8%BATimer1%29%EF%BC%8C%E5%A6%82%E5%9B%BE16-11%E6%89%80%E7%A4%BA%EF%BC%8C%E7%84%B6%E5%90%8E%E7%BC%96%E5%86%99%E5%A6%82%E4%B8%8B%E5%87%A0%E4%B8%AA%E4%BA%8B%E4%BB%B6%E8%BF%87%E7%A8%8B%EF%BC%9APrivate+Sub+Form.png)
[填空题] 在窗体上画一个标签(名称为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将用“控制面板”中指定的格式将其转换成一个字符串。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)