VB作业,制作一个数字时钟,又图,非常感谢!

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 20:15:30

VB作业,制作一个数字时钟,又图,非常感谢!

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
楼上你弄简单点,把人家吓到了