一、API中的Beep函数。

声明语句如下：

Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long,  _
                                                                                                    ByVal dwDuration As Long) As Long

参数说明:
dwFreq：Long型，声音频率（从37Hz到32767Hz）。

dwDuration：Long型，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。

二、举例

例子：

'省略了声明语句

Private Sub f()
    Beep 2000, 1000

    '一般在这里应该加一句DoEvents
End Sub

三、音调对应的数值：

'定义低音
Private Const A1 = 131
Private Const A2 = 147
Private Const A3 = 165
Private Const A4 = 175
Private Const A5 = 196
Private Const A6 = 220
Private Const A7 = 247
 
'定义中音
Private Const B1 = 262
Private Const B2 = 296
Private Const B3 = 330
Private Const B4 = 349
Private Const B5 = 392
Private Const B6 = 440
Private Const B7 = 494
 
'定义高音
Private Const C1 = 523
Private Const C2 = 587
Private Const C3 = 659
Private Const C4 = 698
Private Const C5 = 784
Private Const C6 = 880
Private Const C7 = 988
 
'定义高二度
Private Const D1 = 1047
Private Const D2 = 1175
Private Const D3 = 1319
Private Const D4 = 1397
Private Const D5 = 1568
Private Const D6 = 1760
Private Const D7 = 1976

 

以上在Win10＋Office2010下的VBA环境里验证。