用VB编写一个闹钟程序

做一个简单的闹钟程序很简单的。我这里不用if语句。首先我们在窗体上添加一个标签控件，再画一个“闹钟”，将闹钟得interval属性改为1000，双击闹钟，进入闹钟的代码视图，编写代码

private

sub

timer1_timer（）

label1.caption

=

time

end

sub就行了。谢谢采纳

Const π As Single = 3.1415926

Dim t As Date, t0 As Date, t1 As Date, t2 As Date, k As Integer

Private Sub Command1_Click()

  Picture1.Cls

  For i = 0 To 59

    Picture1.Line ((90 * Cos(π / 2 + 6 * i * π / 180)), 90 * Sin(π / 2 + 6 * i * π / 180))-(95 * Cos(π / 2 + 6 * i * π / 180), 95 * Sin(π / 2 + 6 * i * π / 180)), vbBlue

  Next i

  Timer1.Interval = 1000

  k = 0

  Picture1.Line (0, 0)-(80 * Cos(π / 2 + 6 * k * π / 180), 80 * Sin(π / 2 + 6 * k * π / 180)), vbRed

  t0 = Time

End Sub

Private Sub Command2_Click()

  Timer1.Interval = 0

End Sub

Private Sub Form_Load()

  Picture1.AutoRedraw = True

  Picture1.Scale (-100, 100)-(100, -100)

  Picture1.PSet (0, 0)

  For i = 0 To 59

    Picture1.Line ((90 * Cos(π / 2 + 6 * i * π / 180)), 90 * Sin(π / 2 + 6 * i * π / 180))-(95 * Cos(π / 2 + 6 * i * π / 180), 95 * Sin(π / 2 + 6 * i * π / 180)), vbBlue

  Next i

  Picture1.Line (0, 0)-(80 * Cos(π / 2 + 6 * k * π / 180), 80 * Sin(π / 2 + 6 * k * π / 180)), vbRed

End Sub

Private Sub Timer1_Timer()

  Picture1.Cls

  Label1.Caption = CDate(Time - t0)

  For i = 0 To 59

    Picture1.Line ((90 * Cos(π / 2 + 6 * i * π / 180)), 90 * Sin(π / 2 + 6 * i * π / 180))-(95 * Cos(π / 2 + 6 * i * π / 180), 95 * Sin(π / 2 + 6 * i * π / 180)), vbBlue

  Next i

  k = k + 1

  Picture1.Line (0, 0)-(80 * Cos(π / 2 - 6 * k * π / 180), 80 * Sin(π / 2 - 6 * k * π / 180)), vbRed

  If k >= 59 Then k = 0

End Sub

---