100 doors

[stapper]

http://rosettacode.org/wiki/100_doors#



Uses "Console"

Dim doors(100) As Long
Dim i,j As Long
Array Assign doors(-1) = FALSE

For i = 1 To 100
For j = i To 100 Step i
doors(j) = Not(doors(j))
Next
Next

For i = 1 To 100
If doors(i)= -1 Then
PrintL "door " & i & " = open"
End If
Next

PrintL "Press a key to end program"

'---Wait for a key press
WaitKey