本单位的计算机无喇叭，如何使其主板喇叭演奏音乐？以下的2组代码不中：
使主板喇叭演奏音乐
1
Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
APIBeep 2000, 500    'APIBeep 频率,时间
End Sub
Private Sub Command1_Click()
  APIBeep 2000, 500
End Sub
2
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
   playsnd 440, 100
playsnd 494, 100
playsnd 554, 100
playsnd 622, 100
playsnd 698, 100
playsnd 784, 100
playsnd 880, 100
End Sub
Private Sub Form_Load()
playsnd 440, 100
playsnd 494, 100
playsnd 554, 100
playsnd 622, 100
playsnd 698, 100
playsnd 784, 100
playsnd 880, 100
End Sub
Function playsnd(ByVal x As Long, y As Long)
Beep x, y * 3
DoEvents
End Function

2楼的代码还是不中：

难道主板喇叭没打开？如是，则如何打开？

本人的机子可是品牌机哦，即AOC，在街上的的电脑公司买的。

[ 本帖最后由 HVB6 于 2015-9-5 21:19 编辑 ]

是 AOC 这个牌子的显示器。看来还要打开机子查看主板是否有小喇叭。谢谢。

开机和关机无“滴...”声响，平时开机和关机没注意这一细节，看来主板无小喇叭是肯定的。