Mai jos vom analiza un program în Excel VBA acea verificări dacă un număr este un număr prim sau nu.
Înainte de a începe: în matematică, un număr prim este un număr care are exact doi divizori de numere distincte: 1 și el însuși. Cele mai mici douăzeci și cinci de numere prime sunt: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 și 97. De exemplu, 8 are 1, 2, 4 și 8 ca divizori și nu este un număr prim.
Situatie:
1. În primul rând, declarăm trei variabile. O variabila Intreg numim divizori, o variabila Long numim numar si o variabila Long numim i. Aici folosim variabile Long deoarece variabilele Long au o capacitate mai mare decât variabilele Întreg.
Divizori dim ca întreg, număr cât mai lung, i cât mai lung
2. Inițializăm două variabile. Inițializăm divizorii variabilei cu valoarea 0. Folosim funcția InputBox pentru a obține un număr de la utilizator.
divizori = 0
number = InputBox („Introduceți un număr”)
După ce utilizatorul a introdus un număr, dorim să verificăm dacă acest număr este sau nu un număr prim. Amintiți-vă, un număr prim are exact doi divizori de numere distincte: 1 și el însuși.
3. Începem o buclă For Next.
Pentru i = 1 La număr
4. Acum vine cea mai importantă parte a programului. Pentru a calcula numărul divizorilor unui număr, folosim operatorul Mod. Operatorul Mod oferă restul unei diviziuni. De exemplu, 7 mod 2 = 1 deoarece 7 împărțit la 2 este egal cu 3 cu restul de 1. Numai dacă „număr mod i” = 0, i este divizor al numărului. În acest caz, dorim să incrementăm divizorii variabilei cu 1. Macro-ul de mai jos face truc.
Dacă numărul Mod i = 0 Atunci
divizori = divizori + 1
End If
Excel VBA verifică acest lucru pentru i = 1, i = 2, i = 3, i = 4 până când i = număr. Rețineți că i = 1 și i = număr sunt întotdeauna divizori ai numărului. Numai dacă aceste numere sunt singurii divizori ai numărului, numărul este un număr prim.
5. Nu uitați să închideți bucla.
Apoi eu
6. Dacă divizorii sunt egali cu 2, afișăm o casetă msg care spune că numărul introdus este un număr prim. Dacă numărul divizorilor este mai mare de 2, afișăm o casetă de mesaj care spune că numărul introdus nu este un număr prim.
Dacă divizorii = 2 Atunci
Numărul MsgBox & "este un număr prim"
Altfel
Numărul MsgBox & "nu este un număr prim"
End If
7. Testați programul.
Rezultat pentru 104729:
