Решение разветвляющихся програм в Visual Basic - VB

Формулировка задачи:

Помогите решить систему Y=x^3+2x при x≤-8 y=2x-1 при -8<x≤8 y=x^2+1при x>8 пожалуйста

Решение задачи: «Решение разветвляющихся програм в Visual Basic»

textual
                            Листинг программы 
                        

                            Dim x As Double = 6
        Dim y As Double = 3
        Dim iff As String
        If (x <= -8) Then
            y = Math.Pow(x, 3) + 2 * x
            iff = "Условие N 1"
            Console.WriteLine(iff)
            Console.WriteLine(y)
        ElseIf (x > -8 And x <= 8) Then
            y = 2 * x - 1
            iff = "Условие N 2"
            Console.WriteLine(iff)
            Console.WriteLine(y)
        ElseIf (x > 8) Then
            y = x * x
            iff = "Условие N 3"
            Console.WriteLine(iff)
            Console.WriteLine(y)
        End If
        Console.ReadKey()
                        