Вычислить значение выражения - VB (59130)

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

Dim a, x, y
        a = 2.8
        x = Val(TextBox1.Text)
        If (x < 3.1) Then
            y = a * lg * abs(x ^ 2 - 3)
        Else : y = acos(x)
        End If
        MsgBox(y)
    End Sub
End Class

Решение задачи: «Вычислить значение выражения»

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

                                    Dim a, x, y
        a = 2.8
        x = Val(TextBox1.Text)
        If (x < 3.1) Then
            y = a * lg * Math.Abs(x ^ 2 - 3)
        Else : y = Math.Acos(x)
        End If
        MsgBox(y)
                        