Im Folgenden sehen wir uns ein Programm in an Excel VBA das Schecks ob eine Zahl a ist Primzahl oder nicht.
Bevor Sie beginnen: In der Mathematik ist eine Primzahl eine Zahl, die genau zwei verschiedene Zahlenteiler hat: 1 und sich selbst. Die kleinsten fünfundzwanzig Primzahlen sind: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73 , 79, 83, 89 und 97. Zum Beispiel hat 8 1, 2, 4 und 8 als Teiler und ist keine Primzahl.
Lage:
1. Zuerst deklarieren wir drei Variablen. Eine Integer-Variable nennen wir Divisoren, eine Long-Variable nennen wir Zahl und eine Long-Variable nennen wir i. Wir verwenden hier Long-Variablen, da Long-Variablen eine größere Kapazität haben als Integer-Variablen.
Dim-Teiler As Integer, number As Long, i As Long
2. Wir initialisieren zwei Variablen. Wir initialisieren die variablen Teiler mit dem Wert 0. Wir verwenden die InputBox-Funktion, um eine Zahl vom Benutzer zu erhalten.
Teiler = 0
Zahl = InputBox("Geben Sie eine Zahl ein")
Nachdem der Benutzer eine Zahl eingegeben hat, wollen wir prüfen, ob diese Zahl eine Primzahl ist oder nicht. Denken Sie daran, dass eine Primzahl genau zwei verschiedene Zahlenteiler hat: 1 und sich selbst.
3. Wir starten eine For Next-Schleife.
Für i = 1 zu Zahl
4. Jetzt kommt der wichtigste Teil des Programms. Um die Anzahl der Teiler einer Zahl zu berechnen, verwenden wir den Mod-Operator. Der Mod-Operator gibt den Rest einer Division an. Zum Beispiel 7 mod 2 = 1, weil 7 dividiert durch 2 gleich 3 mit Rest 1 ist. Nur wenn 'Zahl mod i' = 0 ist, ist i ein Teiler von Zahl. In diesem Fall möchten wir die variablen Teiler um 1 erhöhen. Das Makro unten macht den Trick.
Wenn Zahl Mod i = 0 Dann
Teiler = Teiler + 1
Ende Wenn
Excel VBA überprüft dies für i = 1, i = 2, i = 3, i = 4 bis i = Zahl. Beachten Sie, dass i = 1 und i = Zahl immer Teiler der Zahl sind. Nur wenn diese Zahlen die einzigen Teiler der Zahl sind, ist die Zahl eine Primzahl.
5. Vergessen Sie nicht, die Schleife zu schließen.
Als nächstes
6. Wenn Teiler gleich 2 ist, zeigen wir eine Nachrichtenbox an, die besagt, dass die eingegebene Zahl eine Primzahl ist. Wenn die Anzahl der Teiler größer als 2 ist, zeigen wir eine Meldungsbox an, die besagt, dass die eingegebene Zahl keine Primzahl ist.
Wenn Teiler = 2 Dann
MsgBox-Nummer & " ist eine Primzahl"
Anders
MsgBox-Nummer & " ist keine Primzahl"
Ende Wenn
7. Testen Sie das Programm.
Ergebnis für 104729:
