Ejercicios de Visual Basic 5

Realizar un programa para obtener la raiz cuadrada

1. Insertamos los objetos con sus respectivos nombres

OBJETO		NOMBRE	CAPTION
Form		frmPrincipal	RAIZ CUADRADA
Label		lblNumero	NUMERO
Label		lblRaiz	RAIZ
TextBox		txtNumero
TextBox	txtRaiz
CommandButton	btnCalcular		CALCULAR
CommandButton	btnSalir		SALIR

EN EL PROGRAMA DEBE VISUALIZARSE ASI:

2. Colocamos el siguiente codigo 

Option Explicit

Private Sub btnCalcular_Click()
Dim numero As Single
Dim resultado As Single
numero = InputBox("Ingrese numero", "dato del usuario")
resultado = Sqr(numero)
txtNumero.Text = numero
txtResultado.Text = resultado
End Sub

Private Sub btnSalir_Click()
End
End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio