7 lines
210 B
Text
7 lines
210 B
Text
'True=Open; False=Closed
|
|
Dim doors(100) As Boolean 'Booleans default to false
|
|
For j As Integer = 1 To 100
|
|
For i As Integer = 1 to 100
|
|
If i Mod j = 0 Then doors(i) = Not doors(i)
|
|
Next
|
|
Next
|