Find the area of a triangle using VB
Program Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox2.Text = 3.14 * TextBox1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox5.Text = TextBox3.Text * TextBox4.Text
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Dim a As Integer = TextBox6.Text
Dim b As Integer = TextBox7.Text
Dim c As Integer = TextBox8.Text
Dim s As Double = (a + b + c) / 2
Dim findarea As Double = Math.Sqrt(s * (s - a) * (s - b) * (s - c))
TextBox9.Text = findarea
End Sub
End Class
