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:
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.
Dim -jakajat kokonaislukuna, numero niin pitkä, i kuin 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")
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.
I = 1 numeroon
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 kasvattaa muuttujajakajia yhdellä. Alla oleva makro tekee tempun.
Jos luku Mod i = 0 Silloin
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.
Seuraavaksi minä
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 viestilaatikko, jossa sanotaan, että syötetty luku ei ole alkuluku.
Jos jakajat = 2 Sitten
MsgBox -numero & "on alkuluku"
Muu
MsgBox -numero & "ei ole alkuluku"
Loppu Jos
7. Testaa ohjelma.
Tulos haulle 104729:
