VB n个人顺序排号,报数(1\2\3),报到3的出局,问最后留下的是几号?

Dim aaa() As Integer
Private Sub Command1_Click()
x = Val(InputBox("人数", "123"))
ReDim aaa(x)
Do While k < x
bbb = bbb + 1
If bbb = x + 1 Then bbb = 1
If aaa(bbb) <> 1 Then ccc = ccc + 1
If ccc = 3 Then
Print bbb & " ";
If k Mod 20 = 0 Then Print
k = k + 1
ccc = 0
aaa(bbb) = 1
End If
Loop
End Sub

理解能力差 好像没怎么看懂耶 不好回答 你是说 1,2,3 3个号 如果报到3 那么留下 1 和2 ??