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制作表盘时钟 并含有数字 要代码 把以下代码保存成一个后缀名为.FRM的文件中，再用VB打开即可。VERSION 5.00Begin VB.Form frmClockBorderStyle=1 'Fixed SingleCaption=\"钟 by YTYClientHeight=2550ClientLeft=45ClientTop=330ClientWidth=2505DrawWidth=2Icon=\"Form1.frx\"：0000LinkTopic=\"Form1MaxButton=0 'FalseMinButton=0 'FalseScaleHeight=2550ScaleLeft=-1000ScaleMode=0 'UserScaleTop=-1000ScaleWidth=2505StartUpPosition=3 '窗口缺省Begin VB.Timer Timer1Interval=1000Left=120Top=2280EndBegin VB.Label Label2Caption=\"Label2Height=375Index=11Left=0TabIndex=12Top=0Width=375EndBegin VB.Label Label2Caption=\"Label2Height=375Index=10Left=0TabIndex=11Top=0Width=375EndBegin VB.Label Label2Caption=\"Label2Height=375Index=9Left=0TabIndex=10Top=0Width=375EndBegin VB.Label Label2Caption=\"Label2Height=375Index=8Left=0TabIndex=9Top=0Width=375EndBegin VB.Label Label2Caption=\"Label2Height=375Index=7Left=0TabIndex=8Top=0Width=375EndBegin VB.Label Label2Caption=\"Label2Height=375。
VB编辑计时器显示当前时间的数字时钟（包括时：分：秒）代码 Private Sub Form_Load()Timer1.Enabled=True Timer1.Interval=1000 Label1.Caption=Time$'在Form_Load就要加上，否则你要等1秒后Label才会开始跑 End Sub Private Sub 。
怎么样用vb写一个简单的数字式时钟，不要指针式的。。要自己输入时间，点击button就顺着这时间走的？？ Dim i，j，kPrivate Sub Command1_Click()i=Text1.Textj=Text2.Textk=Text3.TextLabel1.Caption=i&\"：\"&j&\"：\"&kTimer1.Enabled=TrueEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Call jishiEnd SubPrivate Sub jishi()If kk=k+1Elsek=0j=j+1If j>；59 Thenj=0i=i+1If i>；23 Then i=0End IfEnd IfLabel1.Caption=i&\"：\"&j&\"：\"&kEnd 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
