vb 怎么实现PC扬声器发出自己想要的声音(比如闹钟的声音)?

代码如下。演奏一个音阶。你要想发出什么声音，请上网查找相应音符的频率。
例如演奏频率为500Hz的音符代码如下：Beep 500,1000(1000代表音符持续的毫秒数。)
=========================
Const Do0 = 264
Const Re = 297
Const Mi = 330
Const Fa = 352
Const Sol = 396
Const La = 440
Const Ti = 495
Const Do1 = 528
Const T4 = 1000
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep Do0, T4
Beep Re, T4
Beep Mi, T4
Beep Fa, T4
Beep Sol, T4
Beep La, T4
Beep Ti, T4
Beep Do1, T4
End Sub

楼主的代码的确可以运行，可想问一下：这会不会损伤硬件？

我运行过1楼的代码！厉害，这都行，服了！可以自编音乐了