VB程序设计农林院校例4.6

来源：百度知道编辑：UC知道时间：2024/06/15 18:54:59

代码错误大家帮看看
Dim a As Date, b As Date, c As String
Private Sub Cmd1_Click()
Timer1.Enabled = False
a = Time
Label1.Caption = "开始时间:" & a
Cmd1.Enabled = False
Cmd2.Enabled = True
End Sub

Private Sub Cmd2_Click()
Timer1.Enabled = True
b = Time
Label2.Caption = "结束时间" & b
c = "经历时间:" & Format(b - a, "hh:mm:ss")
MsgBox c, vbOKOnly + vbInformation, "计时系统设计"
Label3.Caption = c
Cmd1.Enabled = True
Cmd2.Enabled = False
End Sub

显示的是Timer1.Enabled = False 这个错误错误代码424

当Timer的可操作性为假时，即Enabled = False 。那个“Time”就不存在值了，就像没有了电池的电子表会显示时间吗？所以你下面的“a = Time”就会出现赋值的错误，因而VB的语法检错功能提示你“Timer1.Enabled = False 这个错误错误代码424 ”。为了避免这个你可以把“a = Time”这条语句提到Timer1.Enabled = False之前。就不会这样了。你的第二个过程中也犯了同样的错误，按照我上面说的那样改应该就OK了

VB程序设计交通灯程序设计 vb程序设计: vb 程序设计 VB程序设计 Vb 程序设计全国高校农林院校和师范院校排名 vb 程序设计闹钟 vb程序设计问题求助~~！！VB程序设计如何加强VB程序设计