本文介绍如何利用Beep函数让计算机扬声器发出声音。文中解释了Beep函数的工作原理及其对不同计算机硬件和系统软件的依赖，并提供了一个简单的示例程序，展示如何通过循环调用Beep函数来产生连续的声音。
通过计算机的扬声器发出声响。
Public Sub Beep()
备注
声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。
注意 Beep 函数需要 SafeTopLevelWindows 级别的 UIPermission，这可能会对它在部分信任情况下的执行产生影响。有关更多信息，请参见请求权限和 UIPermission 类。
示例
本示例通过 Beep 函数，使计算机的扬声器发出一个长的、不间断音频。
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep ' Sound a tone.
Next I
Public Sub Beep()
备注
声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。
注意 Beep 函数需要 SafeTopLevelWindows 级别的 UIPermission，这可能会对它在部分信任情况下的执行产生影响。有关更多信息，请参见请求权限和 UIPermission 类。
示例
本示例通过 Beep 函数，使计算机的扬声器发出一个长的、不间断音频。
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep ' Sound a tone.
Next I
扫一扫
1020
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
