Question

VB中每隔一秒钟标签的数字加一

不用任何变量

Answer 1

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1 'val(标签)是将标签内容数字化·防止出错用的
End Sub
速度自定

Answer 2

添加个Timer控件
设置执行时间间隔为1000
事件中代码 label.Text = Val(label.Text)+1;