有N个人围成一个圈，从1到k报数，报到k的人出列，剩下的同学继续围成一个圈，由出列位置的下一个同学再从1开始报数，输出出列的顺序，则①②划下线处填空选项为(    )

Private Sub Command1 Click)

    Const n=9 '总人数

    Dim b(1 Ton) As Integer

    Dim k As Integer， i As Integer， p As Integer， cnt As Integer， pre． p As Integer

    k =Val(Text1． Text)

    For i= 1 Ton

        b(i)=iModn+1

    Next i

    p = n：i = 0：cnt=0

    Do While i<n

        pre_p = p

        p=  ①   

    cnt=cnt+1

    If cnt=k Then

       List1. AddItem Str(p)

       b(pre_p)   ②    

       cnt=0

       i= i+1

    End If

  Loop

End Sub

A、①b(p)   ②b(p)

B、①p mod n+1   ②b(p+1)

C、①b(p)   ②b(p+1)

D、①(p-2+n) mod n    ②b(p)