Ниже мы рассмотрим программу на Excel VBA тот чеки является ли число простое число или нет.
Перед тем, как начать: в математике простое число - это число, которое имеет ровно два различных делителя числа: 1 и само себя. Наименьшие двадцать пять простых чисел: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73. , 79, 83, 89 и 97. Например, 8 имеет 1, 2, 4 и 8 в качестве делителей и не является простым числом.
Ситуация:
1. Сначала мы объявляем три переменные. Одну целочисленную переменную мы называем делителями, одну длинную переменную мы называем числом и одну длинную переменную называем i. Здесь мы используем переменные типа Long, потому что переменные типа Long имеют большую емкость, чем переменные типа Integer.
Dim divisors As Integer, Number As Long, i As Long
2. Инициализируем две переменные. Мы инициализируем переменные делители значением 0. Мы используем функцию InputBox, чтобы получить число от пользователя.
делители = 0
number = InputBox ("Введите число")
После того, как пользователь ввел число, мы хотим проверить, является ли это число простым или нет. Помните, что у простого числа есть ровно два различных делителя числа: 1 и само себя.
3. Запускаем цикл For Next.
Для i = 1 К номеру
4. Теперь переходит к самой важной части программы. Чтобы вычислить количество делителей числа, мы используем оператор Mod. Оператор Mod дает остаток от деления. Например, 7 mod 2 = 1, потому что 7, деленное на 2, равняется 3 с остатком 1. Только если 'number mod i' = 0, i является делителем числа. В этом случае мы хотим увеличить делители переменных на 1. Макрос, показанный ниже, делает свое дело.
Если число Mod i = 0 Тогда
делители = делители + 1
Конец, если
Excel VBA проверяет это на предмет i = 1, i = 2, i = 3, i = 4, пока i = число. Обратите внимание, что i = 1 и i = number всегда являются делителями числа. Только если эти числа являются единственными делителями числа, число будет простым числом.
5. Не забудьте замкнуть петлю.
Далее я
6. Если делитель равен 2, мы отображаем сообщение о том, что введенное число является простым числом. Если количество делителей больше 2, мы отображаем сообщение о том, что введенное число не является простым числом.
Если divisors = 2, то
Номер MsgBox & "простое число"
Еще
Номер MsgBox & "не является простым числом"
Конец, если
7. Протестируйте программу.
Результат для 104729:
