Maider

Module Module1

    Sub Main()
        Dim Cuenta() As String = {"01234567810123456789", "451673267925487215478", "20540094870000062141", "53246345189742345324", "74539293410003452345", "45643786349753456720"}
        Dim digitos() As Integer = {7, 3, 6, 1, 2, 4, 8, 5}
        Dim digitos2() As Integer = {10, 9, 7, 3, 6, 1, 2, 4, 8, 5}
        Dim ochoNum As String
        Dim ultimosNum As String
        Dim dosNumStr As String
        Dim dosNum As Integer
        Dim SeparadosStr As String
        Dim separados As Integer
        Dim suma As Integer
        Dim multiplicacion As Integer
        Dim dc1 As Integer
        Dim dc2 As Integer
        Dim dc As Integer
        For i = 0 To Cuenta.Length - 1

            ochoNum = Cuenta(i).Substring(0, 8)

            suma = 0
            For j = 0 To ochoNum.Length - 1
                SeparadosStr = ochoNum.Substring(j, 1)
                Integer.TryParse(SeparadosStr, separados)
                multiplicacion = separados * digitos(j)
                suma = suma + multiplicacion
            Next
            dc1 = suma Mod 11
            ultimosNum = Cuenta(i).Substring(10, 10)
            suma = 0
            multiplicacion = 0
            For j = 0 To ultimosNum.Length - 1
                SeparadosStr = ultimosNum.Substring(j, 1)
                Integer.TryParse(SeparadosStr, separados)
                multiplicacion = separados * digitos2(j)
                suma = suma + multiplicacion
            Next
            dc2 = suma Mod 11
            dc = dc1 & dc2

            dosNumStr = Cuenta(i).Substring(8, 2)
            Integer.TryParse(dosNumStr, dosNum)

            Console.Write("Nº  {0}", Cuenta(i))
            If dosNum = dc Then
                Console.WriteLine("es válido, con los DC {0}", dosNum)
            Else
                Console.WriteLine("NO es válido, porque sus DC son {0} y deberían se {1}", dosNum, dc)
            End If
        Next



        Console.ReadKey()
    End Sub

End Module