急救！！！！急救！！！！急救！！！！急救！！！！

Question

大兄：
    你们好，
我现在有一份很重要的作业要在 明天八点钟交请大家帮我解决一下。就是用VB设计一个时钟。（要有时，分，秒指钟）急救！！！！急救！！！！急救！！！！急救！！！！

Answer 1

我刚才写了一个，一个shape,三个line，和一些label就可以了。可以满足你的要求，不过不好看。
界面你自己搞定吧。Option Explicit
Private Const Pie = 3.14159265
Private Const SecondLen = 1230
Private Const MinLen = 0.6 * SecondLen
Private Const HourLen = 0.6 * MinLen
Private Sub Form_Load()
Timer1.Interval = 1000
ClockMove
Form1.Show
End SubPrivate Sub Timer1_Timer()
 ClockMove
End Sub
Public Sub ClockMove()
 SecondLne.X2 = SecondLne.X1 + SecondLen * Cos(Pie * 3 / 2 + 2 * Pie / 60 * Second(Time))
 SecondLne.Y2 = SecondLne.Y1 + SecondLen * Sin(Pie * 3 / 2 + 2 * Pie / 60 * Second(Time))
 MinLne.X2 = MinLne.X1 + MinLen * Cos(Pie * 3 / 2 + 2 * Pie / 60 * Minute(Time))
 MinLne.Y2 = MinLne.Y1 + MinLen * Sin(Pie * 3 / 2 + 2 * Pie / 60 * Minute(Time))
 HourLne.X2 = HourLne.X1 + HourLen * Cos(Pie * 3 / 2 + 2 * Pie / 12 * Hour(Time))
 HourLne.Y2 = HourLne.Y1 + HourLen * Sin(Pie * 3 / 2 + 2 * Pie / 12 * Hour(Time))
End Sub
三个line的头可得在一起，shape的中心。
是不是很简单啊。