Треугольник задан длинами сторон. Как найти длины высот - VB

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

Треугольник задан длинами сторон. Найти длины высот.

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = b Then
h = 1 / 2 * Sqr(4 * a ^ 2 - b ^ 2): Text4.Text = h
Else
If a = b = c Then
h = 3 ^ (1 / 2) / 2 * a: Text4.Text = h
End If
End Sub
 
Private Sub Form_Load()
Dim a, b, c As Integer, h As Double

End Sub

Скажите в чем ошибка (ошибка Block if without End if)

Решение задачи: «Треугольник задан длинами сторон. Как найти длины высот»

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

                            Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, h As Double
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  c = Val(Text3.Text)
  If a = b Then
     h = 1 / 2 * Sqr(4 * a ^ 2 - b ^ 2): Text4.Text = h
  Else
     If (a = b) And (b = c) Then
        h = 3 ^ (1 / 2) / 2 * a: Text4.Text = h
     End if
  End If
End Sub
                        

Оцени полезность:

7 голосов , оценка 3.714 из 5

Похожие ответы