VB倒计时突然加速代码

很容易呀..

在TIMER控件里, 开始的Interval 值是个大一点的值, 等计数从100到70时, 改变Interval的值,使它变的更小..那么后面的70的速度就比前面快多了.

补充代码:
'新建工程,放置1个timer就行了

Dim n%

Private Sub Form_Load()
Timer1.Interval = 500
n = 100
End Sub

Private Sub Timer1_Timer()
Cls
Print "这是第" & n & "次! 现在的速度是" & Timer1.Interval & "毫秒!"
n = n - 1

If n = 70 Then Timer1.Interval = 100
If n = 0 Then
Cls
Print "完成了"
Timer1.Enabled = False
End If

End Sub

思想如下：

目的地 = 0
加速度 = 20
当前数字 = 100

每毫秒100执行次（
当前数字 = 当前数字 - （（当前数字 - 目的地） / 加速度 ）
）

你要做炸弹啊??????我直接教你怎么做炸弹吧