ponemos
2 label y
escribimos: Calcular el área del triangulo, base, altura y Resultado. 3 textbox. y
2 botones, en el primero ponemos calcular y en el otro salir, damos doble clic
en el de calcular y escribimos:
Dim base As Double
Dim altura As Double
base = TextBox1.Text
altura = TextBox2.Text
TextBox3.Text = (base * altura) / 2
No hay comentarios.:
Publicar un comentario