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

7 comentarios:

Marisol dijo...

Hola como estas...gracias por la información muy clara ya aprendi :)...un millón de gracias.

Anónimo dijo...

hola

Unknown dijo...

hola podrias mostrarme un programa o ejemplo con los msgbox de informacion, critical, exclamacion y yes,no

Verónica sales dijo...

Hola me podría mostrar un programa o un ejemplo con los msgbox de información, critical, exclamacion y yes,no

Unknown dijo...

Donde puedo descargar bisual basic 6.0

Manuel dijo...

Es posible cambiar el nombre de los botones??

JCESCOBAR dijo...

PERDON MI IGNORANCIA, PORQUE LA INSTRUCCION: If respuesta = 6 Then, OSEA PORQUE 6? GRACIAS