Sehr geehrte Damen und Herren!
Ich habe ein großes Problem, an dem ich jetzt seit Stunden arbeite, aber beim besten Willen nicht weiter komme - liegt vielleicht auch daran, dass ich Anfänger bin, das Ganze aber irgendwie schaffen muss, um dieses Schuljahr positiv abzuschließen.
Ich muss folgenden Programmcode, eine For…Next Schleife, in eine Do…Loop Schleife umwandeln. Es ist mir klar, dass das viel verlangt ist. Aber wenn jemand zufälligerweise Zeit und das nötige Wissen hätte, diese Aufgabe zu meistern, wäre ich unglaublich dankbar.
Hier die For…Next Schleife bzw. der Programmcode:
Sub Main()
Const UntereGrenze As Integer = 3
Const ObereGrenze As Integer = 20
Dim SchleifenVariable As Integer, Teiler As Integer
Dim KeinePrimzahl As Boolean
For SchleifenVariable = UntereGrenze To ObereGrenze
For Teiler = 2 To ObereGrenze \ 2
If (SchleifenVariable Mod Teiler) = 0 And _
Teiler SchleifenVariable Then
KeinePrimzahl = True
Exit For
End If
Next Teiler
If KeinePrimzahl = False Then
Console.WriteLine(„Die Zahl " & SchleifenVariable & _
" ist eine Primzahl“)
End If
KeinePrimzahl = False
Next SchleifenVariable
Console.ReadLine()
End Sub
Freundliche Grüße