No me entra en lso for

[astrow25]

Hola, tengo un codigo en el que hay varios for, y no me entra dentro del for, he probado depurando y lo que hace es saltarse los for, si comprobar las condiciones de dentro de los for
Public Sub CalcularEscanos()
Dim contadores = New Integer
ReDim contadores(5)
Dim partidos As Integer
partidos = 0
Dim totalVotos As Integer
Dim escanos As Integer
escanos = 0
Dim mayorI As Integer
Dim mayorValor As Integer
mayorValor = 0
totalVotos = Val(Me.txtValidos.Text)
For partidos = 0 To partidos < 6 Step 1
If (Val(votosPartidos.Items(partidos)) < totalVotos * 0.05 And (Val(votosPartidos.Items(partidos)) <> 0)) Then
votosPartidos.Items(partidos) = -1
End If
Next partidos

For escanos = 0 To escanos < 13 Step 1
mayorI = 1
mayorValor = votosPartidos.Items(0)
For partidos = 2 To partidos < 5 Step 1
If (Val(votosPartidos.Items(partidos) / contadores(partidos) + 1)) > mayorValor / (contadores(mayorI) + 1) Then
mayorValor = Val(votosPartidos.Items(partidos))
mayorI = partidos
End If
If (Val(votosPartidos.Items(partidos) / contadores(partidos) + 1)) = mayorValor / (contadores(mayorI) + 1) And (Val(votosPartidos.Items(partidos)) > mayorValor) Then
mayorValor = Val(votosPartidos.Items(partidos))
mayorI = partidos
End If
Next partidos
contadores(mayorI) = contadores(mayorI) + 1
Next escanos

For partidos = 0 To partidos < 6 Step 1
If (Val(votosPartidos.Items(partidos)) = -1) Then
contadores(partidos) = "'<5%'"
End If
If (Val(votosPartidos.Items(partidos)) = 0) Then
contadores(partidos) = "''"
End If
Resultados.Items.Add(contadores(partidos))
Next partidos
End Sub

[ldcd]

me parece q en tus for tu condicion de parar es verdadera desde el inicio por eso nunca entran

For partidos = 0 To partidos < 6 Step 1
If (Val(votosPartidos.Items(partidos)) < totalVotos * 0.05 And (Val(votosPartidos.Items(partidos)) <> 0)) Then
votosPartidos.Items(partidos) = -1
End If
Next partidos

en este por ejemplo le asignas a partidos q sea 0, y la condicion para q pare es que partidos sea menor a 6 y como 0<6 entonces pues no entra.

intenta dejarlo asi:

For partidos = 0 To 6
If (Val(votosPartidos.Items(partidos)) < totalVotos * 0.05 And (Val(votosPartidos.Items(partidos)) <> 0)) Then
votosPartidos.Items(partidos) = -1
End If
Next partidos

pruebalo y avisanos si funciono.