一个vb的小问题！请教各位大大！

Question

一个vb的小问题！请教各位大大！
做一个打铃的程序，要求每天中午11点30和下午5点30，该程序就会响
1调用Beep函数实现打铃
2用Time函数获取当天的时间

Answer 1

使用NOW函数就可以得到当前的时间，配合FORMAT可以得到埠通的输出格式：比如：format(now,"YYMMDDhhmmss") 得到050920085830

Answer 2

一个Command1，两个Timer1
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Interval = 100'控制声音的频率
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
End SubPrivate Sub Timer1_Timer()
If Time = "11:40:00" Or Time = "17:30:00" Then
    Timer2.Enabled = True
End If
End SubPrivate Sub Timer2_Timer()
Beep
End Sub

Answer 3

to  sunniful(太阳) ( )：你的回复…… 瀑布寒啊……IamDeane(冷冷的风(Deane)) 的思路很好啊，学习了。:D