有誰可以幫幫我

[~尋找愛情~]

Private Sub Command2_Click()
BeepSound 3
End Sub

Public Sub BeepSound(intTimes%)
Dim intCounter%
For intCounter = 1 To intTimes
Beep
Next
End Sub

利用上面呼叫 BeepSound　3
應該可以使電腦Beep三聲，為什麼我執行後只叫一聲就停了呢？
--
* Origin: ★ 交通大學資訊科學系 BBS ★ <bbs.cis.nctu.edu.tw: 140.113.23.3>

[銀色電鍋夢]

※ 引述《yuska...@cis.nctu.edu.tw (~尋找愛情~)》之銘言：

> Private Sub Command2_Click()
> BeepSound 3
> End Sub
> Public Sub BeepSound(intTimes%)
> Dim intCounter%
> For intCounter = 1 To intTimes
> Beep
> Next
> End Sub
> 利用上面呼叫 BeepSound　3
> 應該可以使電腦Beep三聲，為什麼我執行後只叫一聲就停了呢？

應該是有beep三聲不過你沒聽到而已!!
是FOR的速度太快了!!
再BEEP下面再加一個DELAY的程式!!
讓他慢下來一下~~~~那才聽的到ㄚ
--
[0;36;40m電鍋 [0;32;40m不只是 [0;36;40m電鍋 [m
[0;33;40m而它之所以為普通電鍋 [m
[0;31;40m唯一因素是你 [0;35;40m狹隘的思想 [m

[0;31;40m電鍋說: [0;32;40m限制想像力等於限制自己的成就 [m
--
[1;33m※ Origin: [36m奇摩 大摩域 [37m<telnet://bbs.kimo.com.tw> [m
[1;35m◆ From: [1;32m203.75.240.101 [m