Ejercicio Programación Triangulo‏

Ejercicio Triangulo

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim l1 As Single

Dim l2 As Single

Dim l3 As Single

l1 = TextBox1.Text

l2 = TextBox2.Text

l3 = TextBox3.Text

If (l1 = l2 And l2 = l3) Then

TextBox4.Text = "Equilatero"

Else

If (l1 <> l2) And (l1 <> l3) And (l2 <> l3) Then

TextBox4.Text = "Escaleno"

Else

TextBox4.Text = "Isoseles"

End If

End If

End Sub

End Class