Primzahlen ermitteln VB-Version:  VB5, VB6
	Views:  9.795

Obwohl zu diesem Thema bereits Tipps in unserer Tipps & Tricks-Eckeexistieren, wird diese Frage in regelmäßigen Abständen immer wieder gestellt. Vor kurzem hat Dietmar G. Bayer hierzu einen Code ins Forum gepostet, der mirgut gefallen hat, zumal man hier an Hand einer Textbox die Zahl vorgeben kann, aus der die Primzahlen ermittelt werden sollen.

Fügen Sie in ein neues Projekt eine TextBox, eine ListBox und einenCommandButton ein. Dann noch folgenden Code:

Sub ListPrime(ObereGrenze As Long)
  Dim I As Long
  Dim J As Long
 
  List1.Clear
  ReDim Zahlen(ObereGrenze) As Boolean
 
  For I = 2 To ObereGrenze
    If Not Zahlen(I) Then
      For J = (I * 2) To ObereGrenze Step I
        Zahlen(J) = True
      Next
    End If
  Next
  For I = 1 To ObereGrenze
    If Zahlen(I) = False Then
      List1.AddItem I
    End If
  Next
End Sub
 
Private Sub Command1_Click()
  ListPrime (Text1.Text)
End Sub

Einfach mal ausprobieren.