Hola a todos,
estoy desde hacer ya como 3 horas tratando de escribir un código que me combine un par de números y no logro hacerlo de forma correcta, ya eh probado con arrays, matrices, no logro hacer que funcione correctamente.
El problema que quiero resolver es el siguiente:
Tengo 5 equipos, y quiero armar un fixture de todos contra todos, al ser 5 equipos son 2 partidos por fase y uno queda libre, y cada equipo no puede jugar mas de un partido por fase.
Espero que alguien me pueda dar una mano.
Muchas gracias.
Saludos.

Hola, fijate si este ejemplo te ayuda en algo...

Imports System.Text
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim vCantidadEquipos As Integer = 5
 
        Dim vTotalFechas As Integer = vCantidadEquipos - 1
        Dim vPartidosPorFecha As Integer = vCantidadEquipos \ 2
 
        Dim vFechas As String()() = New String(vTotalFechas - 1)() {}
 
        For vFecha As Integer = 0 To vTotalFechas - 1
            vFechas(vFecha) = New String(vPartidosPorFecha - 1) {}
        Next
 
        For vFecha As Integer = 0 To vTotalFechas - 1
            For vPartido As Integer = 0 To vPartidosPorFecha - 1
                Dim vLocal As Integer = (vFecha + vPartido) Mod (vCantidadEquipos - 1)
                Dim vVisitante As Integer = (vCantidadEquipos - 1 - vPartido + vFecha) Mod (vCantidadEquipos - 1)
 
                If vPartido = 0 Then
                    vVisitante = vCantidadEquipos - 1
                End If
 
                vFechas(vFecha)(vPartido) = (vLocal + 1) & " v " & (vVisitante + 1)
            Next
        Next
 
        Dim vLista As New StringBuilder()
 
        For i As Integer = 0 To vFechas.Length - 1
 
            vLista.Length = 0
            Debug.WriteLine("Fecha: " & (i + 1))
            Array.Sort(vFechas(i))
 
            For outer As Integer = 0 To vPartidosPorFecha - 1
                vLista.Append(vFechas(i)(outer) & ", ")
            Next
 
            vLista.Length = vLista.Length - 2
            Debug.WriteLine(vLista.ToString())
            Debug.WriteLine("")
        Next
    End Sub
End Class
 

saludos.