作者jurian0101 (小维)
看板puzzle
标题Re: [问题] 环状与点名
时间Sun Feb 14 15:07:22 2010
新年快乐
Private Sub UserForm_Click()
Dim player(0 To 999) As Boolean
Dim remain As Integer
remain = 1000
Count = 6
num = 0
Do While remain > 1
Do While Count > 0
Do While player(num) = True
num = (num + 1) Mod 1000
Loop
Count = Count - 1
num = (num + 1) Mod 1000
Loop
Do While player(num) = True
num = (num + 1) Mod 1000
Loop
remain = remain - 1
player(num) = True
Count = 6
Txt1.Text = Txt1.Text + Str(num)
num = (num + 1) Mod 1000
Loop
Form1.Caption = Str(num)
End Sub
= = = = = = = = = = = = = = = = = = = = = = = = =
执行结果是 297。 我记得在《具体数学》里面有这个问题的完整讨论。
PS.推文里的约瑟夫请见书
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.164.17.144
1F：推 bmzz:新年快乐～不过我看不太懂这程式...Orz但还是感谢解答 02/14 20:25