Loops/While: Difference between revisions
Content added Content deleted
Line 2,358: | Line 2,358: | ||
] while</lang> |
] 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}}== |
=={{header|Vedit macro language}}== |
||
<lang vedit>#1 = 1024 |
<lang vedit>#1 = 1024 |