请问win7下如何使用beep()函数让主板发生蜂鸣声.

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()

Beep 1000,500 '1000,500 可以自行调增，得到自己想要的声音为止。

'500是'调'节声音的长短

End Sub

很多盗版windows 光盘都是缺少beep下载是没用的。如果需要，只能找张好一点的光盘重装。我也遇到这种情况，但我另一台电脑可以运行。如果BEEP不可以使用，那就考虑调用系统提示音，代码比beep繁一点，但是每台电脑都可以运行。希望对你有帮助，望采纳！

---