На отрезке [2.3;7.11] с шагом h = 0,8 вычислить и округлить до 0,1 функцию у = 5соs(7х + k)-3sin8х. Найти произведение отрицательных соs(Зу)

Imports System.Math
Public Class Form1
    Dim a, b, h, x As Double ' x
    Dim y As Double
    Dim k As Double ' Вводится через GUI
    Dim f As Double ' Фи(X)
    Dim s As Single ' Сумма отрицательных f(x)
    Dim z As Double ' Most Incredible Thing
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        ' Ввод данных и определение данных
        k = Val(TextBox1.Text)
        TextBox1.Text = k
 
        a = 1.3 : b = 3.11 : h = 0.3
        ' Вычисляем и округляем до 0.1
        For x = a To b Step h
            y = Round(3 * Cos(3 * x + k) * 5 * Sin(2 * x), 1)
            MsgBox(Str(y))
            ' Находим произведение отрицательных fi(x)
            f = Cos(y)
            s = 1 ' Переменная, в которой накапливаем значения суммы
            If (f < 0) Then s = s * f ' Сумма отрицательных "фи"
        Next x
        ' Отображение результатов
        MsgBox(Str(s))
 
    End Sub
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim a() As Double, i As Double
    Dim sb as String
    Dim s As Double, sum As Double
    Dim rad As Double
    Dim y, x As Double
    Dim bad As Double
    sum = 1
    k = Val(TextBox1.Text)
    For i = 2.3 To 7.11 Step 0.8
        y = Round(5 * Cos((7 * i + k)) - 3 * Sin(8 * i), 1)
        sb = sb & "," & y
        bad = Cos(3 * y)
        If bad < 0 Then sum = sum * bad
    Next
    MsgBox Mid$(sb, 2) & vbCrLf & "Sum = " & sum
End Sub