Option Explicit

Private Sub Cmd1_Click()
Dim z As Double
Dim x As Single
Dim d As Integer
Const a = - 0 . 5 
Const b =  1 . 2 

For x = - 1  To  1  Step  0 . 2 
z = ((x ^  2 ) * (x + a)) + ((x ^  3 ) * Cos(x + b))
Next x

End Sub

Option Explicit

Private Sub cmd1_Click()
    Dim n As Long
    Dim i As Long
    Dim s As Long
    Dim c As Long
    Dim sum As Long
    Dim pr As Long

    Dim Mass() As Long
        
        n = Val(Text1.Text)
        ReDim Mass(n)
Randomize
For i =  1  To n
Mass(i) = Int(Rnd *  100  +  1 )
Next i


pr =  1  ' Временная переменная не должна быть равна нулю
For s =  1  To n
    If Mass(s) <  10  Then
        sum = sum + Mass(s)
    End If

    If Mass(s) >  25  Then
        pr = pr * Mass(s)
    End If
Next s

Lb1.Caption = "Сумма всех чисел которые меньше 10 = " & sum
Lb2.Caption = "Произведение всех чисел которые больше 25 = " & pr


End Sub

Dim x As Single

For x = - 1  To  1  Step  0 . 2 
ListBox.AddItem x 
Next x

Dim z As Currency
    Dim x As Currency
    Dim Lyambda As Single
    
 
    Const a =  2 . 7 
    Const b = - 0 . 27 
    Const pi =  3 . 14159265358979 
    
Lyambda = Val(Text1.Text)
    
    For x =  0  To  7  Step  0 . 5 
    
        If x <  2 . 3  Then
            z = (a + b) / (Cos(x * pi /  180 ))
        Else
        If x <  4  And x >=  2 . 3  Then
            z = (a + b) / x
        Else
        If x <  6  And x >=  4  Then
            z = (Lyambda ^ x) + (Sin(x * pi /  180 ))
        Else
        If x >=  6  Then
        z = a * b * x
        End If
        End If
        End If
        End If

ListBox.AddItem "z= " & z & "   При x= " & x

Next x