Private Sub Timer1_Timer()label1.caption = "今天是" & Format(Now(),"yyyy年m月d日") & WeekdayName(Weekday(Now(),vbSunday))label2.caption = Format(Now(),"hh:mm:ss")end sub把TIMER1的interval设成1000楼上...