h=Hour(Time)+m/60因为要制作一个指针时钟，您的答案我试过了，指的位置不对啊窗体上加一个timer1,intervar设为1000(毫秒)；加3个line，3个line的x1、y1相同；一个shape控件，shape属性设为3，圆心为x1,y1，把下面代码拷贝到窗体代码中，运行即可Const pi = 3.14159Dim len1, len2, len3 As SinglePrivate Sub Form_Load()len1 = Sqr((Abs((Line1.Y2 - Line1.Y1))) ^ 2 + (Abs(Line1.X2 - Line1.X1)) ^ 2)len2 = Sqr((Abs((Line2.Y2 - Line2.Y1))) ^ 2 + (Abs(Line2.X2 - Line2.X1)) ^ 2)len3 = Sqr((Abs((Line3.Y2 - Line3.Y1))) ^ 2 + (Abs(Line3.X2 - Line3.X1)) ^ 2)End SubPrivate Sub timer1_timer()s = Second(Time)m = Minute(Time)h = Hour(Time) + m / 60Line1.X2 = Line1.X1 + len1 * Sin(pi * s / 30)Line1.Y2 = Line1.Y1 - len1 * Cos(pi * s / 30)Line2.X2 = Line2.X1 + len2 * Sin(pi * m / 30)Line2.Y2 = Line2.Y1 - len2 * Cos(pi * m / 30)If h >= 12 Then h = h - 12Line3.X2 = Line3.X1 + len3 * Sin(pi * h / 6)Line3.Y2 = Line3.Y1 - len3 * Cos(pi * h / 6)End Sub