[bobkelso88]

Sub Main()
Do
Clear()
Dim z, n, s As Integer
Write("Bitte geben sie eine Zahl ein: ")
z = ReadLine()

For n = 1 To z
WriteLine(n)
Next

ReadKey()
Loop
End Sub



weiter weiss ich nicht