VB 有关Beep的一个小程序

来源：百度知道编辑：UC知道时间：2024/07/04 09:42:44

Private Sub Command2_Click()
//本程序是一个命令按钮，每按一次，系统蜂鸣一次，由高频1000降至100为止，每按一次降一百，请问高手如何实现，但我做的这个，按一次由高到低响了十下
Dim a As Integer
Static x As Integer
For x = 1000 To 100 Step 100
a = Beep(x, dwDuration)
Next x
MsgBox "已超出下限声频！", vbCritical, "消息！"

End Sub

Private Sub Command2_Click()
Dim a As Integer
Static x As Integer
x=iif(x>100,x-100,99)
if x=99 then MsgBox "已超出下限声频！", vbCritical, "消息！" :exit sub
a = Beep(x, dwDuration)
End Sub

vb的一个小程序 VB的一个小程序，求助请教一个小的VB程序一个关于vb的小程序 VB的一个小程序不能运行关于VB的一个小程序我VB程序的一个小问题 vb的一个小程序问题。 VB!一个snow的小程序有关VB的小问题一个？