关于vb的出圈游戏

Question

Dim 序号() As Integer '总人数不定！
Dim 出圈报数 As Integer, i As IntegerPrivate Sub Command1_Click()
    Dim 姓名 As String
    Dim 人数 As Integer
    
    人数 = Val(Text1)           '总人数
    出圈报数 = Val(Text2)       '假设报的数字为m时出局
    If 人数 * 出圈报数 = 0 Then
        MsgBox "看看你多粗心，是参与人数没有指定，还是出圈间隔没有指定？"
        Exit Sub
    End If
    ReDim 序号(人数)
    For i = 1 To 人数             '初始化数组、输入人名并加入游戏者列表
      序号(i) = i
      姓名 = InputBox("输入第" & i & "个人的大名" & vbCrLf & "然后回车", "请输入游戏者大名", , 5000, 4000)  '& vbCrLf & 表示回车
      List1.AddItem 姓名
    Next i
    Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
    初始化
End SubPrivate Sub ExitFile_Click()
Dim a As Integer
a = MsgBox("确定退出游戏？", 1 + 32, "退出")
If a = 1 Then
End
Else
End If
End SubPrivate Sub Form_Load()
    Timer1.Interval = 500
    初始化
End SubPrivate Sub 初始化()
    Text1.Text = ""
    Text2.Text = ""
    List1.Clear
    List2.Clear
    Timer1.Enabled = False
End SubPrivate Sub NewFile_Click()
    Text1.Text = ""
    Text2.Text = ""
    List1.Clear
    List2.Clear
    Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
    Static 当前位置 As Integer
    If List1.ListCount <= 1 Then
        Timer1.Enabled = False
        Exit Sub
    End If
    For i = 1 To 出圈报数
     当前位置 = 当前位置 + 1
     
   
    If 当前位置 >= List1.ListCount Then 当前位置 = 当前位置 - List1.ListCount
    Next i
    List2.AddItem List1.List(当前位置)
    List1.RemoveItem 当前位置
    
End Sub
 '最后一段代码的算法不正确，谁帮忙改一下？