Spodaj si bomo ogledali program v Excel VBA to preverjanja ali je število a praštevilo ali ne.
Preden začnete: v matematiki je prvo število število, ki ima natanko dva ločena števca: 1 in samo sebe. Najmanjša petindvajset praštevil so: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 in 97. 8 ima na primer 1, 2, 4 in 8 kot delitelje in ni praštevilo.
Situacija:
1. Najprej razglasimo tri spremenljivke. Ena celoštevilska spremenljivka, ki jo imenujemo delitelji, ena dolga spremenljivka, ki jo imenujemo številka, in ena dolga spremenljivka, ki jo imenujemo i. Tukaj uporabljamo dolge spremenljivke, ker imajo dolge spremenljivke večjo kapaciteto kot spremenljivke Integer.
Zatemnilni delitelji kot celo število, število As Long, i As Long
2. Inicializiramo dve spremenljivki. Inicializiramo spremenljivke delitelje z vrednostjo 0. S funkcijo InputBox dobimo številko od uporabnika.
delitelji = 0
number = InputBox ("Vnesite številko")
Ko uporabnik vnese številko, želimo preveriti, ali je ta številka praštevilo ali ne. Ne pozabite, da ima prosto število natančno dva ločena števca: 1 in sebe.
3. Zaženemo zanko For Next.
Za i = 1 Za število
4. Zdaj prihaja najpomembnejši del programa. Za izračun števila deliteljev števila uporabimo operater Mod. Operator Mod poda preostanek delitve. Na primer, 7 mod 2 = 1, ker je 7, deljeno z 2, enako 3 s preostankom 1. Samo če je 'število mod i' = 0, je i delilec števila. V tem primeru želimo spremenljivke povečati za 1. Spodnji makro zmore.
Če je število Mod i = 0, potem
delitelji = delitelji + 1
Konec Če
Excel VBA to preveri za i = 1, i = 2, i = 3, i = 4, dokler i = število. Upoštevajte, da sta i = 1 in i = število vedno delitelja števila. Samo če so te številke edini delitelji števila, je število prvo število.
5. Ne pozabite zapreti zanke.
Naprej i
6. Če so delitelji enaki 2, prikažemo sporočilo, ki pravi, da je vneseno število prosto število. Če je število deliteljev večje od 2, prikažemo sporočilo, ki pravi, da vneseno število ni praštevilo.
Če so delitelji = 2, potem
MsgBox številka & "je osnovno število"
Sicer pa
MsgBox številka & "ni praštevilo"
Konec Če
7. Preizkusite program.
Rezultat za 104729:
