VB语言 制作一个指针钟可设置时间 有闹钟功能 很急！！！！ 求详细解答有图最好！！ vb 指针式时钟和数字时钟

vb时钟代码 指针电子表相互转化 Dim i As IntegerPrivate Sub Form_Load()Timer1.Interval=500Form1.Height=8085Form1.Width=9225Timer2.Interval=1000Label1.Visible=False End Sub Private Sub Label2_vb高手进 '在窗口添加Label1和Timer1两个控件'Timer1的Interval属性设为1000'建议Form1的Width属性设为2595，Height属性设为2535'添加以下代码就OK了Dim 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 '画秒针Label1.Caption=Time求一个VB语言编写的指针式时钟 数字表盘 指针可以转动走时的 看看，行不，如果可以，给你源文件。vb上指针式动态时钟的程序代码 Private Sub Command1_Click()Dim i As Integer,j As Integer,A(4)As IntegerDim temp As IntegerFor i=0 To 4A(i)=InputBox(\"请输入数字:\",\"系统提示\",0)Next ii=0j=4For i=0 To 3For j=4 To i+1 Step-1If A(j)(j-1)Thentemp=A(j)A(j)=A(j-1)A(j-1)=tempEnd IfNext jNext iFor i=0 To 4Print CStr(A(i))+\";Next iEnd Sub去试试看吧效果如图在VB中，做一个指针式时钟，什么代码？最好有注释的 Option Explicit '强制变量声明 Private Declare Function MessageBeep Lib\"user32\"(ByVal wType As Long)As Long Private Const MB_OK=H0&Private Declare Function 学校开设了VB选修课，老师让我们编一个时钟，就是那种指针式的，我用的是VB2010，求高手给个代码啊 不难，先占个位子，现在就去写代码，=就好VB语言 制作一个指针钟可设置时间 有闹钟功能 很急！！！！ 求详细解答有图最好！！ VB语言 制作一个指针钟可设置时间 有闹钟功能 很急！求详细解答有图最好！'Line1 代表时针'Line2 代表分针 Dim X0 As Integer,Y0 As IntegerDim L As IntegerConst Pi=3.VB指针式时钟 一分不给 这么大的作业 谁给你做这个我以前做过 不是太难说下思路吧时钟直接定坐标画线闹钟用条件判断波动用mousedown 事件 和mousemove 事件完成不是很难 没分不做怎么样用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 SubVB指针式时钟 不知道LZ要问的是什么？代码我这边有.先新建一个TXT文件（注意是TXT文件），然后复制一下代码在里面：VERSION 5.00 Begin VB.Form Form1 BackColor=H80000013&Caption=

#sub