RosettaCodeData/Task/Loops-Downward-for/Microsoft-Small-Basic/loops-downward-for.basic

4 lines
57 B
Plaintext

For i = 10 To 0 Step -1
TextWindow.WriteLine(i)
EndFor