看到过一个程序，让主板发出其他的声音，不是Beep，如何实现？

Question

请教了~~~！！Beep是实现错误是警告的声音那么正确的话，发出的声音不是这个吧？？请教了。

Answer 1

这个行不行？Beep VB声明 
Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 
说明 
用于生成简单的声音 
返回值 
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError 
参数表 
参数 类型及说明 
dwFreq Long，声音频率（从37Hz到32767Hz）。在windows95中忽略 
dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略 
注解 
在windows95中，这个函数简单的播放默认系统响铃
 

Answer 2

Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X(24) As Integer, I As Integer, J As Integer
X(1) = 784: X(2) = 659: X(3) = 523: X(4) = 784
X(5) = 659: X(6) = 523: X(7) = 880: X(8) = 698
X(9) = 587: X(10) = 880: X(11) = 698: X(12) = 587
X(13) = 1568: X(14) = 1318: X(15) = 1046
X(16) = 1568: X(17) = 1318: X(18) = 1046
X(19) = 1760: X(20) = 1396: X(21) = 1174
X(22) = 1760: X(23) = 1396: X(24) = 1174
For I = 1 To 2
    For J = 1 To 24
        DoEvents
        Beep X(J), 200
    Next J
Next I
End Sub