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

Dim x = 1024
Do
    Console.WriteLine(x)
    x = x \ 2
Loop While x > 0