VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Folgendes Code-Fragment präsentiere ich gerne nach der Mittagspause als Denksportaufgabe:
Was berechnet dieses Programm?

Sub Pfui()
For x = 2 To 999
a = True
For s = 2 To x - 1
If x Mod s = 0 Then
a = False
Exit For
End If
Next s
If a Then MsgBox x
Next x
End Sub

Nachdem niemand auf die Lösung gekommen ist, präsentiere ich das nun folgende Programm und wiederhole die Frage:
Was berechnet dieses Programm?

Sub Hui()
  Dim Kandidat As Long
  Dim Teiler As Long
  Dim IstPrim As Boolean
  
  For Kandidat = 2 To 999
    IstPrim = True
    For Teiler = 2 To Kandidat - 1
      If Kandidat Mod Teiler = 0 Then
        IstPrim = False
        Exit For
      End If
    Next Teiler
    If IstPrim Then MsgBox Kandidat
  Next Kandidat
End Sub

Jetzt sollte die Lösung schnell gefunden sein: Die beiden (semantisch äquivalenten) Programme bestimmen jeweils alle Primzahlen von 2 bis 999!

Anschließend kann man sehr gut über Sinn und Nutzen der strukturierten Programmierung im Allgemeinen und über das Code-Einrücken und Variablen-Benennen im Besonderen diskutieren...