Allpool vaatame programmi Exceli VBA seda tšekid kas number on a algarv või mitte.
Enne alustamist: matemaatikas on algarv arv, millel on täpselt kaks erinevat arvujagajat: 1 ja ise. Väikseimad kakskümmend viis algarvu on: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 ja 97. Näiteks 8 -l on jagajad 1, 2, 4 ja 8 ning see ei ole algarv.
Olukord:
1. Esiteks deklareerime kolm muutujat. Ühe täisarvulise muutuja nimetame jagajateks, ühe pika muutuja numbriks ja ühe pika muutuja i. Kasutame siin pikki muutujaid, kuna pikkade muutujate võimsus on suurem kui täisarvulistel muutujatel.
Hämardajad nagu täisarv, number nii pikk, i kui pikk
2. Initsialiseerime kaks muutujat. Initsialiseerime muutujate jagajad väärtusega 0. Kasutajalt numbri saamiseks kasutame funktsiooni InputBox.
jagajad = 0
number = sisendkast ("Sisestage number")
Pärast seda, kui kasutaja on numbri sisestanud, tahame kontrollida, kas see number on algarv või mitte. Pidage meeles, et algarvul on täpselt kaks erinevat arvujagajat: 1 ja ise.
3. Alustame For For Next tsüklit.
Sest i = 1 Arvule
4. Nüüd tuleb programmi kõige olulisem osa. Arvu jagajate arvu arvutamiseks kasutame operaatorit Mod. Operaator Mod annab ülejäänud jaotuse. Näiteks 7 mod 2 = 1, sest 7 jagatuna 2 -ga võrdub 3 -ga, mille jääk on 1. Ainult siis, kui 'number mod i' = 0, i on arvu jagaja. Sel juhul tahame muutujate jagajaid suurendada 1 võrra. Allpool olev makro teeb ära.
Kui arv Mod i = 0 Siis
jagajad = jagajad + 1
Lõpp Kui
Excel VBA kontrollib seda i = 1, i = 2, i = 3, i = 4, kuni i = arv. Pange tähele, et i = 1 ja i = arv on alati arvu jagajad. Ainult siis, kui need arvud on ainsad arvu jagajad, on number algarv.
5. Ärge unustage silmust sulgeda.
Edasi i
6. Kui jagajad on võrdsed 2 -ga, kuvame sõnumikasti, milles öeldakse, et sisestatud number on algarv. Kui jagajate arv on suurem kui 2, kuvame sõnumikasti, milles öeldakse, et sisestatud number ei ole algarv.
Kui jagajad = 2 Siis
MsgBoxi number & on algarv
Muidu
MsgBoxi number "ei ole algarv"
Lõpp Kui
7. Testige programmi.
Tulemus 104729:
