用VB编写一个闹钟程序

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

private

sub

timer1_timer（）

label1.caption

=

time

end

sub就行了。谢谢采纳

下面是一个时钟程序代码，你可以参考一下。

Const

PI

=

3.14159265

Dim

H,

W,

R

As

Integer

'窗体高、宽、圆半径

Private

Sub

BiaoKe()

Dim

I

As

Integer

'外盘

Circle

(W

\

2,

H

\

2),

R,

vbBlue

'中心

Circle

(W

\

2,

H

\

2),

1,

vbWhite

'盘面各点

For

I

=

0

To

59

If

I

Mod

5

=

0

Then

Circle

(W

\

2

+

R

*

Cos(I

*

PI

/

30),

H

\

2

+

R

*

Sin(I

*

PI

/

30)),

2,

vbGreen

Else

Circle

(W

\

2

+

R

*

Cos(I

*

PI

/

30),

H

\

2

+

R

*

Sin(I

*

PI

/

30)),

1,

vbWhite

End

If

Next

I

End

Sub

Private

Sub

Form_Load()

Me.Show

Me.Cls

H

=

frmTime.ScaleHeight

W

=

frmTime.ScaleWidth

R

=

W

\

4

lbTime.Left

=

(frmTime.ScaleWidth

-

lbTime.Width)

\

2

lbTime.Top

=

frmTime.ScaleHeight

-

R

\

4

End

Sub

Private

Sub

Form_Resize()

Call

Form_Load

End

Sub

Private

Sub

Timer1_Timer()

Dim

T1,

T2,

T3

As

Integer

Dim

I,

J,

K

As

Integer

Me.Cls

T1

=

Hour(Time):

T2

=

Minute(Time):

T3

=

Second(Time)

I

=

T1

-

15

J

=

T2

-

15

K

=

T3

-

15

'钟表外壳

Call

BiaoKe

'画时针

Line

(W

\

2,

H

\

2)-(W

\

2

+

0.5

*

(R

*

Cos((I

+

J

/

60)

*

PI

/

6)),

H

\

2

+

0.5

*

(R

*

Sin((I

+

J

/

60)

*

PI

/

6))),

vbGreen

'画分针

Line

(W

\

2,

H

\

2)-(W

\

2

+

0.7

*

(R

*

Cos((J

+

K

/

60)

*

PI

/

30)),

H

\

2

+

0.7

*

(R

*

Sin((J

+

K

/

60)

*

PI

/

30))),

vbYellow

'画秒针

Line

(W

\

2,

H

\

2)-(W

\

2

+

0.9

*

(R

*

Cos(K

*

PI

/

30)),

H

\

2

+

0.9

*

(R

*

Sin(K

*

PI

/

30))),

vbRed

K

=

K

+

1

If

K

>

360

Then

K

=

K

Mod

360

lbTime.Caption

=

Time

End

Sub

---