UC知道vb倒计时问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 19:17:01
Private Sub form_load()
Dim A As String
A = 10
Text1.Text = A
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
A = A - 1
Text1.Text = A
End Sub
为什么TEXI1显示出来的一下子就变成-1了
Dim A As String
A = 10
Text1.Text = A
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
A = A - 1
Text1.Text = A
End Sub
为什么TEXI1显示出来的一下子就变成-1了
Dim A As String 这句应该定认在全局位置
Private Sub form_load()
Dim A As String 不在这定义
A = 10
Text1.Text = A
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
A = A - 1
Text1.Text = A
End Sub
前两句交换一下位置。
Private Sub form_load()
Dim A As String
改为
Dim A As String
Private Sub form_load()
变量定义问题,将A定义为全局变量就可以了,且变量类型也有问题
也就是Dim A As String 提到程序开始处,改为
Public A As Integer
form_load中的A是局部变量=10
而定时器中的A也是局部变量=0，A=A-1，A=-1
两个变量各不相关，触发定时器就变成-1了