vb6.0中要是一个变量p每大约10秒加1的代码该怎么写
第1个回答 2008-05-20
在窗体中加入timer控件,将它的interval属性设置为1000,然后在timer1_timer事件中加入如下代码:
Private Sub Timer1_Timer()
p = p + 1
End Sub
p的初始值要在全局中设置一下,比如初始值为:p=0即可
Private Sub Timer1_Timer()
p = p + 1
End Sub
p的初始值要在全局中设置一下,比如初始值为:p=0即可
第2个回答 2008-05-20
Dim P as Long
Private Sub Timer1_Timer()
'请先设置Timer1控件的Interval属性为1000
P=P+1
Print P
End Sub本回答被提问者采纳
Private Sub Timer1_Timer()
'请先设置Timer1控件的Interval属性为1000
P=P+1
Print P
End Sub本回答被提问者采纳