小麗在假期看到小朋友們在玩一個游戲，8個小朋友圍成一圈，從某個小朋友開始報數(shù)，報到指定數(shù)時，該小朋友出圈，接著從出圈的位置開始再接著報．她希望通過VB程序模擬這個過程，思路如下：
（1）用一個一維數(shù)組來模擬，編號1～N保存在數(shù)據(jù)a（1）～a（n）中，來代表N個小朋友．
（2）K代表報數(shù)的起始位置，從數(shù)組的a（k）開始遍列，報到m出圈，將當前位置的元素刪除，后面的元素依次往前移位．總數(shù)減1．
（3）當報數(shù)報到數(shù)組元素的最后一個時，返回數(shù)組開頭接著報數(shù)．
（4）當總數(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'存放編號的數(shù)組
n=Val（Text1．Text）'編號個數(shù)
k=Val（Text2．Text）'報數(shù)起始位
m=Val（Text3．Text）'報到出圈數(shù)
If n＞0And k＞0And m＞0   （1）n＜=50Then
For i=1To n'初始化編號a（1）=1，a（2）=2，…
A（i）=i
Next i
Label1．Caption=（2）'調(diào)用出圈函數(shù)，得到返回的出圈順序
Else
MsgBox“編號、起始位、報到出圈數(shù)都必須大于0！編號不能超過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=“出圈順序為：“
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））

．