h=Hour(Time)+m/60因為要制作一個指針時鐘，您的答案我試過了，指的位置不對啊窗體上加一個timer1,intervar設(shè)為1000(毫秒)；加3個line，3個line的x1、y1相同；一個shape控件，shape屬性設(shè)為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