禮品分配問題：某班得到一件精美禮品，由于只有一件禮品，大家決定用下面方法來分配該禮品：n個同學(xué)圍成一圈，按順序從1到n進(jìn)行編號。從第1個人開始報(bào)數(shù)，報(bào)到m的人退出，下一個人繼續(xù)從1開始報(bào)數(shù)，報(bào)到m的人出圈……，如此依次進(jìn)行，直到留下的最后一個人得到該禮品。程序運(yùn)行界面如圖所示，單擊“開始”按鈕，將輸出退出圈子的同學(xué)編號以及最后獲得獎品的編號。
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題。
（1）當(dāng)班級總?cè)藬?shù)n=15，m=5的時候，獲得禮品的同學(xué)編號是

1

1

（填寫數(shù)字）。
（2）在橫線處填入合適的代碼。
Private Sub Command1_Click （　?。?br />Dim i As Integer,n As Integer,m As Integer
Dim num As Integer,t As Integer
Dim a（1 To 100）As Boolean
n=Val（Text1．Text）
m=Val（Text2．Text）
For i=1 To n
a（i）=True
Next i
  ①
Do While t＞1
For i=1 To n
If a（i）=True Then   ②
If num=m Then
  ③
t=t-1
num=0
Text3．Text=Text3．Text+Str（i）
End If
Next i
Loop
For i=1 To n
If a（i）=TrueThen Label2．Caption=“獲得禮品同學(xué)編號：“+Str（i）
Next i
End Sub