/ / Приме Нумбер Цхецкер у Екцел ВБА

Приме Нумбер Цхецкер у Екцелу ВБА

У наставку ћемо погледати програм Екцел ВБА то чекови да ли је број а прост број или не.

Пре него што почнеш: у математици, главни број је број који има тачно два различита броја раздвајача: 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. Прво, објављујемо три варијабле. Оне интегер променљиву коју зовемо дивизори, једна дуга варијабла коју зовемо број и једна дуга варијабла коју зовемо и. Овде користимо Лонг променљиве, јер Лонг променљиве имају већи капацитет него интегер променљиве.

Dim divisors As Integer, number As Long, i As Long

2. Иницијализирамо две варијабле. Иницијализирамо променљиве делове са вредностом 0. Користимо функцију ИнпутБок да бисте добили број од корисника.

divisors = 0
number = InputBox("Enter a number")

Унесите број

Након што корисник унесе број, желимо провјерити да ли је овај број велики број или не. Запамтите, главни број има тачно два различита броја раздјелника: 1 и сам.

3. Покрећемо петље за следећу наредбу.

For i = 1 To number

4. Сада је најважнији део програма. Да би израчунали број делитеља броја, користимо Мод оператер. Оператор мода даје остатак дивизије. Дакле, 7 мод 2 би дала 1. 7 је подијељен са 2 (3 пута) како би се добио остатак од 1. Само ако је "број мод и" једнак 0, и је делитељ броја. У овом случају желимо да увећамо варијабле делилице за 1. Макро испод показује трик.

If number Mod i = 0 Then
    divisors = divisors + 1
End If

Екцел ВБА проверава ово за и = 1, и = 2, и = 3, и= 4 док и = број. Имајте на уму да су и = 1 и и = број увек дељивачи броја. Само ако су ови бројеви једини делиоци броја, број је велики број.

5. Не заборавите да затворите петљу.

Next i

6. Ако су раздјелници једнаки 2, приказујемо поруку са поруком да је унесени број прости број. Ако је број дељивача већи од 2, приказујемо поруку за поруке која каже да унесени број није основни број.

If divisors = 2 Then
    MsgBox number & " is a prime number"
Else
    MsgBox number & " is not a prime number"
End If

7. Тестирајте програм.

Ресулт фор 104729:

Резултат броја читаоца

Такође прочитајте: