VB程序设计怎么做数字时钟 Private Sub Form_Load()Timer1.Interval=1000Label1.Caption=TimeEnd SubPrivate Sub Timer1_Timer()Label1.Caption=TimeEnd Sub
vb中设置一个数字时钟界面，每改变一秒就更新一次，求程序。 Private Sub Form_Load()Me.Caption=\"数字时钟\"Timer1.Interval=1000 Timer1.Enabled=True End Sub Private Sub Timer1_Timer()Label1.Caption=Format(Now，\"yyyy年m月d日\")。
怎么使用VB来编写一个时钟？ 最简单的时钟：在窗体处添加一个picturebox，一个计时器Private Sub Timer1_Timer()Picture1.ClsPicture1.Print\"\"&timeend sub
VB要求设计一个数字时钟界面，我已经设计了一部分，不明白为什么完全不动，对计时器很不在行啊，求速答 Private Sub Form_Load()程序改正如下：Label1.Caption=Format(Now()，\"hh时mm分ss秒\")此行去掉！Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()Timer1.Interval=1000Label1.Caption=Format(Now()，\"hh时mm分ss秒\")End Sub
VB数字时钟的制作 添加一个label控件命名为label添加一个timer控件命名为timer1设置timer1的Interval属性为1000添加一下代码Dim Hour As Integer '小时Dim Min As Integer '分钟Dim Sec As Integer '秒Private Sub Form_Load()Hour=0Min=0Sec=0Label1.Caption=\"00：00：00End SubPrivate Sub Timer1_Timer()Dim strHour As StringDim strMin As StringDim strSec As StringSec=Sec+1If Sec>；=60 ThenSec=0Min=Min+1If Min>；=60 ThenMin=0Hour=Hour+1If Hour>；=24 ThenHour=0End IfEnd IfEnd IfIf HourstrHour=\"0\"&HourElsestrHour=HourEnd IfIf MinstrMin=\"0\"&MinElsestrMin=MinEnd IfIf SecstrSec=\"0\"&SecElsestrSec=SecEnd IfLabel1.Caption=strHour&\"：\"&strMin&\"：\"&strSecEnd Sub
VB编辑计时器显示当前时间的数字时钟（包括时：分：秒）代码 Private Sub Form_Load()Timer1.Enabled=True Timer1.Interval=1000 Label1.Caption=Time$'在Form_Load就要加上，否则你要等1秒后Label才会开始跑 End Sub Private Sub 。
vb中设置一个数字时钟界面，每改变一秒就更新一次，求程序。 Private Sub Form_Load()Me.Caption=\"数字时知钟Timer1.Interval=1000Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()Label1.Caption=Format(Now，\"yyyy年道m月d日内\")Label2.Caption=Format(Now，\"hh时nn分ss秒容\")End Sub
