Question

用vb设计一个倒计时50分钟的程序。用一个按钮控制开始与启动，一个标签显示倒计时格式xx:xx:x

用vb设计一个倒计时50分钟的程序。用一个按钮控制开始与启动，一个标签显示倒计时格式xx:xx:xx。（如果可以的话再三分钟的时候有一个铃声提示，这个不写也成，主要是前面的）

Answer 1

窗体中做一个标签，一个命令按钮，一个定时器，以下是代码：

Dim n As Integer

Private Sub Command1_Click()

  Timer1.Interval = 100

End Sub

Private Sub Form_Load()

  n = 30000

  Label1.FontSize = 40

  Label1.Alignment = 2

  Label1.Caption = "50:00.0"

  Command1.Caption = "倒计时启动"

End Sub

Private Sub Timer1_Timer()

  n = n - 1

  m = n \ 600

  s = (n Mod 600) \ 10

  If s < 10 Then s = "0" & s

  ss = n Mod 10

  Label1.Caption = m & ":" & s & "." & ss

End Sub

Answer 2

个