Нахождение гипотенузы и катетов с корнями - Visual Basic .NET

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

Пишу программу для расчета гипотенузы и катетов прямоугольного треугольника. Столкнулся с проблемой, не знаю как посчитать если в заданных данных присутствует корень. Вот так выглядит программа. (Пустые TextBox это целое число, где "0" - это часть под корнем) Вот например нужно посчитать катет "a" зная гипотенузу и катет "b". У меня сделано вот так:
If c.Text.Length <> 0 And b.Text.Length <> 0 And a.Text.Length = 0 Then
            a.Text = Math.Round(Math.Sqrt(c.Text ^ 2 * Math.Sqrt(qc.Text) ^ 2 - b.Text ^ 2 * Math.Sqrt(qb.Text) ^ 2), 2)
        End If
Но здесь получается что корень ноль и поэтому целая часть тоже обнуляется. Вопрос, как считать примеры с корнями в Visual Basic?

Код к задаче: «Нахождение гипотенузы и катетов с корнями - Visual Basic .NET»

textual
If c.Text.Length <> 0 And b.Text.Length <> 0 And a.Text.Length = 0 Then
     a.Text = Math.Round(Math.Sqrt(Val(c.Text) ^ 2 * iif(Val(qc.Text)=0, 1 , Val(qc.Text)) - Val(b.Text) ^ 2 * iif(Val(qb.Text)=0, 1 , Val(qb.Text))), 2)
End If

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы