by Varun Godbole (15 Submissions)
Category: Math/Dates
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 11th November 2006
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Area of a Triangle using the semi-perimeter method
VBcoders
a = Val(side1.Text)
b = Val(side2.Text)
c = Val(side3.Text)
x = a + b + c
s = x / 2
smi.Text = Str$(s)
ar = s * z * m
area = ar ^ (0.5)
area.Text = Str$(area)
End Sub
Private Sub Option1_Click()
s1 = "1st Side"
s2 = "2nd Side"
s3 = "3rd Side"
s = "Semi - preimeter"
a = "Area"
Label1.Caption = s1
Label2.Caption = s2
Label3.Caption = s3
Label4.Caption = s
Label5.Caption = a
End Sub
