Табулирование функции - VB (58958)

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

Задали задание по программированию на vb, помогите кто чем сможет) Задача табулирования сложной функции. Вычислить значения функции y=f(x) для всех значений x[x0; xn] с шагом h. f(X)=(Z^2+X)/LN(2+X^2) Z=sin X, x<=a Z=cos x, a<x<b Z=tgx, x>=b Задание. 1 Составить структурную схему алгоритма вычисления и вывода в массив значений функции. 2 Разработать программу на VB X0 a b Xn h 1,5 3,5 3 4,5 0,1

Решение задачи: «Табулирование функции»

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

                            Private Sub Command1_Click()
Dim x0 As Single, xn As Single, a As Single, b As Single, h As Single, z As Single, X As Single, Y As Single
x0 = 1.5: xn = 4.5
a = 3.5: b = 3: h = 0.1
For X = x0 To xn Step h
    If X <= a Then
        z = Sin(X)
        Else
        If a < X And X < b Then
            z = Cos(X)
            Else
            If X >= b Then
                z = Tan(X)
                Else
                z = -1
            End If
        End If
    End If
    Print Format(X, "#.#"), ;
    If z <> -1 Then
        Y = (z ^ 2 + X) / Log(2 + X ^ 2)
        Print Y
        Else
        Print "Не определено"
    End If
Next X
End Sub
                        