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

Private Sub Command1_Click()
Dim a() As Double
Dim s As Double, sum As Double
Dim rad As Double
Dim y, x As Double
Dim bad As Double
Cls
sum = 1
k = 9.82
For i = 2.3 To 7.11 Step 0.8
y = Round(5 * Cos((7 * i + k)) - 3 * Sin(8 * i), 1)
Print y
bad = Cos(3 * y)
If bad < 0 Then sum = sum * bad
Next i
Print "ÏðîèçâåäåГ*ГЁГҐ "; Round(sum, 3)
End Sub