在windows中生成声音频率- VB.Net

Imports System.Media
Imports System.Numerics

Module SoundGenerator
    Sub Main()
        Dim sampleRate As Integer = 44100 ' 采样率
        Dim frequency As Double = 440 ' 频率（A4）
        Dim duration As Double = 1.0 ' 持续时间（秒）
        Dim numSamples As Integer = CInt(sampleRate * duration)
        Dim samples(numSamples - 1) As Single

        For i As Integer = 0 To numSamples - 1
            Dim t As Double = CDbl(i) / sampleRate
            samples(i) = CSng(Math.Sin(2 * Math.PI * frequency * t))
        Next

        Using stream As New MemoryStream()
            Using writer As New BinaryWriter(stream)
                For Each sample As Single In samples
                    writer.Write(sample)
                Next
            End Using

            stream.Position = 0
            Using player As New SoundPlayer(stream)
                player.Play()
            End Using
        End Using
    End Sub
End Module