Ощибка -Compile error:

[Krioss McKill'em]

при удалении элементов из списка их исло уменьшается и N не будет соответствовать числу элементов списка.

Да) вот об этом-то я не подумал... А удалять с конца не катит потому что суть в том, чтобы удалять каждый второй после 2 (4, 6, 8 ). Потом каждый третий после 3...

Во. заработало.
d = N
For c = 2 To d
f = c + 2
If f <= d Then List1.RemoveItem f
d = d - 1
Next

[Viper]

так удаляй с конца, но с шагом 2 (или 3)

[Krioss McKill'em]

d = N
For c = 2 To d
f = c + 2
If f <= d Then List1.RemoveItem f
d = d - 1
Next

вот я сделал чтоб удаляло каждое второе после 4 (включительно). Если кто может скажите как запихнуть это в ещё один цикл, чтоб он сам же проводил аналогичную операцию ещё раз 10 (каждый третий после тройки (не включительно), каждый 4-й после четвёрки...), в итоге останутся только простые числа.
*N - двузначное.
То есть по типу вот этого, только вот это не работает, чего я ни пробовал:

Код: Выделить всё

For r = 2 To 5
d = List1.ListCount
For c = r To d
f = c + r
If f <= d Then List1.RemoveItem f
d = d - 1
Next
d = List1.ListCount
Next

[Viper]

Может быть все-таки стоит поискать алгоритм нахождения простых чисел, чем писать такую чушь?

[Krioss McKill'em]

Да... найди попробуй!

[Amed]

http://algolist.manual.ru/maths/teornum/