По -долу ще разгледаме програма в 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. Тук използваме дълги променливи, тъй като дългите имат по -голям капацитет от целочислените.
Делители на затъмняване като цяло число, число 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 = число винаги са делители на число. Само ако тези числа са единствените делители на числото, числото е просто число.
5. Не забравяйте да затворите цикъла.
Следва i
6. Ако делителите са равни на 2, показваме съобщение, което казва, че въведеното число е просто число. Ако броят на делителите е по -голям от 2, показваме съобщение, което казва, че въведеното число не е просто число.
Ако делителите = 2 Тогава
MsgBox номер & "е просто число"
Иначе
MsgBox номер & "не е просто число"
Край Ако
7. Тествайте програмата.
Резултат за 104729:
