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

通过计算机的扬声器发出声响。
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