代码短所应该写几行代码写行用冒号连接 等同于 Private Sub Timer依_Timer() Form依.Caption = Time + Date h = Hour(Time) m = Minute(Time) s = Second(Time