电脑蜂鸣器无法用程序发声，怎么回事？ - 编程论坛

以下代码可以用电脑蜂鸣器发声（需电脑喇叭能正常播放声音）。

程序代码：

'可能需要编译后才能查看效果
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Private Sub Form_Load()
APIBeep 2000, 5000 'APIBeep 发声频率, 持续时间
End Sub

我家的电脑，现在按5次shift键，可以听到蜂鸣器声音。说明蜂鸣器应该是正常的。

但现在运行上面的程序，听不到任何声音，虚拟机中运行上面的程序也听不到声音。

以前运行上面的程序可以听到蜂鸣器声音的。不知怎么回事？

[此贴子已经被作者于2022-9-18 14:33编辑过]