Hola Luis

No se entiende muy bien lo que necesitas, pero si no me equivoco lo que quieres hacer es añadir ceros a la izquierda a los números menores de 10, para que estos formen una logintud de 2 caracteres, par.

Dim valuesInt As IEnumerable(Of Integer) =
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
 
Dim valuesStr As IEnumerable(Of String) =
    From value As Integer In valuesInt
    Select CStr(value).PadLeft(totalWidth:=2, paddingChar:="0"c)
 
Console.WriteLine(String.Join(", ", valuesStr))

Resultado de ejecución:

Saludos

Más bien parecen permutaciones, pero sigue sin estar claro y sabes que la ausencia de información esencial me cabrea, da los detalles necesarios, no me hagas tener que escribir o explicar 20 códigos distintos por no saber los detalles suficientes del algoritmo, ¿que pasa si el numero es 10, o 152, o 25095, o 123456789?, ¿qué se debe hacer entonces?.

No explicaré el código hasta que me puedas confirmar si es correcto así, pero si no entiendes algo de este código, pregunta:

Dim valuesInt As IEnumerable(Of Integer) =
    {1, 3, 4, 6, 2, 5, 8, 7, 9, 10}
 
Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
    From value As Integer In valuesInt
    Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
           key:=value,
           value:=From index As Integer In Enumerable.Range(1, 9)
                  Where index <> Integer.Parse(CStr(value).Last)
                  Select CInt(value & index))
 
For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
 
    Console.WriteLine(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
 
Next pair

Resultado de ejecución:


Saludos!

Bien, si según dices no hay número mayor de 9 en el array inicial, entonces todo perfecto con el último código que te puse, ¿no?

...Solo que si el array inicial contiene un 0, entonces deberás devolver uno de strings para formatear los ceros, y de paso podemos evitar castings innecesarios:

Lo que hago es, por cada valor de la colección de origen (ej: {1,5,3,6,7,2,9,4,0}) recorro el rango del 1 al 9 ({1,2,3,4,5,6,7,8,9}), y los voy uniendo en un string con el valor inciial (ej: 1&2="12", 1&3="13", así hasta el 9), excluyendo el valor que sea igual, es decir, si número de rango=1 y número de origen=1, entonces no juntar 1&1 para obtener el string "11".

El poder de LINQ xD.

Public Shared Function Test(ByVal col As IEnumerable(Of Integer)) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of String)))
 
    If (col.Max >= 10) Then
        Throw New ArgumentException(paramName:="col", message:="Maximum value samaller than 10 is required.")
 
    Else
        Return From value As Integer In col
               Select New KeyValuePair(Of Integer, IEnumerable(Of String))(
                      key:=value,
                      value:=From index As Integer In Enumerable.Range(1, 9)
                             Where (index <> value)
                             Select (value & index))
    End If
 
End Function

+

Dim values As IEnumerable(Of Integer) =
    {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
 
For Each pair As KeyValuePair(Of Integer, IEnumerable(Of String)) In Test(values)
 
    Console.WriteLine(String.Format("Key: {0,-4} Values: {1}",
                                    pair.Key, String.Join(", ", pair.Value)))
 
Next pair

Resultado de ejecución:

Recordemos tus expectativas:

Saludos

De nada, pero déjame hacerte un consejo, ¿sabes lo que estaría muy bien que hagas?, un módulo donde definir todas esas funciones para tus propósitos, que seguro son muchas funciones ya en todo este tiempo... y así, aparte de reducir código, no llenarías tanto código para volverlo un código spaghetti.

Hazme caso, no se si aceptarás mi sugerencia, en caso de que lo hagas no se si al principio pensarás que no te vale la pena (por que creo que te cuesta bastante escribir xD), pero a la larga si, sobre todo para la depuración de posibles fallos, joder, que ahora mismo lo tienes todo mezclao por todos laos.

Incluso podrías crear extensiones de método para ganar mayor simplificación de código.

Te lo digo simplemente como una sugerencia para mejorar tus hábitos de programación, puedes tomarla o ignorarla.


Un ejemplo inicial:

Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of String))) =
    {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}.GetPairs()
 
For Each pair As KeyValuePair(Of Integer, IEnumerable(Of String)) In pairs
 
    ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
 
Next pair

+

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Runtime.CompilerServices
 
Public Module IEnumerableExtensions
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Descripción de lo que hace esta función.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' La colección de origen.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' Descripción delo que devuelve esta función.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="ArgumentException">
    ''' El valor máximo de la colección debe ser un valor inferior a 10.;col
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <Extension>
    <DebuggerHidden>
    <DebuggerStepThrough>
    Public Function GetPairs(ByVal sender As IEnumerable(Of Integer)) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of String)))
 
        If (sender.Max >= 10) Then
            Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.")
 
        Else
            Return From value As Integer In sender
                   Select New KeyValuePair(Of Integer, IEnumerable(Of String))(
                          key:=value,
                          value:=From index As Integer In Enumerable.Range(1, 9)
                                 Where (index <> value)
                                 Select (value & index))
        End If
 
    End Function
 
End Module

Saludos

 Habia un detalle pero lo resolvi



value:=From index As Integer In Enumerable.Range(1, 9) <--me tomaba estos valores

value:=From index As Integer In valuesInt  <-------corregido


luis