急救一个困惑许久的问题

vb如何实现一个程序先运行10s，然后停止1小时后，再继续运行一个小时，如此循环。。。。。。 --------------------编程问答-------------------- Timer控件？ --------------------编程问答--------------------

Option Explicit

Dim flag As Integer

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 1000

Label1.Caption = "运行中,10秒后暂停.."

flag = 0

Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

Timer1.Interval = Timer1.Interval + 1000

If flag = 0 And Timer1.Interval = 10000 Then

    Timer1.Interval = 60000: flag = 1: Label1.Caption = "暂停中,1小时后运行.."

ElseIf flag = 1 And Timer1.Interval = 5000 Then

    Timer1.Interval = 60000: flag = 2: Label1.Caption = "运行中,1小时后运行.."

ElseIf flag = 2 And Timer1.Interval = 5000 Then

    Timer1.Interval = 60000: flag = 1: Label1.Caption = "暂停中,1小时后运行.."

End If



End Sub

--------------------编程问答--------------------

引用 2 楼 xiaolinyouni 的回复:

VB code
Option Explicit
Dim flag As Integer
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "运行中,10秒后暂停.."
flag = 0
Timer1.Enabled = True
End Sub

Private Sub ……

草,弄错地方了
修正

Option Explicit

Dim flag As Integer

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 1000

Label1.Caption = "运行中,10秒后暂停.."

flag = 0

Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

Timer1.Interval = Timer1.Interval + 1000

If flag = 0 And Timer1.Interval = 10000 Then

    Timer1.Interval = 1000: flag = 1: Label1.Caption = "暂停中,5秒后运行.."

ElseIf flag = 1 And Timer1.Interval = 60000 Then

    Timer1.Interval = 1000: flag = 2: Label1.Caption = "运行中,5秒后运行.."

ElseIf flag = 2 And Timer1.Interval = 60000 Then

    Timer1.Interval = 1000: flag = 1: Label1.Caption = "暂停中,5秒后运行.."

End If



End Sub

--------------------编程问答-------------------- 我中午喝酒喝多了..晕乎了,你凑活着改改3楼的,用吧. --------------------编程问答--------------------

引用 4 楼 xiaolinyouni 的回复:

我中午喝酒喝多了..晕乎了,你凑活着改改3楼的,用吧.

O(∩_∩)O哈哈~都过三天了才有人

补充：VB ,  基础类