RosettaCodeData/Task/Loops-Do-while/Microsoft-Small-Basic/loops-do-while-1.basic

i = 0
' first iteration - before the While
i = i + 1
TextWindow.WriteLine(i)
While Math.Remainder(i, 6) <> 0
  i = i + 1
  TextWindow.WriteLine(i)
EndWhile