ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Ejemplos De Visual.net


Enviado por   •  29 de Abril de 2013  •  346 Palabras (2 Páginas)  •  387 Visitas

Página 1 de 2

msgbox : es una pequeña ventana que muestra un mensaje(reemplaza el metodo console.write)

EJEPLO

1SINTAXIS SIMPLE

MSGBOX("MENSAJE")

INPUTBOX: CUADRO DE DIALOGO QUE NOS PERMITE INGRESAR DATOS

SINTAXIS

INPUTBOX("MENSAJE A MOSTRAR")

EJEMPLO

1.INGRESAR UN NONBRE(EN UN INPUTBOX)Y

MOSTRARLO(MSBOX)

Module Module1

Sub Main()

MsgBox("Hola")

MsgBox("bienvenidos", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNoCancel, "ejemplo")

End Sub

End Module

Module Module2

Sub Main()

Dim N As String

N = InputBox("INGRESE NONBRE :")

MsgBox("NOBRE INGRESADO" + N)

'AGREGAR UN MODULO QUE PERMITA INGRESAR,NONBRE,APELLIDO,EDAD

'MOSTRAR EN UN MENSAJE ESTOS DATOS EMPLEAR MSGBOX E INPUTBOX

End Sub

End Module

Module Module3

Sub MAIN()

Dim N, A As String

Dim E As String

N = InputBox("INGRESAR NONBRE ")

A = InputBox("INGRESE APELLIDO ")

E = InputBox("INGRESE EDAD ")

MsgBox(N + Chr(13) + A + Chr(13) + E.ToString)

End Sub

End Module

Module Module4

Sub MAIN()

Dim N, A As String

Dim N1, N2, PROMEDIO As Integer

N = InputBox("INGRESE NONBRE :")

A = InputBox("INGRESE APELLIDO : ")

N1 = InputBox("NOTA 1 ")

N2 = InputBox("NOTA 2")

PROMEDIO = (N1 + N2) / 2

MsgBox("EL PROMEDIO ES" + PROMEDIO.ToString)

End Sub

End Module

...

Descargar como (para miembros actualizados) txt (1 Kb)
Leer 1 página más »
Disponible sólo en Clubensayos.com