'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 kopfgesteuerte Schleife
'b) eine fußgesteuerte Schleife
'c) eine Zählschleife

'Beispiel-Ausgabe:
'1: Ungerade Zahl
'2: Gerade Zahl
'3: Ungerade Zahl
'4: Gerade Zahl
'5: Ungerade Zahl

'usw.


Sub main()

Dim i As Integer = 1
Do While i < 101
Console.WriteLine(i)
i += 1
Console.ReadLine()
Loop



Dim result As Boolean

i = CInt(result)
If CBool(CDbl(result) / 2 = 0) Then
Console.WriteLine("gerade")
Else
Console.WriteLine("ungerade")

End If

End Sub
End Module

*Topic verschoben*

'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

Function CheckNumber(Zahl As Integer) As String
If (Zahl Mod 2) = 0 Then
Return "gerade"
Else
Return "ungerade"
End If
End Function
End Module