UC知道VB 编程问题——beeping
来源：百度知道 编辑：UC知道 时间：2024/06/19 20:09:40
Private Sub Command1_Click()
Call beeping(5)
End Sub
Sub beeping(n As Integer)
Dim i As Integer
Dim j As Integer
For i = 1 To n
Beep
For j = 1 To 1000
Next j
Next i
End Sub
请问运行时机器有和反映，怎么我的只是按键时响啦一下？请高手解析
Call beeping(5)
End Sub
Sub beeping(n As Integer)
Dim i As Integer
Dim j As Integer
For i = 1 To n
Beep
For j = 1 To 1000
Next j
Next i
End Sub
请问运行时机器有和反映，怎么我的只是按键时响啦一下？请高手解析
你的机器太快了!
改成大数试试就好了如:
Dim i As Integer
Dim j As Long
For i = 1 To n
Beep
For j = 1 To 90000000
Next j
Next i
最好还是用时间控件控制好点.
连响 5 下，但是 for 循环没有用 sleep 速度太快所以只听到一声
有一个 API 的名字叫做 Sleep