Private Sub Form_Load()
Me.Caption = "数字时钟"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "yyyy年m月d日")
Label2.Caption = Format(Now, "hh时nn分ss秒")
End Sub
非常简单，但你的图呢？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024