读者你好：
    关于Beep发声，请参考下面的说明：
    这是个API函数 用于生成简单的声音
Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

dwFreq 参数为 声音频率（从37Hz到32767Hz）
dwDuration 参数为 声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止

老师您好
    我按您写的函数写了程序，调用beep函数后还是没有声音，我找不到原因，麻烦您帮帮我。谢谢了

你计算机主板上没安装蜂鸣器。

您好
   我刚试过我的这个程序在有些电脑上能能发声，在有写电脑上不能发声。我用的是笔记本，我想写一个让我电脑的扬声器发出声音的程序，我改怎么写呢。
       谢谢

我补充一下，在我的电脑上调用beep语句可以发声，不知调用beep语句是不是蜂鸣器发声。