期末vb机试题3,在线等高手解答!

来源:百度知道 编辑:UC知道 时间:2024/05/28 08:09:00
在窗体上建有标签(Label1)、定时器(Timer1)和两个命令按钮(Command1、Command2)。Label1用于显示系统时间的数字式表,每0.5秒显示一次新的时间,其BorderStyle属性为:1 - Fixed Single;Command1、Command2分别用于“计时”、“暂停”。要求:1)设置Label1和Timer1的属性;2)在编写的Command2_Click()和Timer1_Timer()二个过程代码中各有一个错误,请调试改正。调试改正时,每个过程代码只能改一次,并不得增删语句。
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Label1.Caption <> Time() Then
Label1.Caption = Timer()
End If
End Sub

谢谢啦!

Private Sub Command2_Click()
Timer1.Enabled = True 应改成:Timer1.Enabled = False '计时器停止,计时器中代码不再执行。
Label1.Caption = Timer() 应改成:Label1.Caption =Now()'显示系统现在的时间