Люди добрый у меня последняя задача осталась, помогите решить пожалуйста. Я заколебался уже. Все решил, одну правда при огромной помощи Андрея. В общем если кто поможет буду очень признателен, а то мне 21-ог сдавать.
1) Прореживание
Фермер решил посадить морковь. Однако всходы оказались слишком густыми, и возникла проблема их проредить. Фермер загадал натуральное число N(2<N<9) и придумал оптимальный с его точки зрения алгоритм выдергивания. Суть алгоритма состоит в следующем:
1) Задаем М, равное 2
2) Нумеруем все ростки натуральными числами, начиная с единицы.
3) Выдергиваем все ростки на которых делится М
4) Увеличиваем М на единицу
5) Если М не превосходит N, переход на шаг 2, иначе – конец процесса.
После прореживания на грядке осталось S(1<S<1000) ростков моркови. Найдите точный диапазон, в котором может находится числа ростков моркови перед началом процедуры прореживания.
Ввод: две строки. В первой записано число N, во второй – число S
Вывод: Интервал, в котором находится число ростков до прореживания.
Пример:
4
5
[15,18]
Спасибо за ранее. Мой ящик alb@parma.ru

спасибо. Буду очень ждать

Private S, N, M, i, k, S1, S2 As Long
Private YesNo As Boolean

Private Sub Command1_Click()
YesNo = False
S = Val(InputBox("Введите S"))
N = Val(InputBox("Введите N"))
For i = 1 To 1000000
k = i
For M = 2 To N
k = k - k \ M
Next M
If YesNo = False Then
If k = S Then
S1 = i +2
YesNo = True
End If
Else
If k <> S Then
S2 = i - 1
Me.Caption = S1 & " " & S2
Exit Sub
End If
End If

Next i
End
End Sub

Я изменил код, добавив s1= i+2
тогда ответ равен 15 и 18,
По другому не получается. Только осталось разобрать верно ли это