Option Explicit

Private Sub Cmd1_Click()
    'Объявление переменных
    Dim z As Single
    Dim x As Single
    Dim d As Integer
    'Объявление констант
    Const a = - 0 . 5 
    Const b =  1 . 2 
    Const pi =  3 . 14159265358979 

For x = - 1  To  1  Step  0 . 2  'Цикл вычисления значений функции на отрезке
    z = ((x ^  2 ) * (x + a)) + ((x ^  3 ) * Cos(x + b))
    
    ListBox.AddItem "z= " & z & ""
Next x

End Sub

Cos((x*pi/ 180 )+(b*pi/ 180 ))