Определить является ли число простым - VB
Формулировка задачи:
Помогите,пожалуйста, решить задачку))))
Дано натуральное число n. Определить, является ли оно простым.
Решение задачи: «Определить является ли число простым»
textual
Листинг программы
Dim n, i
n = InputBox("Vvedite N")
If n=2 Then MsgBox "Простое", , "2 - простое число": Exit Sub
If n Mod 2 = 0 Then MsgBox "Не простое", , "Чётное": Exit Sub
For i = 3 To n Step 2
If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
m = n \ i 'верхняя граница приближается
If i > m Then Exit For
Next i
MsgBox "Простое"