RosettaCodeData/Task/Loops-Do-while/Visual-Basic-.NET/loops-do-while.vb

6 lines
72 B
VB.net

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