本文共 335 字,大约阅读时间需要 1 分钟。
Dim N As Integer ‘定义N变量为数字Private Sub Form_Load()N = 10’默认N等于 10Timer1.Interval = 1000 '设置频率时间1秒Timer1.Enabled = True '开启End SubPrivate Sub Timer1_Timer()N = N - 1If N > 0 ThenLabel1.Caption = "倒计时为:"& NElseLabel1.Caption = "时间到"Timer1.Enabled = FalseEnd IfEnd Sub
转载地址:http://nsugn.baihongyu.com/