PRACTICA IV-7. creación de un procedimiento que utilize un número de argumentos incierto

EQUIPO No5

OBJETIVO.- Aprender a definir procedimientos que realicen una tarea, utilizan una cantidad de argumentos incierta y devuelven valores.

PROCEDIMIENTO.- Para esta práctica el procedimiento es el siguiente:

1. Utilice el proyecto que utilizó en practica 9-1
2. Abra la ventana código
3. vaya al menú Herramientas – agregar procedimiento. En el nombre coloque multilínea. El tipo especifique función y alcance privado.

Editar código (general), evento: Multilínea:

Option Explicit

Private Sub Form_Activate()

Call NoRecibeNoDevuelve

Dim intRespuesta As Integer

Print intRespuesta%

intRespuesta% = RecibeDevuelve("Funcion con argumentos")

Print intRespuesta%

Print intRespuesta%

Print intRespuesta%

Print Multilinea("No olvide", "- Guardar su trabajo", "- Salir")

Print Multilinea("A", "B", "C", "D", "E", "F")

End Sub

Public Sub NoRecibeNoDevuelve()

MsgBox "Funcion NoRecibeNoDevuelve", vbOKOnly, _

"NoRecibeNoDevuelve"

End Sub

Private Function RecibeDevuelve(Mensaje As String) As Integer

RecibeDevuelve = MsgBox(Mensaje, vbOKCancel + _

vbQuestion, "Funcion RecibeDevuelve")

End Function

Private Function Multilinea(ParamArray Lineas()) As Integer

Dim Mensaje As String

Dim Argumento As Variant

For Each Argumento In Lineas

Mensaje$ = Mensaje$ & Argumento & Chr(10) & Chr(13)

Next Argumento

Multilinea = MsgBox(Mensaje$, vbOKCancel, "Multilinea")

End Function

CONCLUSIONES: Se presentaron diferentes y nuevas opciones para trabajar en las aplicaciones; en especial la multilínea que enlista varios elementos en una misma columna.