可用分押宝游戏火热进行中...	专题改版：Java Web 专题

非常奇怪的问题，高手请进！

楼主guohaijun（蓝天）2004-09-02 12:48:41 在 VB / 基础类提问

VB中响铃用BEEP语句，但是我尝试了几次也不行，不响！
但是，BEEP放在死循环中就能够响，而且是无休止的响，机子死掉！
请问，这是什么原因，如何解决，如何使用BEEP语句！问题点数：50、回复次数：10Top

1 楼tztz520（午夜逛街）回复于 2004-09-02 12:52:31 得分 17

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

Private Sub Command1_Click()
Dim Cnt As Long
For Cnt = 0 To 1000 Step 100
APIBeep Cnt, 50
Me.Caption = Cnt
DoEvents
Next Cnt
End SubTop

2 楼lhfcsdn（http://shop33840643.taobao.com/）回复于 2004-09-02 14:13:30 得分 10

vb自带的Beep语句：呼叫的频率与时间长短取决于硬件和系统软件，并随电脑不同而不同。.所以用楼上介绍的API来控制呼叫的频率和时间长短。

参见：

Beep 语句

通过计算机喇叭发出一个声调。

语法

Beep

说明

呼叫的频率与时间长短取决于硬件和系统软件，并随电脑不同而不同。.

Top

3 楼guohaijun（蓝天）回复于 2004-09-03 14:28:54 得分 0

三块肉喂马！Top

4 楼starsoulxp（星魂）回复于 2004-09-03 14:49:29 得分 10

Private Sub Form_Load()
Beep
End Sub

我试了，响啊

不过这跟机器有关，可能你那里响得很快，所以你听不到。你多让它响几下

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 100
Beep
Next i
End Sub

我这里根本不会死机Top

5 楼rainstormmaster（暴风雨 v2.0）回复于 2004-09-03 15:05:30 得分 5

//但是，BEEP放在死循环中就能够响，而且是无休止的响，机子死掉！
请问，这是什么原因，如何解决，如何使用BEEP语句！

建议检查系统Top

6 楼LGYAN（紫衣随想）回复于 2004-09-03 15:24:20 得分 1

Beep不响，机器有问题吧？Top

7 楼viena（维也纳N02）回复于 2004-09-03 15:24:31 得分 1

为啥要放在死循环中呢？活循环不行吗？Top

8 楼viena（维也纳N02）回复于 2004-09-03 15:26:34 得分 1

为啥要放在死循环中呢？活循环不行吗？Top

9 楼bladeinside（云淡风清）回复于 2004-09-03 15:26:45 得分 5

俺这里也想啊。试试楼上的API吧
另外你放在循环里试试，不过不要死循环Top

10 楼guohaijun（蓝天）回复于 2004-09-04 08:41:45 得分 0

谢谢各位‘大虾‘的指点
在活循环中只有for i=0 to 1000 时才响！
我不知道beep底层是怎么实现的，是不是要延时阿，是脉冲或是电信号没到位吗？Top