vb问题，高手帮下忙

一:
Timer1属性:
Interval:10000
Enable:True
Timer2属性:
Interval:1000 '如果你想显示的平滑些,即时间不会因为系统忙出现跳秒现象,就设置成100
Enable:True

二:
Timer1无错误,但IF语句可以简写为:If Label1.Visible Then,另外,如果你想日期如果发生变化时,显示值也变,那就需要在label1的事件中增加:
Label1.Caption = Trim(Str(Year(Date))) + "年" + Trim(Str(Month(Date))) + "月" + Trim(Str(Day(Date))) + "日"
Timer2中Label2.Caption = Timer()有错误,将时间写成计时器函数了,应改为:
Label2.Caption = Time()

一、设置计时器Timer1 和Timer2的属性
1、Timer1 interval属性 设10000
2、Timer2 interval属性 设1000
二、
1、Timer1_Timer()没错误
2、Timer2_Timer()中Label2.Caption = Timer()改为Label2.Caption = Time()

temer1.interval = 10000
temer2.interval = 1000
Private Sub Timer2_Timer()
If Label2.Caption <> Time() Then
Label2.Caption = Time$
End If
End Sub
设计一个窗口，日历牌每10秒显示一次，每次显示10秒；系统时间的数字式表每秒显示一次新的时间。说明要一直显示日期的吧
如果只能改一处
那就只能
Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = True
Else
Label1.Visible = True
End If
End Sub
其实这要不好
日期只能显示的是刚运行时的日期不会改变

Private Sub Form_Load()
Label1.Caption = Trim(Str(Year(Date))) + "年" + Trim(Str(Month(Date))) + "月" + Trim(Str(Day(Date))) + "日"
Label2.Caption = Time()
Timer1.Interval = 10000
Timer2.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

Private Sub Timer2_Timer()
If Label2.Caption <> Time() Then
Label2.Caption = Time()
End If
End Sub