请问输入以下有什么错误
Private Sub Form_Load()
   
    Form1.Show
   
    Form1.Cls
   
    Form1.Print "北京时间:"

End Sub

Private Sub Timer1_Timer()
   
    Label1.Caption = Time

End Sub
我要做电子钟，但始终有错，怎么回事？

Timer1.Interval = 100

timer1.interval=1000为一秒

小于等于1000都可以啊

为什么？

先设置timer1.interval=1000
Enabled = True
Private Sub Timer1_Timer()
    Dim X As String
    X = Format(Now, "w")
   
    If Format(Now, "w") = 1 Then X = "星期日"
    If Format(Now, "w") = 2 Then X = "星期一"
    If Format(Now, "w") = 3 Then X = "星期二"
    If Format(Now, "w") = 4 Then X = "星期三"
    If Format(Now, "w") = 5 Then X = "星期四"
    If Format(Now, "w") = 6 Then X = "星期五"
    If Format(Now, "w") = 7 Then X = "星期六"
   
    Label1.Caption = Format(Now) + Chr(13) + Chr(10) + X
End Sub

x=format(now,"w")这句可不可以解释下啊，谢谢

X只不过是一个临时变量，使代码看起来简洁

在VB里，怎样调试？

[[it] 本帖最后由 机关报 于 2008-4-12 20:07 编辑 [/it]]

F5