Отчет по лабораторной работе. Вычислить медиану треугольника. Эскиз электронной формы

a=3,7 b=3,7 c=3,7
где: 1) а=b=с=5, А=В=С=60°
2) а=4, b=5, с=5,4; А=46°, В=64°, С=70°
 Вычислить площадь кольца:
Вычислить:
при x=2 y= -3

ygolc, RA, r, Sk, x, y, u, v As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
c = CSng(TextBox3.Text)
m = Math.Sqrt(2 * a * a + 2 * c * c - b * b) / 2
TextBox4.Text = TextBox4.Text + CStr(m) + vbCrLf
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
c = CSng(TextBox3.Text)
ygola = (CSng(TextBox9.Text) * Math.PI) / 180
ygolb = (CSng(TextBox10.Text) * Math.PI) / 180
ygolc = (CSng(TextBox11.Text) * Math.PI) / 180
s = (a * a * Math.Sin(ygolb) * Math.Sin(ygolc)) / (2 * Math.Sin(ygola))
TextBox4.Text = TextBox4.Text + CStr(s) + vbCrLf
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
RA = CSng(TextBox5.Text)
r = CSng(TextBox6.Text)
Sk = Math.PI * ((RA * RA) - (r * r))
TextBox4.Text = TextBox4.Text + CStr(Sk) + vbCrLf
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
x = CSng(TextBox7.Text)
y = CSng(TextBox8.Text)
u = (x * x + y * y) / (1 - x * x - y * y)
TextBox4.Text = TextBox4.Text + CStr(u) + vbCrLf
End Sub

Handles Button6.Click
x = CSng(TextBox7.Text)
y = CSng(TextBox8.Text)
v = ((1 - x * (y / 2 - 1) * (y / 2 - 1)) * (1 - x * (y / 2 - 1) * (y / 2 - 1))) / (x * x)
TextBox4.Text = TextBox4.Text + CStr(v) + vbCrLf
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class