请教这个VB代码

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:51:05
请大家帮忙看看这段代码没有注释的下半段是什么意思 ？能帮忙加上注释么？感谢大家了！！！
Private Sub Timer2_Timer() '提醒程序
Dim s, f, i, w2, w1 As Integer
Static k As Boolean '设置k为布尔型
s = Hour(Time) '将系统的小时赋给s
f = Minute(Time) '将系统的分钟赋给f
If Text3.Text > 10 Then '如果Text3大于10
w2 = Text3.Text - 10 '提醒的分钟w2为Text3减10
w1 = Text2.Text '提醒的小时w1为Text2
Else: w2 = Text3.Text + 60 - 10 '否则提醒的分钟w2为Text3加60减10
w1 = Text2.Text - 1 '提醒小时w1为Text2减1
End If
If k = False Then
ElseIf s = Val(w1) And f = Val(w2) Then
k = Not k
Timer1.Enabled = False
Timer2.Enabled = True
Form3.Visible = False
Form4.Visible = True
Beep
ElseIf s = Val(w1) And f = Val(w2) + 1 Then
Form3.Visible = True
Form4.Visible = False
Timer1.Enabled = True
Timer2.Enabled = False
Else
End If
k = Not k
DoEvents
End Sub

Private Sub Timer2_Timer() '提醒程序
Dim s, f, i, w2, w1 As Integer
Static k As Boolean '设置k为布尔型
s = Hour(Time) '将系统的小时赋给s
f = Minute(Time) '将系统的分钟赋给f
If Text3.Text > 10 Then '如果Text3大于10
w2 = Text3.Text - 10 '提醒的分钟w2为Text3减10
w1 = Text2.Text '提醒的小时w1为Text2
Else: w2 = Text3.Text + 60 - 10 '否则提醒的分钟w2为Text3加60减10
w1 = Text2.Text - 1 '提醒小时w1为Text2减1
End If
If k = False Then ‘K值为假就..
ElseIf s = Val(w1) And f = Val(w2) Then '否则如果s的值等于截取w1的数值 和 f的值等于截取w2的数值则：
k = Not k '现在K的值取反~~原来真现在就假，原来假现在就真
Timer1.Enabled = False ’记时器1无效~~即停止
Timer2.Enabled = True ’记时器2有效~~开始记时
Form3.Visible = False '窗体3隐藏了~~后台运行
Form4.Visible = True '窗体4出现在屏幕
Beep
ElseIf s = Val(w1) And f = Val(w2) + 1 Then '否则如果s的值等于截取w1的数值 和 f的值等于截取w2的数值+1则：

Form3.Visible = True ’窗体3可见了
Form4.Visible = False '窗体4隐藏了~~后台运行
Timer1.Enabled = T