Programa en Visual que calcula área de triangulo y dice que tipo de triangulo es mostrando una
imagen
Public Class Form1
Private Sub Button1_Click(sender As [Link], e As [Link])
Handles [Link]
Dim altura, base, area, lado3, lado2, lado1 As Double
base = [Link]
altura = [Link]
area = (base * altura) / 2
[Link] = area
If(lado1=lado2)&&(lado2=lado3)then
[Link] = "Equilatero"
[Link] = True
End If
End Sub
Private Sub Form1_Load(sender As [Link], e As [Link]) Handles
[Link]
[Link] = False
[Link] = False
[Link] = False
End Sub
End Class