un problemita usando if dentro de un for

[Zerus-]

bueno ya busque no encuentor la solucion en internet asi que cree este tema

Código [Seleccionar] Expandir

Private Sub Command4_Click()
For j = 0 To i
If Text2 = List1.List(j) Then
List2.AddItem Text2
List1.RemoveItem (j)
List3.AddItem j
Else
MsgBox "no hay valores a eliminar", 16, "alto"
End If
Next
ne = ""
End Sub


este lo que hace el programa es que entre 5 numeros y eliminar por los datos que pongas como ven en la imagen , este cuando pongo un numero que no va me aparece el msgbox las veces que e metido datos  y si pongo el next arriba del else me pone if sin for   .a parte de eso jeje si me pudieran ayudar mmm de hecho creo que es la solucion del problema porque si le pongo un epacio en blanco me pone un error en  remove item pero creo que si se arregla lo del else ese problema se solucionara
espero me puedan ayudar...
por si acaso aqui esta el programa si le quieren dar uan checada el error esta en el eliminar por  dato nota dice examen fallido porque era un examen que no pase usando c++ puesto que ahora lo hare en visual para mayor facilidad
http://www.badongo.com/file/24260721

[TGa.]

lo que sucede es que no indicas cuantas veces tiene que realizarse el bucle.
en la sentencia

Código [Seleccionar] Expandir

For j=0 to i
no estas indicando cuanto vale i...

por lo tanto lo solucionas colocando antes del bucle lo siguiente:

Código (vb) [Seleccionar] Expandir

i=List1.listcount

[Zerus-]

de hecho si

Código [Seleccionar] Expandir

Private Sub Command2_Click()
ins = Val(Text1.Text)
Top = 5
If ins = "0" Then
MsgBox "no hay datos que meter ¬¬", 32, "alto"
ElseIf i < Top Then
If ins > 5.1 And ins < 69.5 Then
List1.AddItem ins
i = i + 1
Else
MsgBox "no se puede guardar esta fuera de los limites establecidos", 16, "alto"
End If
Else
MsgBox "pila llena", 16, "alto"
End If
Text1 = ""
End Sub
cuando meto numeros i me incrementa en +1 por cada ves que inserte datos
************
lo declare antes del bucle y me sige marcando igual mm subire mi archivo aver si alguien lo ve

[BlackZeroX]

usa

Código (Vb) [Seleccionar] Expandir



Option Explicit



y avisa si te causa errores en las declaraciones... aun asi i = i +1 es ahora si que tonto ya que puedes usar la propiedad listcount del List1.

Dulce Infierno Lunar!¡.