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

'可能需要编译后才能查看效果
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编辑过]

试了下，喇叭可以正常发出声音。

我的怎么只有按5次shift才能听到蜂鸣器声音？

我先备份一下系统，等下我重装一下系统试试。

已重装系统，已找到原因是系统的原因。可能kernel32.dll调用上出现了什么问题。