【实例说明】
    WAV文件的采样频率、位率和声道。

【编程思路】
    读取WAVE文件。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在工程同一级目录下放一个Wave文件1.wav。

    3.源程序  [素材源程序下载]


Option Explicit

Private Sub Form_Load()
        On Error GoTo Err001
        Dim a1 As Long, a2 As Integer, a3 As Integer

        Me.AutoRedraw = True

        Open App.Path & "\1.WAV" For Binary As #1
                Get 1#, 25, a1
                Print "采样频率:" & FormatNumber(a1, 0) & "Hz"

                Get 1#, 35, a2
                Print "位率:" & Trim(a2) & "Bit"

                Get 1#, 23, a3
                If a3 = 2 Then Print "声道:双声道" Else Print "声道:单声道"
        Close 1#
        Exit Sub
Err001:
        Close 1#
        MsgBox "不是一个合法的WAV文件", , "错误！"
End Sub