calculando lados

TRABAJOS EN CLASE

Public Class Form1

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

        Dim LADOA As Single

        Dim LADOB As Single

        Dim LADOC As Single

        LADOA = TextBox1.Text

        LADOB = TextBox2.Text

        LADOC = TextBox3.Text

        If (LADOA = LADOB) And (LADOB = LADOC) Then

            TextBox4.Text = "equilatero"

        End If

        If (LADOA = LADOC) And (LADOB > LADOC) Then

            TextBox4.Text = "isosele"

        End If

        If (LADOA <> LADOB <> LADOC <> LADOA) Then

            TextBox4.Text = "escaleno"

        End If