Вычислить функцию f(u, v) - Visual Basic .NET

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

Необходимо вычислить функцию f(u, v) и округлить до 0,001 y = f(u, v), где u = u(x), v = v(x), вводя различные значения аргумента x из интервала (0;10). f(u, v)=cos3u+2sin7v; u(x)=2arctg3+lg7x; v(x)=ctg3-3x. Я попытался написать, но у меня ничего толком не вышло.

Решение задачи: «Вычислить функцию f(u, v)»

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

                            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = Math.Round(f(Val(TextBox1.Text)), 3)
    End Sub
    Private Function f(ByVal x As Double) As Double
        Return Math.Cos(3 * u(x)) + 2 * Math.Sin(7 * v(x))
    End Function
    Private Function u(ByVal x As Double) As Double
        Return 2 / Math.Atan(3) + Math.Log10(7 * x)
    End Function
    Private Function v(ByVal x As Double) As Double
        Return 1 / Math.Tan(3) - 3 * x
    End Function
                        