一定给分，好的给＋100
參考答案:用这些:
Private Declare Function WinBeep Lib "kernel32.dll" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'调用API,dwFreq--频率,以HZ作单位,dwDuration--持续时间,以毫秒做单位,运行成功返回非零值,错误返回零,可使用GetLastError函数和FormatMessage获得
不行就用VB内置的Beep好了,也可以报警
