题目

有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) 答案：A

查看本题答案和解析