第1个回答 2009-06-25
用vb 5分钟就可以写一个这样的程序
界面里加两个控件 定时器timer1 和一个textbox
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Text1_Change()
Timer1.Enabled = False
Timer1.Interval = Int(Text1.Text) * 60 * 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Beep 293.665, 493.883
End Sub本回答被提问者采纳