Question

vb我编的电子日历就是不行呢

Private Sub Timer1_Timer()
Dim T As String, W As Integer
Dim P1 As Integer, P2 As Integer
Label1 = Year(Date)
Label3 = Month(Date)
Label5 = Day(Date)
T = Time
P1 = 1
P2 = InStr(T, ":")
Label7 = Mid(T, P1, P2 - P1)
P1 = P2 + 1
P2 = InStr(P1, T, ":")
Label10 = Val(Mid(T, P1, P2 - P1))
P1 = P2 + P1
Label11 = Val(Mid(T, P1))
W = Weekday(Date, vbMonday)
Label6 = Format(Weekday(Date, 0), "dddd")
If W = 7 Or W = 6 Then
Label6.ForeColor = vbRed
Label5.ForeColor = vbRed
Else
Label6.ForeColor = vbBlack
Label5.ForeColor = vbBlack
End If
End Sub

Answer 1

你不妨设置一下Timer1_Timer()的属性中的那个时间间隔
最近重装了系统，vb软件还没装，所以你自己试一试，但愿问题能得到解决。