Вычислить сложную функцию

Dim a, b, h, x, n, i, w, e, z As Double
        a = 0.1 : b = 1.5 : h = 0.1 : i = 0.1 : w = 1 : e = 15
        For n = a To b Step h
            x = (n + i) / i
            Console.WriteLine("  n={1} ; ", x, n)
        Next n
        Console.WriteLine("**************")
        For i = w To e Step 1
            z = (n + i) / i
            Console.WriteLine("z={0}", z)
        Next i
        For z = 1 To 15
 
        Next
        Console.ReadLine()

Dim a, b, h, n, i, w, e As Double
        Dim z, sum As Single
        sum = 0
        a = 0.1 : b = 1.5 : h = 0.1 : i = 0.1 : w = 1 : e = 15
        For n = a To b Step h
        Next n
        For i = w To e Step 1
            z = n + i / n
            Console.WriteLine("z ={0}", z)
        Next i
        For z = 1 To 15
            If z > 0 Then
                sum = sum + z
            End If
        Next z
        Console.WriteLine("****************************************************")
        Console.WriteLine("Сумма значений функции (при условии z>5) равна {0}", sum)
        Console.WriteLine("****************************************************")
        Console.ReadLine()