Question

编写程序vb，拜托了

用计时器按秒计时，在窗体上画一个计时器空间和一个标签，程序运行后，在标签内现实经过的秒数，并响铃

Answer 1

'假设为Timer1和Label1，每10秒一次声音提示：
dim nTimer_Start as single

private sub Form_Load()
nTimer_Start=timer
Timer1.interval=1000
end sub

private sub Timer1_Timer()
dim nElapse as single
nElapse=int(Timer-nTimer_Start)
Label1.caption=nElapse
if nElapse mod 10=0 then beep
end sub

Answer 2

添加一个timer，一个label
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1 = Val(Label1) + 1
Beep
End Sub