弱弱的问约瑟夫环是什么个原理 怎么写代码呀

让一个数组处理成 一个圆圈。然后 遇指定的数字调出来。
最后余下一个数字。

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer, m As Integer, n As Integer, j As Integer, k As Integer, c As Integer, x As Integer
n = InputBox("请输入参加队列人数")
m = InputBox("请输入起始密码")
x = InputBox("密码的上限为:")
ReDim a(1 To n) As Integer, b(1 To n) As Integer
For i = 1 To n
a(i) = 1
b(i) = Int((x) * Rnd) + 1 '产生每个人的随机密码
Next
While c < n
For j = 1 To n
k = k + a(j) '计数
If k = m And a(j) <> 0 Then
k = 0 '下一个人从1开始报数
a(j) = 0 '出列
Print "出列人的编号为" & j; "，该人的密码为" & b(j)
m = b(j)
c = c + 1 '累计出列的人数
End If
Next
Wend
End Sub