Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB4, VB5, VB6 | 09.04.01 |
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: | Views: 22.403 |
www.mm-webdesign.com | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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