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

6 lines
72 B
VB.net
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Dim i = 0
Do
i += 1
Console.WriteLine(i)
Loop Until i Mod 6 = 0