Estoy haciendo un proyecto k es un manager de baloncesto y estoy atascada en la fase de crear competiciones, tengo 2 vectores de equipos, para controlar cuales juegan en casa y cuales fuera y bueno, hasta la jornada 13 todo bien, pero despues me surgen unos problemillas...y es k me falta un partido y no se como hacerlo, os pongo el codigo a ver si me podeis ayudar...
Dim EquiposA(9) As Integer
Dim EquiposB(9) As Integer
Dim i, j, k As Integer
j = 1
For i = 1 To 9
EquiposA(i) = j
j = j + 2
Next i
j = 2
For i = 1 To 9
EquiposB(i) = j
j = j + 2
Next i
For j = 0 To 8 'primera parte de la competicion
txtjornadas.Text = txtjornadas.Text & "Jornada: " & (j + 1) & Chr(13) + Chr(10)
txtjornadas.Text = txtjornadas.Text + "-----------" & Chr(13) + Chr(10)
For i = 1 To 9
If ((i + j) > 9) Then 'controla si se acaba el vector
txtjornadas.Text = txtjornadas.Text & EquiposA(i) & " vs " & EquiposB(i + j - 9) & Chr(13) + Chr(10)
Else
txtjornadas.Text = txtjornadas.Text & EquiposA(i) & " vs " & EquiposB(i + j) & Chr(13) + Chr(10)
End If
Next i
Next j
EquiposA(1) = 1
EquiposA(2) = 5
EquiposA(3) = 9
EquiposA(4) = 13
EquiposA(5) = 17
EquiposA(6) = 2
EquiposA(7) = 6
EquiposA(8) = 10
EquiposA(9) = 14
EquiposB(1) = 3
EquiposB(2) = 7
EquiposB(3) = 11
EquiposB(4) = 15
EquiposB(5) = 4
EquiposB(6) = 8
EquiposB(7) = 12
EquiposB(8) = 16
EquiposB(9) = 18
For j = 0 To 3 'segunda parte de la competicion
txtjornadas.Text = txtjornadas.Text & "Jornada: " & (j + 10) & Chr(13) + Chr(10)
txtjornadas.Text = txtjornadas.Text + "-----------" & Chr(13) + Chr(10)
For i = 1 To 9
If ((i + j) > 9) Then 'controla si se acaba el vector
txtjornadas.Text = txtjornadas.Text & EquiposA(i) & " vs " & EquiposB(i + j - 9) & Chr(13) + Chr(10)
Else
txtjornadas.Text = txtjornadas.Text & EquiposA(i) & " vs " & EquiposB(i + j) & Chr(13) + Chr(10)
End If
Next i
Next j
For j = 1 To 4 'tercera parte de la competicion
txtjornadas.Text = txtjornadas.Text & "Jornada: " & (j + 13) & Chr(13) + Chr(10)
txtjornadas.Text = txtjornadas.Text + "-----------" & Chr(13) + Chr(10)
For i = 1 To 4 'falta un partido cada jornada
If ((i + j) > 9) Then 'controla si se acaba el vector
txtjornadas.Text = txtjornadas.Text & EquiposA(i) & " vs " & EquiposA(i + j - 9) & Chr(13) + Chr(10)
txtjornadas.Text = txtjornadas.Text & EquiposB(i) & " vs " & EquiposB(i + j - 9) & Chr(13) + Chr(10)
Else
txtjornadas.Text = txtjornadas.Text & EquiposA(i) & " vs " & EquiposA(i + j) & Chr(13) + Chr(10)
txtjornadas.Text = txtjornadas.Text & EquiposB(i) & " vs " & EquiposB(i + j) & Chr(13) + Chr(10)
End If
Next i
Next j
Gracias!!
