Question

求一个vb程序写法 这个程序启动后label1的内容显示为123，程序运行1分钟后label1的内

求一个vb程序写法
这个程序启动后label1的内容显示为123，程序运行1分钟后label1的内容显示为456，程序运行2分钟后label1显示的是789，运行4分钟时程序结束。
跪求高手

Answer 1

Private Sub Form_Load()
    '--窗体上放一个Timer1,2个标签：lblNum、lblTest
    Timer1.Interval = 6000
    lblNum.Caption = "123"
    lblTest.Caption = "运行时间：0 S"
End Sub

Private Sub Timer1_Timer()
    Static num As Integer
    '--Interval=6000，也就是6秒.用Static类型变量统计时间
    '----另外也可以用全局变量，来做到这一效果
    num = num + 6
    lblTest.Caption = "运行时间：" & num & " S"
    If num = 60 Then    '--1分钟
        lblNum.Caption = "456"
    ElseIf num = 120 Then
        lblNum.Caption = "789"
    ElseIf num = 240 Then   '--4分钟结束
        Unload Me
    End If
End Sub