300 Pavyzdžių

Pirminio skaičiaus tikrintuvas

Prime Number Checker

Žemiau apžvelgsime programą Excel VBA kad čekius ar skaičius yra a pirminis skaičius arba ne.





Prieš pradėdami: matematikoje pirminis skaičius yra skaičius, turintis lygiai du skirtingus skaičių daliklius: 1 ir pats. Mažiausi dvidešimt penki pirminiai skaičiai yra: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 ir 97. Pavyzdžiui, 8 dalikliai yra 1, 2, 4 ir 8 ir nėra pirminis skaičius.

Situacija:





jei ir ir veikia „Excel 2010“

Pirminis skaičių tikrintuvas „Excel VBA“

1. Pirmiausia deklaruojame tris kintamuosius. Vieną sveikojo skaičiaus kintamąjį vadiname dalikliais, vieną ilgą kintamąjį - numeriu ir vieną ilgą kintamąjį vadiname i. Čia naudojame ilgus kintamuosius, nes ilgieji kintamieji turi didesnę talpą nei sveikieji kintamieji.



Nė vienasdalikliaiKaip Sveikasis skaičius, skaičiusKaip Ilgas, iKaip Ilgas

2. Inicijuojame du kintamuosius. Mes inicijuojame kintamųjų daliklius, kurių vertė yra 0. Mes naudojame funkciją „InputBox“, kad gautume skaičių iš vartotojo.

dalikliai = 0
number = InputBox ('Įveskite skaičių')

Įveskite skaičių

Vartotojui įvedus skaičių, norime patikrinti, ar šis skaičius yra pirminis skaičius, ar ne. Atminkite, kad pirminis skaičius turi lygiai du skirtingus skaičių daliklius: 1 ir save.

3. Mes pradedame „For Next“ ciklą.

jei ir tada formulė excel
Dėli = 1Įskaičius

4. Dabar ateina svarbiausia programos dalis. Norėdami apskaičiuoti skaičiaus daliklių skaičių, naudojame operatorių „Mod“. „Mod“ operatorius pateikia likusią padalijimo dalį. Pavyzdžiui, 7 mod 2 = 1, nes 7 padalytas iš 2 yra lygus 3, o likusi dalis - 1. Tik jei „skaičius mod i“ = 0, i yra skaičiaus daliklis. Šiuo atveju mes norime padidinti kintamųjų daliklius 1. Žemiau esanti makrokomanda tai daro.

JeiskaičiusPrieši = 0Tada
dalikliai = dalikliai + 1
Galas Jei

„Excel VBA“ tikrina, ar i = 1, i = 2, i = 3, i = 4, kol i = skaičius. Atkreipkite dėmesį, kad i = 1 ir i = skaičius visada yra skaičių dalikliai. Tik jei šie skaičiai yra vieninteliai skaičių dalikliai, skaičius yra pirminis skaičius.

5. Nepamirškite uždaryti kilpos.

Kitasi

6. Jei dalikliai yra lygūs 2, rodome žinutės dėžutę, kurioje sakoma, kad įvestas skaičius yra pirminis skaičius. Jei daliklių skaičius yra didesnis nei 2, rodome žinutės dėžutę, kurioje sakoma, kad įvestas skaičius nėra pirminis skaičius.

Jeidalikliai = 2Tada
„MsgBox“ skaičius ir „yra pirminis skaičius“
Kitas
„MsgBox“ skaičius ir „nėra pirminis skaičius“
Galas Jei

7. Išbandykite programą.

Rezultatas pagal 104729:

Pirminio skaičiaus tikrinimo rezultatas

6/9 baigtas! Sužinokite daugiau apie teiginius>
Eiti į kitą skyrių: Kilpa



^