Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

Option Explicit
 
' API-Deklarationen für die Zeitmessung
Private Declare Function QueryPerformanceCounter Lib "kernel32" ( _
  ByRef lpPerformanceCount As Currency) As Long
 
Private Declare Function QueryPerformanceFrequency Lib "kernel32" ( _
  ByRef lpFrequency As Currency) As Long
 
' API-Deklarationen für den horizontalen Scrollbalken in der ListBox
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
Private Const LB_SETHORIZONTALEXTENT = &H194
Private mcurFrequency

Private Sub Form_Load()
  ' Ermitteln der Frequenz
  QueryPerformanceFrequency mcurFrequency
 
  ' Primzahlen bis ... ermitteln
  txtBis.Text = "1000"
 
  lblProzent.Caption = "0,0%"
  lblDauer.Caption = ""
  lblAnzahl.Caption = ""
End Sub

' Primzahlen ermitteln
Private Sub cmdStart_Click()
  Dim lngBis As Long
  Dim I As Long, lngPrimzahl As Long
  Dim ablnSieb() As Boolean
  Dim lngZähler As Long
  Dim lngDifferenz As Long
  Dim curStart As Currency, curEnd As Currency
  Dim curTime As Currency
  Dim strPrimzahlenAusgabe As String
  Dim myForm As Form
  Dim ScrollWidth As Long
  Dim j As Integer
 
  ' Starten der Zeitmessung
  QueryPerformanceCounter curStart
 
  lstAusgabe.Clear
  ' Durch lstAusgabe.Visible = False wird die
  ' Programmausführung beschleunigt
  lstAusgabe.Visible = False
  lngBis = CLng(txtBis.Text)
 
  ' lngDifferenz dient zur Berechnung des prozentualen Anteils
  lngDifferenz = lngBis
 
  ' Nach der Re-Dimensionierung haben alle Elemente
  ' den Wert 0 = False
  ReDim ablnSieb(1 To lngBis)
 
  ' Die geradzahligen Elemente werden auf True gesetzt
  For I = 4 To lngBis Step 2
    ablnSieb(I) = True
  Next I
  ' Die "1" ist keine Primzahl
  ablnSieb(1) = True
 
  lngPrimzahl = 3
  Do Until (lngPrimzahl * lngPrimzahl) > lngBis
    If ablnSieb(lngPrimzahl) = False Then
      For I = (lngPrimzahl * lngPrimzahl) To _
        lngBis Step (lngPrimzahl + lngPrimzahl)
        ablnSieb(I) = True
      Next I
    End If
    lngPrimzahl = lngPrimzahl + 2
  Loop
 
  ' Die Ausgabe als String beschleunigt das Programm.
  ' Die "2" ist die kleiste Primzahl
  strPrimzahlenAusgabe = "2  "
  lngZähler = 1
  For I = 3 To lngBis Step 2
    If ablnSieb(I) = False Then
      ' 100 Primzahlen werden als ein String zusammen-
      ' gefasst, damit mehr Zahlen in der ListBox
      ' dargestellt werden können
      If lngZähler Mod 101 = 0 Then
        lstAusgabe.AddItem strPrimzahlenAusgabe
        ' damit ein neuer String ausgegeben werden kann:
        strPrimzahlenAusgabe = "  "
      Else
        strPrimzahlenAusgabe = strPrimzahlenAusgabe & CStr(I) & "  "
      End If
      lngZähler = lngZähler + 1
    End If
  Next I
 
  If Len(strPrimzahlenAusgabe) > 0 Then
    lstAusgabe.AddItem strPrimzahlenAusgabe
  End If
 
  ' Damit das Ergebnis betrachtet werden kann
  lstAusgabe.Visible = True
  lblProzent.Caption = Quote(lngZähler, lngDifferenz)
 
  ' Stoppen der Zeitmessung
  QueryPerformanceCounter curEnd
 
  ' Auswertung
  If mcurFrequency = 0 Then
    curTime = 0
  Else
    curTime = (curEnd - curStart) / mcurFrequency
  End If
 
  ' Die Ausgabe kann direkt mit der Currency-
  ' Dezimalstelle, in Sekunden erfolgen
  lblDauer.Caption = CStr(curTime) & " Sekunden"
  lblAnzahl.Caption = Format(CStr(lngZähler), "#,##0")
 
  ' Schriftart der ListBox verwenden
  Set myForm = Me
  With myForm
    Set .Font = lstAusgabe.Font
 
    ' Längsten Eintrag suchen
    ScrollWidth = 0
    For j = lstAusgabe.ListCount - 1 To lstAusgabe.ListCount - 2 Step -1
      If .TextWidth(lstAusgabe.List(j)) > ScrollWidth Then _
        ScrollWidth = .TextWidth(lstAusgabe.List(j))
    Next j
  End With
  Set myForm = Nothing
 
  ' Setzen des ScrollBereichs
  Call SendMessage(lstAusgabe.hwnd, LB_SETHORIZONTALEXTENT, _
    Int(ScrollWidth / Screen.TwipsPerPixelX) + 15, 0&)
End Sub

' Hilfsfunktion zum Ermitteln des Prozentsatzes
Private Function Quote(ByVal lngZahlen As Long, _
  ByVal lngMenge As Long) As String
 
  Dim dblProzent As Double
 
  dblProzent = lngZahlen / lngMenge
  Quote = Format(dblProzent, "0.000%")
End Function

Starten Sie das Projekt und geben die obere Wertegrenze in die TextBox ein. Klicken Sie dann auf den Start-Button, um die Primzahlen zu ermitteln.