Ejemplo basico vB de una clase, funcion y procedimiento

Modulo:

Imports System.Console

Module Module1

Sub Main()

Dim c As New cRetorno

'Ingreso de un juego de cuatro numeros
WriteLine("Ingrese el primer numero")
Dim n1 As Int16 = ReadLine()

WriteLine("Ingrese el segundo numero")
Dim n2 As Int16 = ReadLine()

WriteLine("Ingrese el tercer numero")
Dim n3 As Int16 = ReadLine()

WriteLine("Ingrese el cuarto numero")
Dim n4 As Int16 = ReadLine()

'Salida de datos
WriteLine("LA SUMA DEL PRIMER Y CUARTO NUMERO ES: " & c.retorno1(n1, n4))
WriteLine("LA SUMA DEL SEGUNDO Y TERCER NUMERO ES: " & c.retorno2(n2, n3))
WriteLine("LA SUMA MAYOR ES: " & c.compare(c.retorno1(n1, n4), c.retorno2(n2, n3)))
Dim mayor As Integer = c.compare(c.retorno1(n1, n4), c.retorno2(n2, n3))
c.factorial(mayor)

End Sub

End Module

Clase:


Public Class cRetorno

Public Function retorno1(ByVal a As Int16, ByVal d As Int16) As Int16
Dim suma1 As Int16 = a + d
Return suma1

End Function

Public Function retorno2(ByVal b As Int16, ByVal c As Int16) As Int16
Dim suma2 As Int16 = b + c
Return suma2

End Function

Public Function compare(ByVal suma1 As Int16, ByVal suma2 As Int16) As Int16
Dim mayor As Int16 = Math.Max(suma1, suma2)
Return mayor

End Function

Public Sub factorial(ByVal fac As Integer)

Dim valor As Long = 1
Dim i As Long
For i = 1 To fac
valor = valor * i
Next

Console.WriteLine("EL FACTORIAL DEL NUMERO MAYOR ES: " & valor)

End Sub

End Class