Найти площадь трапеции - VB

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

Создатть программу, которая находит площадь трапеции по её основаниям и высоте. .

помогите плз сестренке надо, я только в паскале бы смог.

Решение задачи: «Найти площадь трапеции»

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

                            Private Sub Command1_Click()
    Dim A As Double, r As Double, s1 As Double, s2 As Double
    Pi = 3.14159
    A = CDbl(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г±ГІГ®Г°Г®Г*Гі ГЄГўГ*Г¤Г°Г*ГІГ*"))
    r = CDbl(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г°Г*Г¤ГЁГіГ± ГЄГ°ГіГЈГ*"))
    s1 = A ^ 2
    s2 = (r ^ 2) * Pi
    MsgBox IIf(s1 > s2, "ГЉГўГ*Г¤Г°Г*ГІ", "ГЉГ°ГіГЈ") & ", ГЇГ«Г®Г№Г*Г¤Гј Г°Г*ГўГ*Г* " & _
        CStr(IIf(s1 > s2, s1, s2))
End Sub
                        

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

15 голосов , оценка 3.667 из 5

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