设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是

A．Private Sub Timer1_Timer()
Label1.Caption=True
End Sub
B．Private Sub Timer1_Timer()
Label1.Caption=Time $
End Sub
C．Private Sub Timer1_Timer()
Label1.Interval=1
End Sub
D．Private Sub Timer1_Timer()
For k=1 To Timer1.Interval
Label1.Caption=Timer
Next k
End Sub