VB时钟计数

画一个文本框,初始内容为0，画一个命令按钮，再画一个计数器。要求开始运行时不计数，单击“开始计数”按钮后，则使文本框中的数每秒加1！

答案：我真服了你!!!
现把主要事件代码写给你.
Private Sub Command1_Click()
Timer1.Interval = 1000 '1000ms=1s
Timer1.Enabled = True '启用计时器
End Sub

Private Sub Timer1_Timer()
Text1.Text = Str(Val(Text1.Text) + 1) 'text的初始值爱填多少填多少
'这里是把text先转为数字,再加1,再转为text输出
End Sub

上一个：用51单片机汇编语言，数码管静态轮流显示1~F
下一个：怎么学好汇编语言程序设计思想？