使用VB中的beep语句只能发出一种声音。如果想发出不同声音，可以使用API函数。    

新建From1（窗体），Text1（TextBox），新建Command1（按钮CommandButton），代码：

可以在Text1.Textz中输入不同的值：123 1234 12345得到不同的声音。