vb计算机扬声器发出声响

1、运行“Microsoft Visual Studio 2010”。

2、”vs“的窗口弹出后，找到菜单栏，鼠标左键单击标题为”文件（f）“的选项。

3、在弹出的列表中鼠标左键单击标题为”新建项目（p）“的项。

4、在弹出的标题为”新建项目“，鼠标左键选择标题为”Visual Basic“项，在选择标题为”WIndows“的项。

再在右边的列表中选择标题为”Windows 窗体应用程序“。

再鼠标左键单击标题为”确定“的按钮。

5、在一个背景为”白色"的窗口，且标题为“ForM1”的窗口中的空白处鼠标左键双击。

6、在新切换到的“代码编辑页面”的 “Public Class Form1”下写代码：

Public Declare Function _哔哔的声音 Lib "kernel32" Alias "Beep" (ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Boolean

7、再在“

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

”

下写代码：

  Private Sub 发声(ByVal a As Integer, ByVal b As Integer)

        _哔哔的声音(a, b)

    End Sub

8、最后在“Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load”下代码：

----------------------------

 发声 （600,500）

----------------------------

最后测试一下就OK喽~~！ O(∩_∩)O~

9、如果您成功是计算机扬声器发声了，就投个票票吧~~！嘿嘿！