300 Esimerkkejä

Prime Number Checker

Prime Number Checker

Alla tarkastelemme ohjelmaa Excel VBA että tarkastuksia onko numero a alkuluku tai ei.

Ennen kuin aloitat: matematiikassa alkuluku on luku, jolla on täsmälleen kaksi erillistä lukujakajaa: 1 ja itse. Pienimmät kaksikymmentäviisi alkulukua ovat: 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. Esimerkiksi 8: n jakajina on 1, 2, 4 ja 8 eikä se ole alkuluku.



Tilanne:



pmt-toiminnon käyttäminen Excel 2013: ssa

Prime Number Checker Excel VBA: ssa

1. Ilmoitamme ensin kolme muuttujaa. Yksi kokonaislukumuuttuja, jota kutsumme jakajiksi, yksi pitkä muuttuja, jota kutsumme numeroksi, ja yksi pitkä muuttuja, jota kutsumme i. Käytämme tässä pitkämuuttujia, koska pitkillä muuttujilla on suurempi kapasiteetti kuin kokonaislukumuuttujilla.



Ei mitäänjakajatKuten Kokonaisluku, numeroKuten Pitkä, iKuten Pitkä

2. Alustamme kaksi muuttujaa. Alustamme muuttujajakajat arvolla 0. Käytämme InputBox -funktiota saadaksemme numeron käyttäjältä.

jakajat = 0
number = InputBox ('Anna numero')

Anna numero

Kun käyttäjä on syöttänyt numeron, haluamme tarkistaa, onko tämä numero alkuluku vai ei. Muista, että alkuluvulla on täsmälleen kaksi erillistä lukujakajaa: 1 ja itse.



3. Aloitamme For For Next -silmukan.

miten saada e excel
Varteni = 1Vastaanottajamäärä

4. Nyt tulee ohjelman tärkein osa. Laskemme luvun jakajien määrän käyttämällä Mod -operaattoria. Mod -operaattori antaa jaon loput. Esimerkiksi 7 mod 2 = 1, koska 7 jaettuna 2: lla on 3 ja loppuosa 1. Vain jos 'numero mod i' = 0, i on luvun jakaja. Tässä tapauksessa haluamme lisätä muuttujajakajia yhdellä. Alla oleva makro tekee tempun.

JosmääräVastaani = 0Sitten
jakajat = jakajat + 1
Loppu Jos

Excel VBA tarkistaa tämän i = 1, i = 2, i = 3, i = 4, kunnes i = luku. Huomaa, että i = 1 ja i = luku ovat aina luvun jakajia. Vain jos nämä luvut ovat ainoat luvun jakajat, luku on alkuluku.

5. Älä unohda sulkea silmukkaa.

Seuraavai

6. Jos jakajat ovat 2, näytämme viestiviestin, jossa sanotaan, että syötetty luku on alkuluku. Jos jakajien määrä on suurempi kuin 2, näytetään viestiviesti, jossa sanotaan, että syötetty luku ei ole alkuluku.

Josjakajat = 2Sitten
MsgBox -numero & 'on alkuluku'
Muu
MsgBox -numero & 'ei ole alkuluku'
Loppu Jos

7. Testaa ohjelma.

Tulos haulle 104729:

Alustavanumeron tarkistustulos

6/9 valmis! Lue lisää jos sitten lausunnot>
Siirry seuraavaan lukuun: Silmukka



^