VB一个小程序

Option Explicit

Const pi = 3.14159

Private len_S As Single, len_M As Single, len_H As Single

Private Sub Form_Load()

'先取各指针的长度

len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) '秒针长度

len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2) '分针长度

len_H = Sqr((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2) '时针长度

Call timer1_timer

End Sub

Private Sub timer1_timer() '定时器的定时事件过程

Dim s As Single, m As Single, h As Single

Form1.Caption = Time

s = Second(Time)

m = Minute(Time)

h = Hour(Time) + m / 60

'绘制秒针

LineS.X2 = LineS.X1 + len_S * Sin(pi * s / 30)

LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / 30)

'绘制分针

LineM.X2 = LineM.X1 + len_M * Sin(pi * m / 30)

LineM.Y2 = LineM.Y1 - len_M * Cos(pi * m / 30)

'绘制时针

If h >= 12 Then h = h - 12

LineH.X2 = LineH.X1 + len_H * Sin(pi * h / 6)

LineH.Y2 = LineH.Y1 - len_H * Cos(pi * h / 6)

End Sub