Az alábbiakban megnézzük a programot Excel VBA hogy csekkeket hogy egy szám a prímszám vagy nem.
Mielőtt elkezdené: a matematikában a prímszám olyan szám, amelynek pontosan két különböző számosztója van: 1 és maga. A legkisebb huszonöt prímszám: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 89., 83., 89. és 97. Például a 8 osztója 1, 2, 4 és 8, és nem prímszám.
Helyzet:
1. Először három változót deklarálunk. Egy egész változót osztóknak, egy hosszú változót számnak és egy hosszú változót i -nek hívunk. Azért használunk hosszú változókat, mert a hosszú változók nagyobb kapacitással rendelkeznek, mint az egész változók.
Halvány osztók mint egész, szám: Hosszú, és olyan hosszú
2. Két változót inicializálunk. A változó osztókat 0 értékkel inicializáljuk. Az InputBox függvény segítségével számot kapunk a felhasználótól.
osztók = 0
szám = InputBox ("Adjon meg egy számot")
Miután a felhasználó beírt egy számot, szeretnénk ellenőrizni, hogy ez a szám prímszám -e vagy sem. Ne feledje, hogy a prímszámnak pontosan két számosztója van: 1 és önmagának.
3. Elindítjuk a For Next ciklusát.
I = 1 számhoz
4. Most jön a program legfontosabb része. Egy szám osztóinak számításához a Mod operátort használjuk. A Mod operátor megadja az osztás fennmaradó részét. Például, 7 mod 2 = 1, mert 7 osztva 2 -vel egyenlő 3 -mal, maradék 1 -el. Csak akkor, ha a 'mod mod i' = 0, i a szám osztója. Ebben az esetben a változóosztókat 1 -gyel szeretnénk növelni. Az alábbi makró megteszi a trükköt.
Ha a szám Mod i = 0 Akkor
osztók = osztók + 1
Vége Ha
Az Excel VBA ezt ellenőrzi i = 1, i = 2, i = 3, i = 4 értékig, amíg i = szám. Vegye figyelembe, hogy i = 1 és i = szám mindig a szám osztói. Csak akkor, ha ezek a számok az egyetlen osztói a számnak, a szám prímszám.
5. Ne felejtse el lezárni a hurkot.
Következő i
6. Ha az osztók száma 2, akkor megjelenítünk egy üzenetüzenetet, amely szerint a bevitt szám prímszám. Ha az osztók száma nagyobb, mint 2, akkor megjelenítünk egy üzenetüzenetet, amely szerint a megadott szám nem prímszám.
Ha osztók = 2 Akkor
Az MsgBox szám & "prímszám"
Más
Az MsgBox szám & "nem prímszám"
Vége Ha
7. Tesztelje a programot.
Eredmény a (z) 104729 kifejezésre: