Для следующей программы написать функцию, которая определяет выполняется теорема Пифагора для трех величин - VB

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

Для следующей программы написать функцию, которая определяет выполняется теорема Пифагора для трех величин. A=VAL(TEXT1.TEXT) B=VAL(TEXT2.TEXT) C=VAL(TEXT3.TEXT) IF PIF(A,B,C)=0 AND PIF(B,C,A)=0 AND PIF(A,C,B)=0 THEN ? «ТРЕУГОЛЬНИК НЕ ПРЯМОУГОЛЬНЫЙ» ELSE ?»ПРЯМОУГОЛЬНЫЙ» END IF

Решение задачи: «Для следующей программы написать функцию, которая определяет выполняется теорема Пифагора для трех величин»

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

                            Private Sub Command2_Click()
a_2 = Val(Text1.Text)
b_2 = Val(Text2.Text)
c_2 = Val(Text3.Text)
 
PIF
End Sub
Sub PIF()
If a_2 ^ 2 + b_2 ^ 2 = c_2 ^ 2 Then
Print "Г’Г°ГҐГіГЈГ®Г«ГјГ*ГЁГЄ ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*Г»Г©. Г‡Г*Г*Г·ГҐГ*ГЁГї ГўГўГҐГ¤ВёГ*Г*Г»ГҐ Гў Г’Г…ГЉГ‘Г’ГЃГЋГЉГ‘ 1 ГЁ 2 ГїГўГ«ГїГѕГІГ±Гї ГЄГ*ГІГҐГІГ*Г¬ГЁ, Г* Гў Г’Г…ГЉГ‘Г’ГЃГЋГЉГ‘ 3 - ГЈГЁГЇГ®ГІГҐГ*ГіГ§Г*"
ElseIf b_2 ^ 2 + c_2 ^ 2 = a_2 ^ 2 Then
Print "Г’Г°ГҐГіГЈГ®Г«ГјГ*ГЁГЄ ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*Г»Г©. Г‡Г*Г*Г·ГҐГ*ГЁГї ГўГўГҐГ¤ВёГ*Г*Г»ГҐ Гў Г’Г…ГЉГ‘Г’ГЃГЋГЉГ‘ 2 ГЁ 3 ГїГўГ«ГїГѕГІГ±Гї ГЄГ*ГІГҐГІГ*Г¬ГЁ, Г* Гў Г’Г…ГЉГ‘Г’ГЃГЋГЉГ‘ 1 - ГЈГЁГЇГ®ГІГҐГ*ГіГ§Г*"
ElseIf a_2 ^ 2 + c_2 ^ 2 = b_2 ^ 2 Then
Print "Г’Г°ГҐГіГЈГ®Г«ГјГ*ГЁГЄ ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*Г»Г©. Г‡Г*Г*Г·ГҐГ*ГЁГї ГўГўГҐГ¤ВёГ*Г*Г»ГҐ Гў Г’Г…ГЉГ‘Г’ГЃГЋГЉГ‘ 1 ГЁ 3 ГїГўГ«ГїГѕГІГ±Гї ГЄГ*ГІГҐГІГ*Г¬ГЁ, Г* Гў Г’Г…ГЉГ‘Г’ГЃГЋГЉГ‘ 2 - ГЈГЁГЇГ®ГІГҐГ*ГіГ§Г*"
Else
Print "Г’Г°ГҐГіГЈГ®Г«ГјГ*ГЁГЄ Г*ГҐ ГЇГ°ГїГ¬Г®ГіГЈГ®Г«ГјГ*Г»Г©. "
End If
 
End Sub
                        