有一个报数游戏，n个人排成一圈，游戏开始时规定个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

实现上述功能的VB代码如下，但加框处有错，请改正。

Private Sub Command1_Click()

    Dim n As Integer，m As Integer

    Dim a(1 To 50)As Integer

    n= Val(Text1. Text)

    m= Val(Text2. Text)

    For i= 1 To n

       

    Next i

    s=0；j=0

    Do While s <n

        t=0

        Do While t <m

                    

            t=t+ a(j)

        Loop

        a(j)=0

        s=s+1

        List1. Additem"第"+Str(s)+"次："+Str(j)

    Loop

End sub