'有vb编译器的请新建工程，没有vb编译器的请登陆 http://www.onlinedown.net/soft/19976.htm下载vb6M精简版'请确认您的主板上有蜂鸣器Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Load() runsound End Sub Sub runsound() sd 6, 150: sd 5, 50: sd 3, 100: sd 5, 100: sd 8, 100: sd 6, 50: sd 5, 50: sd 6, 200 sd 3, 100: sd 5, 50: sd 6, 50: sd 5, 100: sd 3, 50: sd 2, 50: sd 1, 50: sd 5, 50: sd 3, 50: sd 2, 200 sd 2, 100: sd 2, 50: sd 3, 50: sd 5, 100: sd 5, 50: sd 6, 50: sd 3, 150: sd 2, 50: sd 1, 50: sd 16, 150 sd 5, 150: sd 3, 50: sd 2, 50: sd 1, 50: sd 16, 50: sd 1, 50: sd 15, 200 End Sub Function playsnd(ByVal x As Long, y As Long) Beep x, y * 4 DoEvents End Function Function sd(n&, l&) Select Case n Case 1 playsnd 440, l Case 2 playsnd 494, l Case 3 playsnd 554, l Case 4 playsnd 587, l Case 5 playsnd 659, l Case 6 playsnd 739, l Case 7 playsnd 830, l Case 8 playsnd 880, l Case 17 playsnd 415, l Case 16 playsnd 369, l Case 15 playsnd 329, l End Select End Function 

我说过了。。Beep是很囧的函数。。

您这更囧。。。。。。。。

请确认您的主板上有蜂鸣器-------------------------------------------------------------------------------- 有没有蜂鸣器的主板吗？？？

您这。。快吧我囧死了。。请把load事件改成这个，再加入U盘的autorunPrivate Sub Form_Load()runsoundMsgBox "日飞福娃囧囧。。。。。什么破东西"EndEnd Sub

。。。

我爱我的妈妈！

。。。

#include
#include
void main() { MessageBox( 0, "非洲人民贺电……\n93° 被日飞了……！", "提示", 64 ); }

。。。。。。。。。。。。。。。。。

无不无聊= =

无聊。。。。。。。。。。。。。。。。

就是。。集体轰炸他

呃？有吗？

pia

有！

。。

QBasic的beep才叫真囧

踢飞API