请问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

.版本 2

.DLL命令 蜂鸣, , , "Beep"

.参数 频率, 整数型, , 赫兹

.参数 时长, 整数型, , 毫秒

注意，Win7可能会调用系统自带的蜂鸣效果，XP一般是调用主板的

---