OPERACIONES BASICAS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim y1, x2, y2, x1, resultado As Double


Private Sub cmdCalcular_Click()
x1 = Val(Me.txtX1.Text)
y1 = Val(Me.txtY1.Text)
x2 = Val(Me.txtX2.Text)
y2 = Val(Me.txtY2.Text)

resultado = Sqr((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1))
Me.txtResultado.Text = resultado





End Sub