Cuenta letras VB.NET

    'Este programa se ha desarrollado con finalidad didáctica por lo tanto el creador como el

    'distribuidor de dicho código no se hacen responsable por mal uso de dicho programa o por

    'fallos de dicha aplicación.

    'Puesto que es un proyecto de código abierto usted puede modificar el código si así lo

    'desea u ocuparlo libre mente.

    'Desarrollador: Gustavo Ortiz

    'Web: http://codigosfuentes.host56.com/

    'Blog: http://codigosfuentespuntonet.blogspot.com/

    Public Function CuentaLetrasFibraOptica(ByVal cadena As String) As String

        cadena = UCase(cadena)

        Dim n As Integer

        Dim sonLetras As Integer = 0

        Dim sonDigitos As Integer = 0

        Dim espacios As Integer = 0

        For n = 0 To Len(cadena) - 1

            If Asc(cadena(n)) > 64 AndAlso Asc(cadena(n)) < 91 Then

                sonLetras = sonLetras + 1

            End If

        Next

        For n = 0 To Len(cadena) - 1

            If Asc(cadena(n)) > 47 AndAlso Asc(cadena(n)) < 58 Then

                sonDigitos = sonDigitos + 1

            End If

        Next

        For n = 0 To Len(cadena) - 1

            If Asc(cadena(n)) = 32 Then

                espacios = espacios + 1

            End If

        Next

        Return "# Caracteres " & Len(cadena) & vbLf & _

        "# Letras " & sonLetras & vbLf & _

        "# Digitos " & sonDigitos & vbLf & _

        "#Spc EnBlanco " & espacios

    End Function

Saber cual de tres números es el mayor VB.NET

    Sub Main()

        'Datos De Entrada

        Dim N1, N2, N3 As Long

        'Entrada De Datos Del Usuario

        Console.WriteLine("Digete El Primer Numero:")

        N1 = Console.ReadLine

        'Entrada De Datos Del Usuario

        Console.WriteLine("Digete El Segundo Numero:")

        N2 = Console.ReadLine

        'Entrada De Datos Del Usuario

        Console.WriteLine("Digete El Tercer Numero:")

        N3 = Console.ReadLine

        'Incio De La Estructura Condicional IF

        If N1 > N2 And N1 > N3 Then

            If N2 > N3 Then

                Console.WriteLine("El numero mayor es :" & N1)

                Console.WriteLine("El numero menor es :" & N3)

                Console.ReadLine()

            Else

                Console.WriteLine("El numero mayor es :" & N1)

                Console.WriteLine("El numero menor es :" & N2)

                Console.ReadLine()

            End If

        ElseIf N2 > N1 And N2 > N3 Then

            If N1 > N3 Then

                Console.WriteLine("El numero mayor es :" & N2)

                Console.WriteLine("El numero menor es :" & N3)

                Console.ReadLine()

            Else

                Console.WriteLine("El numero mayor es :" & N2)

                Console.WriteLine("El numero menor es :" & N1)

                Console.ReadLine()

            End If

        Else

            If N2 > N1 Then

                Console.WriteLine("El numero mayor es :" & N3)

                Console.WriteLine("El numero menor es :" & N1)

                Console.ReadLine()

            Else

                Console.WriteLine("El numero mayor es :" & N3)

                Console.WriteLine("El numero menor es :" & N2)

                Console.ReadLine()

            End If

        End If

    End Sub

Factor de un Numero VB 6.0

 
A continuación les mostrare como crear una función que calcule el factor de un numero dichas funciones están escritas en VB 6.0

Public Function Factor1(ByVal Numero As Long) As Long

        Dim Factor As Long

        Dim contador As Long

        contador = Numero - 1

        Factor = Numero

        Do While contador > 0

            Factor = Factor * contador

            contador = contador - 1

        Loop

        Factor1 = Factor

    End Function

    Public Function Factor2(ByVal Numero As Long) As Long

        Dim Factor As Long

        Dim contador As Long

        Factor = Numero

        For contador = Numero - 1 To 1 Step -1

            Factor = Factor * contador

        Next

        Factor2 = Factor

    End Function

    Public Function Factor3(ByVal Numero As Long) As Long

        Dim Factor As Long

        Dim contador As Long

        Factor = Numero

        contador = Numero

retorno:

        contador = contador - 1

        If contador > 0 Then

            Factor = Factor * contador

            GoTo retorno

        End If

        Factor3 = Factor

    End Function