【加試題】有一個(gè)報(bào)數(shù)游戲，n個(gè)人排成一圈，游戲開始時(shí)規(guī)定一個(gè)報(bào)數(shù)號(hào)m,然后從其中一個(gè)人開始按順時(shí)針報(bào)數(shù)1，2，3…n,當(dāng)某人報(bào)到的數(shù)為m的倍數(shù)時(shí)，即被淘汰，其他人繼續(xù)游戲，直到最后．現(xiàn)用VB設(shè)計(jì)了一個(gè)程序，程序界面如下圖所示．在文本框Text1中輸入?yún)⒓佑螒虻娜藬?shù)n,在文本框Text2中輸入報(bào)數(shù)號(hào)m,單擊“報(bào)數(shù)”按鈕，即在列表框List1中顯示每次被淘汰的人的順序號(hào)．

實(shí)現(xiàn)上述功能的VB代碼如下，但加框處有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click（　?。?br />Dim n As Integer,m As Integer
Dim a（1To 50）As Integer
n=Val（Text1．Text）
m=Val（Text2．Text）
For i=1To n

'（1）
Next i
s=0：j=0
Do While s＜n
t=0
Do While t＜m

'（2）
t=t+a（j）
Loop
a（j）=0
s=s+1
List1．AddItem“第“+Str（s）+“次：“+Str（j）
Loop
End Sub.