Código de 2 Rutinas y 1 función

Estimados Alumnos:

He aquí el código de lo que vimos el viernes pasado:

Module Module1
'rutinas o procedimientos
Private Sub Escribe(ByVal mensaje As Object)
    Console.Write(mensaje)
End Sub

Private Sub EscribeLn(ByVal mensaje As Object)
    Console.WriteLine(mensaje)
End Sub

Private Function Leer() As Object
    Return Console.ReadLine()
End Function

Private Function Sumar(ByVal a As Integer, ByVal b As Integer, Optional ByVal c As Integer = 0) As Integer
If c <> 0 Then
    Return a + b + c
Else
    Return a + b
End If
End Function

Private Function mayor2(ByVal ParamArray valores()) As Integer
Dim mayor As Integer = 0
Dim i As Integer
For i = 0 To valores.Length - 1
    If mayor < valores(i) Then
        mayor = valores(i)
    End If
Next
Return mayor
End Function

Sub Main()
Dim valor As Integer
valor = mayor2(2, 5, 6, 4, 10, 20, 15, 13)
Escribe(valor)
Leer()

End Sub

End Module
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s