Ejercicios msgbox e inputbox de Visual Basic 6.0

MSGBOX

Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un entero que indica el botón utilizado.
Ejercicio 1

1.- Crear un formulario con un botón de comando como se muestra en la figura



2.- Incluir el el command1 el siguiente codigo en el evento click

msgbox "Actualización terminada", vbokonly, "Información"

3.- Ejecutar la aplicación

Ejercicio 2

Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

msgbox "¿Quieres seguir?", vbYesNo, "Información importante"

Ejercicio 3
 
Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código
 
Dim intRespuesta As Integer

intRespuesta = MsgBox("¿Quieres seguir?", vbQuestion + vbYesNo, Información importante")
If intRespuesta = 6 Then
        MsgBox"Seguimos"
Else
        MsgBox"Terminamos"
End If
 
Ejercicio 4
 
Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código
 
msgbox "Actualización terminada:" & vbCrLf & vbCrLf & _
"- Importación de datos de venta." & vbCrLf & "- Cálculos de impuestos." & _
vbCrLf & "- Venta por proveedor." & vbCrLf , vbOKOnly, "Actualización terminada."

Ejercicio 5

Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

msgbox "Actualización terminada:" & vbCrLf & vbCrLf & _

"- Importación de datos de venta." & vbCrLf & _
"- Cálculos de impuestos." & vbCrLf & _
"- Venta por proveedor." & vbCrLf _
, vbExclamation + vbOKOnly, _
"Actualización terminada."

INPUTBOX

Esta función muestra un cuadro de diálogo modal (éste es un término técnico para definir un formulario que ha de cerrarse antes de poder continuar con el desarrollo normal del programa), que contiene un Título y un Mensaje (definibles), un cuadro de texto y dos botones "ACEPTAR" y "CANCELAR".

 
Ejercicio 1
Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

Dim Val As String

Val = InputBox("Cual es tu nombre", "Ejemplo 1.-  INPUTBOX")
MsgBox "Su nombre es: " & Val

Ejercicio 2

Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

Dim Val As String
Val = InputBox("Digita tu numero de cuenta", "Ejemplo 2.- INPUTBOX","ABC-123")

Ejercicio 3

Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

Dim A As Double 'Números con muchos decimales
A = InputBox("Ingresa el precio del cual quieres obtener el IVA")
A = A * 0.15 'Obtenemos el IVA
MsgBox "El iva es: " & A