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()Form1.AutoRedraw=TrueForm1.Height=8000Form1.Width=8000Form1.Scale(-100，-100)-(100，100)Line1.X1=0：Line1.Y1=0Line2.X2=0：Line2.Y1=0‘.>；>；>；Line2.X1=0：Line2.Y1=0Line3.X1=0：Line3.Y1=0Line1.BorderColor=RGB(0，0，0)Line1.BorderWidth=3Line2.BorderColor=RGB(0，0，255)Line2.BorderWidth=2Line3.BorderColor=RGB(255，0，0)Line3.BorderWidth=1Shape1.Top=-95Shape1.Left=-95Shape1.Width=190Shape1.Height=190Shape1.BorderStyle=3Shape1.BorderWidth=3Shape1.BorderColor=RGB(0，0，255)Timer1.Interval=1000End SubPrivate Sub Timer1_Timer()sx=Sin((180-6*Second(Time))*3.14159/180)*65sy=Cos((180-6*Second(Time))*3.14159/180)*65Line3.X2=sxLine3.Y2=symx=Sin((180-6*Minute(Time))*3.14159/180)*65my=Cos((180-6*Minute(Time))*3.14159/180)*65Line2.X2=mxLine2.Y2=myhx=Sin((180-(30*Hour(Time)+30*Minute(Time)/60))*3.14159/180)*40hy=Cos((180-(30*Hour(Time)+30*Minute(Time)/60))*3.14159/180)*40Line1.X2=hxLine1.Y2=hyForm1.CurrentX=-2Form1.CurrentY=80Form1。.
VB程序设计怎么做数字时钟 Private Sub Form_Load()Timer1.Interval=1000Label1.Caption=TimeEnd SubPrivate Sub Timer1_Timer()Label1.Caption=TimeEnd Sub
VB编辑计时器显示当前时间的数字时钟（包括时：分：秒）代码 Private Sub Form_Load()Timer1.Enabled=True Timer1.Interval=1000 Label1.Caption=Time$'在Form_Load就要加上，否则你要等1秒后Label才会开始跑 End Sub Private Sub 。
vb时钟代码编写 Dim P As Single，SJ，SHI As Integer，FEN As Integer，MIAO As IntegerPrivate Sub Form_Load()Timer1.Interval=1000Timer1.Enabled=TrueP=3.1415926End 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
vb时钟代码 '这个是最新修改的。再简单？那等高手解决吧。'祝你学习愉快！'Timer1的Interval属性设为1000'建议Form1的Width属性设为2595，Height属性设为2535Dim a As Integer，b As Integer，rad As DoublePrivate Sub Form_Load()a=Me.ScaleWidth \\ 2 '圆心X坐标b=Me.ScaleHeight \\ 2 '圆心Y坐标rad=Atn(1)/45 '1角度的弧度数Me.DrawWidth=2End SubPrivate Sub Timer1_Timer()Dim angle1 As Double，angle2 As Double，angle3 As Doubleangle1=((Hour(Now)Mod 12)*30+Minute(Now)/2-90)*rad '时针的角度angle2=(Minute(Now)*6+Second(Now)/10-90)*rad '分针的角度angle3=(Second(Now)*6-90)*rad '秒针的角度Cls '清除画面，以便画下一秒的状态Me.Circle(a，b)，720 '画石英钟轮廓For i=1 To 12Me.CurrentX=a-IIf(i，115，170)+600*Cos((i*30-90)*rad)'刻度X坐标Me.CurrentY=b-90+600*Sin((i*30-90)*rad)'刻度Y坐标Print i '画刻度NextMe.Line(a，b)-(a+300*Cos(angle1)，b+250*Sin(angle1))，vbBlue '画时针Me.Line(a，b)-(a+400*Cos(angle2)，b+550*Sin(angle2))，vbBlue '画分针Me.Line(a，b)-(a+600*Cos(angle3)，b+600*Sin(angle3))，vbRed '画秒针End Sub
vb时钟代码 '这个是最新修改的。再简单？那等高手解决吧。'祝你学习愉快！'Timer1的Interval属性设为1000 '建议Form1的Width属性设为2595，Height属性设为2535 Dim a As Integer，b As 。
