300 Piemēri

Galvenais skaitļu pārbaudītājs

Prime Number Checker

Zemāk mēs apskatīsim programmu Excel VBA ka čekus vai skaitlis ir a pirmskaitlis vai nē.



Pirms sākat: matemātikā pirmskaitlis ir skaitlis, kuram ir tieši divi atšķirīgi skaitļu dalītāji: 1 un pats. Mazākie divdesmit pieci pirmskaitļi ir: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 un 97. Piemēram, 8 ir 1, 2, 4 un 8 dalītāji, un tas nav pirmskaitlis.

Situācija:





kā es kvadrātu ciparu Excel

Galvenais skaitļu pārbaudītājs programmā Excel VBA

1. Pirmkārt, mēs deklarējam trīs mainīgos. Vienu veselu skaitļu mainīgo mēs saucam par dalītājiem, vienu garu mainīgo mēs saucam uz numuru un vienu garu mainīgo mēs saucam par i. Mēs šeit izmantojam garos mainīgos, jo gariem mainīgajiem ir lielāka ietilpība nekā veseliem skaitļiem.



Navdalītāji Vesels skaitlis, numurs Ilgi, i Ilgi

2. Mēs inicializējam divus mainīgos. Mēs inicializējam mainīgo dalītājus ar vērtību 0. Mēs izmantojam funkciju InputBox, lai no lietotāja iegūtu skaitli.

dalītāji = 0
numurs = InputBox ('Ievadiet numuru')

Ievadiet numuru

Pēc tam, kad lietotājs ir ievadījis numuru, mēs vēlamies pārbaudīt, vai šis skaitlis ir pirmskaitlis. Atcerieties, ka pirmskaitlim ir tieši divi atšķirīgi skaitļu dalītāji: 1 un pats.

3. Mēs sākam For For Next cilpu.

kā iegūt e Excel
Priekši = 1Uznumurs

4. Tagad nāk vissvarīgākā programmas daļa. Lai aprēķinātu skaitļa dalītāju skaitu, mēs izmantojam operatoru Mod. Operators Mod dod atlikušo daļu. Piemēram, 7 mod 2 = 1, jo 7 dalīts ar 2 ir vienāds ar 3 ar atlikumu 1. Tikai tad, ja 'skaitlis mod i' = 0, i ir skaitļa dalītājs. Šajā gadījumā mēs vēlamies palielināt mainīgo dalītājus par 1. Tālāk norādītais makro palīdz.

JanumursPreti = 0Tad
dalītāji = dalītāji + 1
Beigas Ja

Excel VBA pārbauda, ​​vai i = 1, i = 2, i = 3, i = 4, līdz i = skaitlis. Ņemiet vērā, ka i = 1 un i = skaitlis vienmēr ir skaitļa dalītāji. Tikai tad, ja šie skaitļi ir vienīgie skaitļa dalītāji, skaitlis ir pirmskaitlis.

5. Neaizmirstiet slēgt cilpu.

Nākamaisi

6. Ja dalītāji ir vienādi ar 2, mēs parādām ziņu lodziņu, kurā teikts, ka ievadītais skaitlis ir pirmskaitlis. Ja dalītāju skaits ir lielāks par 2, mēs parādām ziņojuma lodziņu, kurā teikts, ka ievadītais skaitlis nav pirmskaitlis.

Jadalītāji = 2Tad
MsgBox numurs & 'ir galvenais skaitlis'
Citādi
MsgBox numurs & 'nav galvenais skaitlis'
Beigas Ja

7. Pārbaudiet programmu.

Rezultāts vaicājumam 104729:

Galvenā skaitļa pārbaudītāja rezultāts

6/9 Pabeigts! Uzziniet vairāk par apgalvojumiem>
Doties uz nākamo nodaļu: Cilpa



^