一个简易时钟，这个会做，要求是在整点的时候能弹出一个报时的消息对话框，，，，，就这郁闷了，．怎么样整点报时呢．．．
參考答案:这个有人写过了：
建立一个工程，在窗体上添加一个时钟控件（timer1，interval=800），然后添加如下代码：
option explicit
private declare function sndplaysound lib "winmm.dll" alias "sndplaysounda" (byval lpszsoundname as string, byval uflags as long) as long
private const snd_async = &h1
private const snd_nowait = &h2000
private sub form_load()
'防止程序重复加载
if app.previnstance then end
'隐藏窗体
timer1.interval = 800
form1.visible = false
end sub
private sub timer1_timer()
on error resume next
dim tmchk as date
dim sndflag as long
tmchk = time
sndflag = snd_async + snd_nowait
'验证是否整点
if minute(tmchk) = 0 and second(tmchk) = 0 then
'播放相应整点的声音文件
sndplaysound app.path & "\sounds\sound" & hour(tmchk) & ".wav", sndflag
end if
end sub
-----------------补充：
其实你不是其他的都写好了吗？只差整点的判断的吗？
那只要在你的代码中加入这个过程就可以了：
'验证是否整点
if minute(tmchk) = 0 and second(tmchk) = 0 then
'播放相应整点的声音文件
sndplaysound app.path & "\sounds\sound" & hour(tmchk) & ".wav", sndflag
end if
end sub
//很好理解的，判断是否现在的时间是否分钟等于0同时秒钟也等于0，那就是整点了，然后做相应的事。
