9 lines
158 B
Text
9 lines
158 B
Text
|
Public Sub LoopsWhile()
|
||
|
|
Dim value As Integer
|
||
|
|
value = 1024
|
||
|
|
Do While value > 0
|
||
|
|
Debug.Print value
|
||
|
|
value = value / 2
|
||
|
|
Loop
|
||
|
|
End Sub
|