У наставку ћемо погледати програм у Екцел ВБА то провере да ли је број а прост број или не.
Пре него што почнете: у математици, прост број је број који има тачно два различита делитеља бројева: 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. Прво, декларишемо три променљиве. Једна целобројна променљива коју називамо делитељи, једна дугачка променљива коју називамо бројем и једна дугачка променљива коју називамо и. Овде користимо Лонг променљиве јер Лонг варијабле имају већи капацитет од Интегер променљивих.
Дим делитељи као цео број, број Ас Лонг, и Ас Лонг
2. Покрећемо две променљиве. Покрећемо променљиве делитеље са вредношћу 0. Користимо функцију ИнпутБок да добијемо број од корисника.
делитељи = 0
нумбер = ИнпутБок ("Унесите број")
Након што је корисник унео број, желимо да проверимо да ли је тај број прост број или не. Запамтите, прост број има тачно два различита делитеља бројева: 1 и самог себе.
3. Покрећемо петљу Фор Нект.
За и = 1 За број
4. Сада следи најважнији део програма. За израчунавање броја делилаца броја користимо оператор Мод. Оператор Мод даје остатак деобе. На пример, 7 мод 2 = 1 јер је 7 подељено са 2 једнако 3 са остатком 1. Само ако је 'број мод и' = 0, и је делитељ броја. У овом случају желимо повећати променљиве делитеље за 1. Макро испод чини трик.
Ако је број Мод и = 0 Тада
делитељи = делитељи + 1
Крај Ако
Екцел ВБА проверава ово за и = 1, и = 2, и = 3, и = 4 све док и = број. Имајте на уму да су и = 1 и и = број увек делитељи броја. Само ако су ти бројеви једини делитељи броја, број је прост број.
5. Не заборавите да затворите петљу.
Затим сам
6. Ако су делитељи једнаки 2, приказаћемо оквир за поруке који каже да је унети број прост број. Ако је број делитеља већи од 2, приказује се порука која каже да унети број није прост број.
Ако су делитељи = 2 Тада
МсгБок број & "је прост број"
Иначе
МсгБок број & "није прост број"
Крај Ако
7. Тестирајте програм.
Резултат за 104729:
