除了beep之外还有其他的声音吗？

而且还时灵时不灵，要点一下音量控制才行

我的意思是自带的那种

'当然有，试试这个代码：
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
playsnd 587, 100: playsnd 784, 100: playsnd 880, 100: playsnd 988, 100:: playsnd 988, 200: playsnd 0, 100
playsnd 988, 100: playsnd 880, 100: playsnd 988, 100: playsnd 1047, 200: playsnd 988, 100: playsnd 988, 100
playsnd 880, 100: playsnd 100, 150: playsnd 880, 100: playsnd 784, 100:: playsnd 988, 100: playsnd 0, (5)
playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 880, 100
playsnd 784, 100: playsnd 740, 100: playsnd 784, 200: playsnd 100, 200:: playsnd 784, 100: playsnd 880, 100
playsnd 784, 100: playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100:: playsnd 0, (5)::: playsnd 988, 100
playsnd 0, (5)::: playsnd 988, 100: playsnd 100, 100: playsnd 587, 100:: playsnd 784, 100: playsnd 1175, 100
playsnd 0, (5)::: playsnd 1175, 99: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 0, (5)
playsnd 987, 100: playsnd 100, 100: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 100: playsnd 880, 200
playsnd 784, 100: playsnd 0, (5)::: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 50:: playsnd 659, (50)
playsnd 784, 100: playsnd 659, 100: playsnd 784, 100: playsnd 880, 100:: playsnd 100, 100: playsnd 587, 110
playsnd 784, 120: playsnd 880, 130: playsnd 740, 140: playsnd 784, 200:: playsnd 1, 1::::: playsnd 1, 1
End Sub
Function playsnd(ByVal x As Long, y As Long)
Beep x, y * 3
DoEvents
End Function

我记得有，但是具体忘了，和beep差不多但不使用蜂鸣器
-----一个小学生用水壶向楼下的水坑倒5cm的水，从10楼跳下毫发无损，他说自己经常玩CF
-----一名美军在阿富汗身中数十枪，躲在掩体后喘几口气继续战斗，他说自己玩过使命召唤
-----一人被困沙漠5年，获救时身着一身钻石套，手执一把钻石剑，总价值数亿，称自己是MC玩家
-----一男子在一秒内在地上用焊枪挖了一个足以容身的洞，此人自称玩红警3
-----一男子连续用一把泵动式霰弹枪射击标靶三天，从不装子弹，自称玩红警3
-----一名游戏高玩从迪拜塔纵身跳下，落入塔底一不明来路的干草车没有受伤，经调查此人常玩刺客信条
-----一个美国人在大街上被车撞死后尸体消失然后在附近手机信号塔奇迹复活，该人称自己是孤岛惊魂3玩家

MessageBeep MB_ICONEXCLAMATION
MessageBeep MB_ICONINFORMATION
个人觉得MessageBeep还有点用，beep发音程序基本上不会去用，可以说没有市场，用playsound播放音乐远比你beep好听万倍