编写一个计时程序

来源：百度知道 编辑：UC知道 时间：2024/06/09 15:43:11
界面要求：
* 使用标签、命令按钮、时钟控件完成。
* 运行要求：
* 1、点击“开始”按钮，标签显示“你好”并且字体大小为30，每隔一秒，标签中字符的字体大小增2；
* 2、当字体大小为50时，使用MsgBox显示“显示完毕”，并停止增加字体大小。

'界面要求:
'* 使用标签、命令按钮、时钟控件完成。
'* 运行要求：
'* 1、点击“开始”按钮，标签显示“你好”并且字体大小为30，每隔一秒，标签中字符的字体大小增2；
'* 2、当字体大小为50时，使用MsgBox显示“显示完毕”，并停止增加字体大小。
Private Sub Command1_Click()
Label1.Caption = "你好"
Label1.FontSize = 30
Timer1.Enabled = True
Timer1.Interval = 1000
Command1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 2
If Label1.FontSize >= 50 Then
MsgBox "显示完毕"
Timer1.Enabled = False
Command1.Enabled = True
End If
End Sub

日,这也问!