RosettaCodeData/Task/Loops-Do-while/Visual-Basic-.NET/loops-do-while.vb
2023-07-01 13:44:08 -04:00

5 lines
72 B
VB.net

Dim i = 0
Do
i += 1
Console.WriteLine(i)
Loop Until i Mod 6 = 0