最简单的方法比如用label框显示在Timer下的语句就写label1.caption=Time
Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd Sub