vb版约瑟夫算法.docVIP

vb版约瑟夫算法 题目就是:n个人围成一圈报数,数到m的人出列,下一次从m的下一个人开始报数再到m后出列,直到最后一个人也出列,并且打印出每次出列的人是谁 ben1222...又到处发帖...那我也再帖一次...看看这个算法是否更好 集合版： Private Sub Command1_Click()? ? Dim a As New Collection? ? Dim n As Integer, m As Integer? ? m = Val(Text2.Text)? ? For n = 1 To Val(Text1.Text)? ?? ???a.Add CStr(n)? ? Next? ? n = 0? ? While a.Count 0? ?? ???n = ((m + n - 1) Mod a.Count) + 1? ?? ???Debug.Print a.Item(n)? ?? ???a.Remove n? ?? ???n = n - 1? ? WendEnd Sub 书林跋涉:对象链表版 我记得大学时候用约瑟夫环算法求过全排列今天有空改成vb的了大家帮忙测试一下速度吧：）clsnode.cls 如下 Public Property Let data(ByVal vData As Long) m_Value = vData End Property Public Property Get data() As Long data = m_Value End Property Public Property Let nextnode(ByVal vData As ClsNode) Set node = vData End Property Public Property Get nextnode() As ClsNode Set nextnode = node End Property 主要代码如下：Private ListNode() As ClsNodePrivate Sub Command1_Click()Dim k As Long? ? Dim sT!? ? sT = Timerk = Val(Text1.Text)Call AllRank(k)MsgBox 总用时: Format(Timer - sT, 0.000) sEnd SubPrivate Sub AllRank(ByVal n As Long)Dim i As Long, j As Long, k As Long, l As LongIf n 12 Or n 1 Then MsgBox 太大了: Exit SubReDim ListNode(1 To n) As ClsNodeFor i = 1 To n? ? Set ListNode(i) = New ClsNode? ? ListNode(i).data = iNextl = factorial(n - 1)For i = 1 To n? ? For j = 1 To l? ? Josephus n, i, j? ? NextNextFor i = 1 To n? ? Set ListNode(i) = NothingNextEnd SubPrivate Function factorial(ByVal n As Long) As LongDim sum As Long, i As Longsum = 1For i = 1 To nsum = sum * iNextfactorial = sumEnd FunctionPrivate Sub Josephus(ByVal n As Long, ByVal start As Long, ByVal m As Long)Dim i As Long, Prior As LongDim p As ClsNode, ptr As ClsNodeDim count As Long, t As Long建立循环链表For i = 1 To n - 1? ? ListNode(i).nextnode = ListNode(i + 1)Next? ? ListNode(n).nextnode = ListNode(1)总结点数? ? count = n找开始报数的对应结点? ? Set p = ListNode(start)找当前结点的直接前趋结点If start 1 Then? ? Prior = start - 1Else? ? Prior = nEnd If?