Ž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 tiksliai 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:
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.
Šviesos dalikliai kaip sveikasis skaičius, skaičius kaip ilgas, ir kaip 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ų“)
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 i = 1 Į skaičių
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.
Jei skaičius Mod i = 0 Tada
dalikliai = dalikliai + 1
Pabaiga 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.
Kitas I.
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.
Jei dalikliai = 2 Tada
„MsgBox“ skaičius ir „yra pirminis skaičius“
Kitas
„MsgBox“ numeris ir „nėra pirminis skaičius“
Pabaiga Jei
7. Išbandykite programą.
Rezultatas pagal 104729:
