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:
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.
Blāvu dalītāji kā vesels skaitlis, skaitlis tik garš, i tik garš
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")
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.
Attiecībā uz i = 1 Uz numuru
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.
Ja skaitlis Mod i = 0 Tad
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.
Tālāk i
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.
Ja dalītāji = 2 Tad
MsgBox numurs & "ir galvenais skaitlis"
Citādi
MsgBox numurs & "nav primārais skaitlis"
Beigas Ja
7. Pārbaudiet programmu.
Rezultāts vaicājumam 104729:
