vb怎样实现把一个数每一秒减去1
来源:百度知道 编辑:UC知道 时间:2024/09/26 05:23:41
在窗体上放一个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运行时间就可以