小麗在假期看到小朋友們?cè)谕嬉粋€(gè)游戲，8個(gè)小朋友圍成一圈，從某個(gè)小朋友開始報(bào)數(shù)，報(bào)到指定數(shù)時(shí)，該小朋友出圈，接著從出圈的位置開始再接著報(bào)．她希望通過VB程序模擬這個(gè)過程，思路如下：
（1）用一個(gè)一維數(shù)組來(lái)模擬，編號(hào)1～N保存在數(shù)據(jù)a（1）～a（n）中，來(lái)代表N個(gè)小朋友．
（2）K代表報(bào)數(shù)的起始位置，從數(shù)組的a（k）開始遍列，報(bào)到m出圈，將當(dāng)前位置的元素刪除，后面的元素依次往前移位．總數(shù)減1．
（3）當(dāng)報(bào)數(shù)報(bào)到數(shù)組元素的最后一個(gè)時(shí)，返回?cái)?shù)組開頭接著報(bào)數(shù)．
（4）當(dāng)總數(shù)只剩下一個(gè)數(shù)時(shí)，直接輸出．
界面如下：

Private Sub Command1_Click （　?。?br />Dim i As Integer
Dim n As Integer
Dim m As Integer,k As Integer
Dim A（1To 50）As Integer'存放編號(hào)的數(shù)組
n=Val（Text1．Text）'編號(hào)個(gè)數(shù)
k=Val（Text2．Text）'報(bào)數(shù)起始位
m=Val（Text3．Text）'報(bào)到出圈數(shù)
If n＞0And k＞0And m＞0   （1）n＜=50Then
For i=1To n'初始化編號(hào)a（1）=1，a（2）=2，…
A（i）=i
Next i
Label1．Caption=（2）'調(diào)用出圈函數(shù)，得到返回的出圈順序
Else
MsgBox“編號(hào)、起始位、報(bào)到出圈數(shù)都必須大于0！編號(hào)不能超過50！“
End If
End Sub
Private Function chuquan（b As Integer,n As Integer,m As Integer,k As Integer） As String
Dim i As Integer,j As Integer
Dim s As String'出圈順序存放
i=k-1
s=“出圈順序?yàn)椋骸?br />Do While n＞1
i=i+1
m=m-1
If（3）Then
s=s+Str（b（i））+“，“
For j=i To n-1
b（j）=b（j+1）
Next j
b（j）=0
n=n-1
i=i-1
m=4
End If
If i=n  Then  i=0
Loop
chuquan=（4）
End Function
（1）

and

and

（2）

chuquan（a（　?。?，n,m,k）

chuquan（a（　　），n,m,k）

（3）

m=0

m=0

（4）

s+str（b（1））

s+str（b（1））

．