急需一个时钟的VB程序实验报告

代码就是下面的：

Private Sub Form_Load()
Label1.FontSize = 80
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time()
End Sub
怎么一分都没有呀

'窗口中拖一个 Label1 一个时钟，然后代码复制进去！
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static f As Integer
f = f + 1
Label1.Caption = f
End Sub