作者：杜勇

描述：通过计算机喇叭发出声音。
一、语法：
Beep

二、说明：
　　呼叫的频率与时间长短取决于硬件和系统软件，并随计算机不同而不同。

三、应用举例：
　　在调试程序时，有时需要在发生错误时发出音响。本例在程序运行时，如果某一步发生错误，则转到错误处理入口，使用Beep语句让计算机发出响声，同时MsgBox函数将提示错误。
　　建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
On Error GoTo ErrorHandler '发生错误转到错误处理入口
　MsgBox "程序运行"
　Exit Sub '程序运行完毕，没有错误退出程序
　ErrorHandler: '错误处理入口
　Beep '发出声响。
　MsgBox "出错"
End Sub
　　单击命令按钮，MsgBox显示"程序运行"。
　　现在加入一条错误的激活Microsoft Excel语句，程序如下：
Private Sub Command1_Click()
　On Error GoTo ErrorHandler '发生错误转到错误处理入口
　AppActivate "EXCEL.EXE" '错误语句。
　MsgBox "程序运行"
　Exit Sub '程序运行完毕，没有错误退出程序
　ErrorHandler: '错误处理入口
　Beep '发出声响。
　MsgBox "出错"
End Sub
　　单击命令按钮，MsgBox显示"出错"，计算机喇叭发出声音。
　　误区：有些教材用下面的示例使用Beep语句让计算机连续响三声，实际上计算机在运行下面的程序时只能响一声，原因是计算机的运行速度远比计算机喇叭发出声音的速度快。
Dim I
　For I = 1 To 3 '循环3次。
　Beep '发出一声。
Next I