VB编程问题~!

Dim BCount As Integer
Private Sub Timer1_Timer()
BCount = 0
For i = 1 To 10
BCount = BCount + 1
Beep
Next
Me.Print "响了" & BCount & "次"
End Sub

每秒 响10次。。。

因为 时间控件的Interval的属性为1000（单位：毫秒），每秒种时间控件执行一次
而你时间控件里 循环了10次 即响10次

所以是：
每秒 响10次。。。（即总次数为s*10次 s为秒数）

Private Sub Timer1_Timer()
For i = 1 To 10
Beep
Next
End Sub

-----------
前面有人贴的代码不错
用变量跟踪循环 看得很清楚

建一个时间控件 建一个按钮
运行一下 你就明白了

Dim BCount As Integer

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
BCount = 0
For i = 1 To 10
BCount = BCount + 1
Beep
Next
Me.Print "响了" & BCount & "次"
End Sub

应该约等于你程序运行的秒数s*10次

一次
因为程序运行快
他还来不急发出第二声

对，就是一次……你的时间改的话另论

一次