Juan
26 de Abril del 2004

Hola quisiera que cuando la condicion sea falsa la variable "num" acumule el valor nuevo y luego que lo reemplaza en el nuevo valor del for.

Private Sub CmdIngresar_Click()

total = Val(Text1)
num = total + 11
For i = 11 To num
If i Mod 2 <> 0 Then
LstPrimos.AddItem i
Else
num = num + 1
End If
Next

End Sub