Loops/While: Difference between revisions
→{{header|VBA}}
Line 2,358:
] while</lang>
=={{header|VBA}}==
<lang VB>Public Sub LoopsWhile()
Dim value As Integer
value = 1024
Do While value > 0
Debug.Print value
value = value / 2
Loop
End Sub</lang>
=={{header|Vedit macro language}}==
<lang vedit>#1 = 1024
| |||