Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim LADOA As SingleDim LADOB As SingleDim LADOC As SingleLADOA = TextBox1.Text
LADOB = TextBox2.Text
LADOC = TextBox3.Text
If (LADOA = LADOB) And (LADOB = LADOC) ThenTextBox4.Text = "equilatero"Else
If (LADOA <> LADOB) And (LADOA <> LADOC) And (LADOB <> LADOC) ThenTextBox4.Text = "escaleno"ElseTextBox4.Text = "isosele"End IfEnd If
EndEnd Sub Class
No hay comentarios:
Publicar un comentario