Question

Напиши код і як оформити форму для поданої нижче задачі в програмі Visual Basic: Обчислити периметр і площу прямокутного трикутника за заданим катетом та гострим кутом.​

Answer 1

```vb

Imports System.Math

Public Class Form1

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        ' Отримання значень катета та гострого кута з текстових полів

        Dim cathetus As Double = CDbl(txtCathetus.Text)

        Dim angle As Double = CDbl(txtAngle.Text)

        ' Обчислення гіпотенузи за катетом і гострим кутом

        Dim hypotenuse As Double = cathetus / Sin(angle * PI / 180)

        ' Обчислення периметра

        Dim perimeter As Double = cathetus + hypotenuse + hypotenuse

        ' Обчислення площі

        Dim area As Double = (cathetus * hypotenuse) / 2

        ' Виведення результатів у текстові поля

        txtPerimeter.Text = perimeter.ToString()

        txtArea.Text = area.ToString()

    End Sub

End Class