ReDim a(1 To m) As Integer For i = 1 To m a(i) = i Next i i = 1
count = 0 leave = 0
Do While leave < m count = 1
Do While count <= n Do Until a(i) > 0 i = i + 1
If i > m Then i = i Mod m End If Loop
Debug.Print count; a(i) If count = n Then Debug.Print a(i) a(i) = 0 End If
count = count + 1 i = i + 1
If i > m Then i = i Mod m End If Loop
leave = leave + 1 Loop End Sub