Вывести все простые числа из интервала от 2 до N - VB
Формулировка задачи:
Помогите с решением задач, пожалуйста!( а то не пойму как их решить).
Задача 2.
Дано натуральное число N>2.Вывести все простые числа из интервала от 2 до N.
Спасибо заранее.))))
Решение задачи: «Вывести все простые числа из интервала от 2 до N»
textual
Листинг программы
Option Explicit
Sub Простые_числа()
Dim I As Long, N As Long
N = InputBox("Введите верхний предел -")
Debug.Print 2
For I = 3 To N Step 2
If isSimple(I) Then
Debug.Print I
End If
Next I
End Sub
Function isSimple(I As Long) As Byte
Dim J As Long
For J = 3 To Int(Sqr(I)) Step 2
If (I Mod J) = 0 Then Exit Function
Next J
isSimple = 1
End Function