用VB编写一个闹钟程序

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

private

sub

timer1_timer（）

label1.caption

=

time

end

sub就行了。谢谢采纳

手工闹钟的做法如下：

1、准备白纸、彩纸、圆规、剪刀、彩笔、大头针。

2、先用圆规在纸上画一个圆形，表示小闹钟的表盘。

3、用剪刀沿着圆形的轮廓将圆形剪下来。

4、用剪刀在彩纸上剪下一长一短两个纸条，再从白纸上剪下一个细纸条。

5、把三个纸条穿在大头针上，当作时针、分针和秒针。

6、将穿好三个纸条的大头针从圆心处扎下去。

7、在圆形的背面，将大头针折一下，这样不会扎到人。

8、把表盘反过来，用彩笔在上面写下1~12，表示时间，小闹钟就做好了。

以上就是手工闹钟的全部教程了，很简单吧，快来试一试。

以下是手工闹钟的几种制作方法：

一、材料：卡纸、彩色笔、铅笔、橡皮、胶水、剪刀、直尺，吸管。

1、用黑色彩色笔在白纸上，画出钟面，这里画的是一朵向日葵的外形，如下图所示。

2、用蓝色彩色笔在钟面内画出一个圆形，并用黑色彩色笔在圆形内写出数字，如下图所示。

3、用剪刀把卡纸上的闹钟的图形剪出来，摆放在纸上，如下图所示。

4、用红颜色彩色笔画出秒针、橘色彩色笔画出分针、蓝色彩色笔画出时针，并用剪刀剪出图形，如下图所示。

5、用吸管穿过指针和钟面，时针分针和秒针就可以拨动了，这样一个实用的纸闹钟就做好了，如下图所示。

二、材料：准备白纸、彩纸、圆规、剪刀、彩笔、大头针。

1、先用圆规在纸上画一个圆形，表示小闹钟的表盘。

2、用剪刀沿着圆形的轮廓将圆形剪下来。

3、用剪刀在彩纸上剪下一长一短两个纸条，再从白纸上剪下一个细纸条。

4、把三个纸条穿在大头针上，当作时针、分针和秒针。

5、将穿好三个纸条的大头针从圆心处扎下去。

6、在圆形的背面，将大头针折一下，不会扎到人。

7、把表盘反过来，用彩笔在上面写下1~12，表示时间，小闹钟就做好了。

---