vb怎样实现把一个数每一秒减去1

在窗体上放一个timer1 一个text1
然后在窗体中粘贴如下代码
Option Explicit
Dim i As Long

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
i = 1000
End Sub

Private Sub Timer1_Timer()
i = i - 1
If i = 0 Then
i = 10000
End If

Text1.Text = i
End Sub

安装time控件.

然后将总数-time运行时间就可以