猴子選大王的問題：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