Programación en Visual Basic 2008

También se pueden declarar los parámetros para las funciones exactamente de
la misma forma que lo haría con las subrutinas.
Inténtelo
Para crear una función con parámetros
En el menú Archivo, elija Nuevo proyecto.
En el cuadro de diálogo Nuevo proyecto, en el panel Plantillas, haga clic en
Aplicación para Windows.
En el cuadro Nombre, escriba parameters y haga clic en Aceptar.
Se abre un nuevo proyecto de formularios Windows Forms.
En el Cuadro de herramientas, arrastre dos controles Textbox al formulario.
En el Cuadro de herramientas, arrastre un control Button al formulario.
Haga doble clic en Button para abrir el Editor de código.
Inmediatamente después de la línea End Sub del controlador de eventos
Button1_Click, agregue el siguiente procedimiento:
Visual Basic Express Copiar código
Function AddTwoNumbers(ByVal N1 As Integer, ByVal N2 As Integer) _
As Integer
Return N1 + N2
End Function
En el procedimiento Button1_Click, agregue el código siguiente:
Visual Basic Express Copiar código
Dim aNumber As Integer = CInt(Textbox1.Text)
Dim bNumber As Integer = CInt(Textbox2.Text)
MsgBox(AddTwoNumbers(aNumber, bNumber))
Este código declara dos enteros y convierte el texto de los dos cuadros de texto
en valores enteros. Luego pasa dichos valores a la función AddTwoNumbers y
muestra el valor devuelto en un cuadro de mensaje.
Presione F5 para ejecutar el programa.
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 44