Question

求用VB解答

Answer 1

制作这个程序的时候先在窗体中加入一个标签，并且把窗体标签的内容设置为空，然后再制作一个命令按钮，也把命令按钮的显示改为开始，再加入一个定时器控件。核心在于计时器控件中。需要设置一个全局变量t，并且在窗体的装载事件中设置t的值为60，并且把标签的显示就是等于t。然后设置定时器控件的属性，时间属性为1000毫秒，每隔1000毫秒之后，定时器控件就触发一次，把t的值减1，并且更新标签的显示内容，当t的值达到0的时候就不显示0，而是显示“时间到”三个汉字。并设置定时器控件的interval属性为0

Dim t As Integer

Private Sub Form_Load()

  t = 60

  Label1.Caption = t

  Label1.Alignment = 2

  Command1.Caption = "开始"

  Timer1.Interval = 1000

  Label1.FontSize = 24

End Sub

Private Sub Timer1_Timer()

  t = t - 1

  If t > 0 Then

    Label1.Caption = t

  Else

    Label1.Caption = "时间到"

    Timer1.Interval = 0

  End If

End Sub