Primzahlen bis zu einer bestimmten Zahl ermitteln Diese Routine zeigt, wie man alle Primzahlen bis zu einer bestimmten Zahl ermitteln kann.
Autor:   Marc Melliger	Bewertung:     [ Jetzt bewerten ]	Views:  23.058
www.mm-webdesign.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 42 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die nachfolgende Funktion ermittelt alle Primzahlen bis zu einer bestimmten Zahl und gibt diese als String-Variable zurück.
Zur Info: Primzahlen sind Zahlen, die nur durch 1 und durch sich selber teilbar sind, z.B. 3,5 oder 7.

' Alle Primzahlen bis BisZahl ermitteln
Private Function GetPrimzahlen(BisZahl As Integer) As String
  Dim keinePrim As Boolean
  Dim m As Integer
  Dim n As Integer
  Dim t As Integer
  Dim Primzahlen As String
 
  ' Herausfiltern der Primzahlen
  ' Alle ungeraden Zahlen durchzählen
  For n = 3 To BisZahl Step 2
    keinePrim = False
    m = n - 1
    ' Testen ob die Zahl einen Teiler hat.
    For t = 3 To m Step 2
      If n Mod t = 0 Then
        ' Zahl hat einen Teiler, also keine Primzahl
        keinePrim = True
        Exit For
      End If
    Next t
    m = n + 1
    If Not keinePrim Then _
      Primzahlen = Primzahlen & " " & n
  Next n
  GetPrimzahlen = Primzahlen
End Function