猴子选大王的问题：N 只猴子选大王，选举办法如下：从头到尾 1、2、3 报数，凡报 3 的退 出，余下的从尾到头 1、2、3 报数，还是报 3 的退出，依此类推；当剩下只有两只猴子时，不再报数，取 当前报数报 1 的为王。如五只猴子报数，则第一轮顺序为第 12345，第 3 只出列，第二轮顺序为 5421，第 2
只出列；第三轮顺序为 145，第 5 只出列，这时第 1 只猴子报数为 1，则第 1 只猴子为猴王。若想当猴王，请问最初占据什么位置？在 Text1 文本框中输入参选大王的猴子总数量，单击“猴王的位置”，在 Label2 标 签上显猴王最初的位置。VB 程序运行界面如下：

实现上述功能的 VB 程序如下：
（1）如果只有 10 只猴子参加本次选大王，则猴王最初的位置为：

2

2

（2）实现上述功能的 VB 程序如下，请在横线处填入合适代码。
Private Sub Command1_Click （　　）
        Dim n,x,m,s As Integer'假设参与的猴子数量不超过 5000
        Dim a（1To 5000）As Integer'用数组 a 存储每只猴子的报数，值为 3 时视同出列
        Dim t,y As Boolean't 用于循环，y 为 true 时表示报数顺序是从头到尾，y 为 false 时报数顺序 是从尾到头
        n=Val（Text1．Text）
        x=1'x 为每次猴子的位置
        m=1'm 为报数的 1、2、3
        y=True
        t=True
        Do While t
'该位置的猴子是否已经出列
        If a（x）＜＞3Then'没有出列的，则报数
        a（x）=m
       ①

m=m+1

m=m+1

'1，2，3 之后重新开始
       If m＞3Then m=1
       Else'每次有猴子报 3 出列之后，检查是否已经只有两只猴子没有出列
       s=0
       For i=1To n
       If②

a（i）＜＞3（或a（i）＜3）

a（i）＜＞3（或a（i）＜3）

Then s=s+1
       Next  i
       If s＜3Then Exit Do
       End If
       If y=True Then x=x+1Else x=x-1
'检查报数是在递增，还是递减，y 为 true 时递增
'报到最后一次猴子后
        If x＞n Then y=False：m=1：x=n
'报到第一次猴子后
         If x=0Then y=True：m=1：
         Loop
'输出猴王的位置
        For i=1To n
       ③

x=1

x=1

        If a（i）=1Then Label2．Caption=“猴王的位置为第“+Str（i）+“只“
         Next i
         End Sub