VB TIMER控制闪烁问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 07:43:46
要求是先让最高分闪烁3秒钟，暂停2秒钟，再闪烁最低分3秒钟。程序怎么做啊？最好能给源码及解题思路。

Private Sub Timer1_Timer()
Timer1.Interval = 500
'最高分和高低分 用Label控件示意
Static a!
a = a + 0.5
Select Case a
Case 0 To 3 '最高分闪3s
最高分.Visible = Not 最高分.Visible
Case 3 To 5 '暂停2s
最高分.Visible = True
Case 5 To 8 '最低分闪3s
最低分.Visible = Not 最低分.Visible
Case Else '结束
最低分.Visible = True
Timer1.Enabled = False
a! = 0
End Select
'test
Me.Caption = a
End Sub