---

Public Sub Задание_1()
    Dim x As Double
    Dim y As Double
    x = 6
    Do While x <= 20
        y = Sin(x)
        MsgBox "x=" & x & " y=" & y
        x = x + 0.5
    Loop
End Sub

Public Sub Задание_7()
    Dim x As Double
    Dim y As Double
    x = -25
    Do While x <= 57
        If x < 10 Then
            y = x + 2
        ElseIf x >= 10 And x <= 20 Then
            y = Sqr(2 * x)
        Else
            y = 3 - x ^ 3
        End If
        MsgBox "x=" & x & " y=" & y
        x = x + 4
    Loop
End Sub

Public Sub Задание_4()
    Dim x As Double
    Dim y As Double
    x = -12
    Do While x <= 35
        If x >= 0 And x < 3 Then
            y = x - 1
        ElseIf x >= 3 And x < 10 Then
            y = x + 10
        Else
            y = x - 2
        End If
        MsgBox "x=" & x & " y=" & y
        x = x + 4
    Loop
End Sub

Public Sub Задание_2()
    Dim x As Double
    Dim y As Double
    Dim c As Double
    c = 1 ' установи любое число
    x = -5
    Do While x <= 5
        If x > 0 Then
            y = c + x
        Else
            y = x + 4
        End If
        MsgBox "x=" & x & " y=" & y
        x = x + 2
    Loop
End Sub