一道vb 简单设计题

来源:百度知道 编辑:UC知道 时间:2024/07/05 13:51:53
请在名称为FORM1的窗体上画一个名称为TEXT1的文本框,初始内容为0,画一个命令按钮数组,名称为C1,含两个命令按钮,它们的 INDEX属性分别为0、1,标题分别为“开始计数”和“停止计数”,再画一个名称为TIMER1计时器。请设置计时器的适当属性,使得程序初始运行时,不计数,当单击“开始计数”按钮时,才开始计数,且每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。

Private Sub Timer1_Timer()
Dim s As Integer
s = s + 1
Text1.Text = s
End Sub
Private Sub C1_Click(Index As Integer)
Select Case Index
Case 1
Timer1.Enabled = False
Case 0
Timer1.Enabled = True
End Select
End Sub
谁能帮我看看那错了 ,为什么运行以后就是点开始计时就由0变1,然后不走了

Dim s As Integer

Private Sub Timer1_Timer()
s = s + 1
Text1.Text = s
End Sub
Private Sub C1_Click(Index As Integer)
Select Case Index
Case 1
Timer1.Enabled = False
Case 0
Timer1.Enabled = True
End Select
End Sub

变量s 的问题,你把dim s as integer放在最上面,不能出现在timer 事件中,不然每次都定义s,所以s回归0了,放到通用里,每次s的值才不会被重置