Программу составить в Visual basic. + нужны блок схемы.

Function F(ByVal x)     If Not IsNumeric(x) Then         F = "Not a valid number"         Exit Function     End If     d = 2.5     If x <= 2 Then         F = 1 - x * x     Else         F = d - x     End If End Function Function Y(ByVal x)     If Not IsNumeric(x) Then         Y = "Not a valid number"         Exit Function     End If     If x <= 0 Then         Y = Sin(2 * x)     Else         If x <= 10 Then             Y = Tan(x)         Else             Y = 0.33 * x         End If     End If End Function Sub Zadanie16067304()     step = 5     x = -10     s = ""     Do While x < 100         s = s & "x = " & x & " y = " & Y(x) & vbNewLine         x = x + step     Loop     MsgBox (s) End Sub Zadanie16067304() в выделеном месте меняем Y на F, когда нужна другая функция