Beep 函数

更新：2007 年 11 月

通过计算机的扬声器发出声响。

Public Sub Beep()

备注

声响的音调与持续时间取决于硬件和系统软件，因此随计算机不同而不同。

说明：
Beep 函数需要 SafeTopLevelWindows 级别的 UIPermission，这可能会对它在部分信任情况下的执行产生影响。有关更多信息，请参见请求权限和 UIPermission Class。

本示例通过 Beep 函数，使计算机的扬声器发出一个长的、不间断音频。

Dim I As Integer
For I = 1 To 100   ' Loop 100 times.
   Beep   ' Sound a tone.
Next I

不支持此函数。

**模块：**Interaction

**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）