Question

一个VB问题

在窗体上建立一个标签，一个计时器，编写事件过程使运行时，每隔一秒标签中数字加1.要求程序中不得使用变量！
用到选择结构！

Answer 1

Private Sub Form_Load()
Label1.Caption = 0
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Select Case Val(Label1.Caption)
Case Is < 19
Label1.Caption = 1 + Val(Label1.Caption)
Case Else
Label1.Caption = "20秒限定时间已到！"
Timer1.Enabled = False
End Select
End Sub