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

不用任何变量

举报该文章

第1个回答推荐于2017-09-25

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1 'val(标签)是将标签内容数字化·防止出错用的
End Sub
速度自定本回答被提问者采纳

第2个回答 2008-09-08

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

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

Vb如何让数字每隔1秒自动加1
STATIC I AS LONG I=I+1 debug.print i

excel每秒钟单元格的值+任意数字怎么用VB搞
你如果是想取excel单元格里代表日期的秒数的话，只要把该单元格设置为→数字→数值，那么日期自动就变成了距离1970年的秒数值了。然后你就可以直接在vba里引用这个单元格的值了

vb中如何数字自动加1
举个简单例子：Text1.text = Val(Text1.text)+1 ‘把Text1.text内容转换为数值类型，+1后再赋值回去。

vb点击一次按钮text内的数字加1
Private Sub Command1_Click()Text1.Text = CInt(Text1.Text) + 1 End Sub

VB.NET怎么实现按钮每单击一次,数字a就加1。
可以的呀？？？Public Class Form1 Public a As Short = 1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = a + 1 Label1.Text = a End Sub End Class

VB6.0如何设置按下一个按钮令文本框中的数字+1?
加号：if csng（text1.text） < 75 and csng（text1.text） >=0 then text1.text= csng（text1.text）+1 endif 减号：if csng（text1.text） <= 75 and csng（text1.text） >0 then text1.text= csng（text1.text）-1 endif ...

VB中自动数数字求解
在窗体上有三个控件。command1 timer1 text1 程序运行的时候在文本框中输入一个数字。单击按钮。那么将从1开始每隔一秒递增输出一个数字直到输出的这个数字等于你输入的这个数字。代码如下 Dim i, j As Integer Private Sub Command1_Click()i = Val(Text1.Text)Timer1.Interval = 1000 End ...

VB 按钮数字累加
不要再load里定义a了，在通用了好了。dim a as integer Private Sub Command1_Click()a = a + 1 Print a End Sub

相似回答

大家正在搜