有一个报数游戏， 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