Suchergebnisse

'Ich bin grade dabei die Aufgabe zu lösen, nur leider bin ich eine absolute Anfängerin und komme nicht weiter. 'Den ersten Teil mit der Schleife habe ich schon hinbekommen. 'Danke für eure Hilfe im Vorraus Module Module1 'Durchlaufe die Zahlen von 1 bis 100. 'Wenn eine Zahl durch 2 teilbar ist gib aus: Gerade Zahl 'Wenn eine Zahl nicht durch 2 teilbar ist, dann gib aus: Ungerade Zahl. 'Benutze hierfür bitte die 3 Gruppen von Kontrollstrukturen der strukturierten Programmierung. 'a) eine kopfgest…

'Danke für die Hilfe. 'musste nur kurz debug zu console ändern und dann hat es geklappt.&nbsp;:thumbsup:&nbsp; 'Der Code lautet jetzt: Module Module1 Sub Main() CountIT() Console.ReadKey() End Sub Sub CountIT() Dim I As Integer = 1 Do While I < 101 Console.WriteLine(I.ToString & " - " & CheckNumber(I)) I += 1 Loop I = 1 Do Debug.WriteLine(I.ToString & " - " & CheckNumber(I)) I += 1 Loop Until I = 101 For II As Integer = 1 To 100 Debug.WriteLine(II.ToString & " - " & CheckNumber(II)) Next End Sub…