Ejercicios de Visual Basic 12

REALIZAR UN PROGRAMA PARA CALCULAR LA PENDIENTE DE UNA RECTA

1. Insertamos los objetos con sus respectivos nombre

OBJETO	NOMBRE	CAPTION
Form	frmY1	PENDIENTE
Label	lblY2	Y1
Label	lblX1	Y2
Label	LblX2	X2
Label	lblResultado	RESULTADO
TextBox	txtY1
TextBox	txtY2
TextBox	txtX1
TextBox	TxtX2
TextBox	TxtX2
CommandButton	cmdLimpiar	LIMPIAR
CommandButton	cmdCalcular	Calcular

EN EL PROGRAMA VISUALIZAMOS ASI

2. Colocamos el siguiente codigo 

Option Explicit

Dim x1, x2, y1, y2, resultado As Integer

Private Sub cmdCalcular_Click()

x1 = Val(Me.txtx1.Text)

x2 = Val(Me.txtx2.Text)

y1 = Val(Me.txty1.Text)

y2 = Val(Me.txty2.Text)

resultado = Sqr(((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1)))

Me.txtResultado.Text = resultado

End Sub

Private Sub cmdLimpiar_Click()

Me.txtx1.Text = ""

Me.txtx2.Text = ""

Me.txty1.Text = ""

Me.txty2.Text = ""

Me.txtResultado.Text = ""

End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio