vb的定时器语句怎么弄(1分钟的)

首先你得加一个timer和两个label,将Timer1的Interval属性设置为1000(1秒)触发一次。把label1的caption设置为60,然后代码:

private

sub

timer1_time()'将时间附值给label2

if

label2.caption<>str(timer)then

label2.caption=timer'在label2上显示时间

end

if

end

sub

private

sub

label2_change()'当label2发生变化时

label1.caption=label1.caption-1

if

label1.caption=0

then'如果label1=0那么

end

'在这加入退出程序代码或者其它的.

end

if

end

sub

创建一个timer控件，它的interval属性是以毫秒为单位的，1分钟就是60000毫秒

private sub form_load()

timer1.interval=60000

end sub

private sub timer1_timer()

'你的 *** 作代码

end sub

---