VB我要写个闹钟 怎么写程序

添加计时器 ，文本框
写如下代码
Private Sub Timer1_Timer()
If DateDiff("s", Text1.Text, Now) = 0 Then
MsgBox "时间到了！！"
End If
End Sub

你好:
这个问题比较简单,只需要一个timer控件,一个textbox 一个label,一个按钮!
首先textbox作为设置时间用的,输入你想定的时刻,注意格式 00:00:00之类的,要看你取的系统时间格式.
点按钮,让时间显示在label里,
然后让timer一直监视系统的时间,并和label的时间作比较, 当两时间吻合的时候,就处理你想做的事情(打开一个程序,放音乐,或者关机之类的),这样 一个简单的闹钟旧出来了^_^
呵呵 主你成功,有什么问题直接问!

利用time函数得到 当前时间
设置闹铃时间：
利用timer控件不停对比
闹铃时间 和 time 的差值 当小于设定就闹
至于怎么闹 你自己想办法 如：提示拉，音乐拉