出圈游戏(具体效果如演示程序所示) 有 n 个人排成一圈,然后先从第一人开始按顺时针方向依次从 1 报数,报到数 m 的人 就淘汰,下一个再从 1 开始报,报到 m 就被淘汰,一直到剩下最后一人即为胜利者。 完成下 列代码: Private Sub Command1_Click() Dim a(1000) As Integer n = Val(Text1.Text) m = Val(Text2.Text) check = n k = 1 List1.Clear For i = 1 To n a(i) = 1 Next i i = 0 Do i = '- 1 - If a(i) <> 0 Then a(i)= '-2 - If a(i) = m Then a(i) = 0 List1.AddItem i & " 号出圈 " check = check 1 '- 3 - k = 0 End If k = k + 1 End If '- 4 - i = 0 End If 'Loop Until ' - 5 - For i = 1 To n '- 6 - List1.AddItem " 获胜者是 " & i & " 号 " Exit For End If Next i End Sub