猴子選大王的問題：N 只猴子選大王，選舉辦法如下：從頭到尾 1、2、3 報(bào)數(shù)，凡報(bào) 3 的退 出，余下的從尾到頭 1、2、3 報(bào)數(shù)，還是報(bào) 3 的退出，依此類推；當(dāng)剩下只有兩只猴子時(shí)，不再報(bào)數(shù)，取 當(dāng)前報(bào)數(shù)報(bào) 1 的為王。如五只猴子報(bào)數(shù)，則第一輪順序?yàn)榈?nbsp;12345，第 3 只出列，第二輪順序?yàn)?nbsp;5421，第 2
只出列；第三輪順序?yàn)?nbsp;145，第 5 只出列，這時(shí)第 1 只猴子報(bào)數(shù)為 1，則第 1 只猴子為猴王。若想當(dāng)猴王，請問最初占據(jù)什么位置？在 Text1 文本框中輸入?yún)⑦x大王的猴子總數(shù)量，單擊“猴王的位置”，在 Label2 標(biāo) 簽上顯猴王最初的位置。VB 程序運(yùn)行界面如下：

實(shí)現(xiàn)上述功能的 VB 程序如下：
（1）如果只有 10 只猴子參加本次選大王，則猴王最初的位置為：

2

2

（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請?jiān)跈M線處填入合適代碼。
Private Sub Command1_Click （　?。?br />        Dim n,x,m,s As Integer'假設(shè)參與的猴子數(shù)量不超過 5000
        Dim a（1To 5000）As Integer'用數(shù)組 a 存儲(chǔ)每只猴子的報(bào)數(shù)，值為 3 時(shí)視同出列
        Dim t,y As Boolean't 用于循環(huán)，y 為 true 時(shí)表示報(bào)數(shù)順序是從頭到尾，y 為 false 時(shí)報(bào)數(shù)順序 是從尾到頭
        n=Val（Text1．Text）
        x=1'x 為每次猴子的位置
        m=1'm 為報(bào)數(shù)的 1、2、3
        y=True
        t=True
        Do While t
'該位置的猴子是否已經(jīng)出列
        If a（x）＜＞3Then'沒有出列的，則報(bào)數(shù)
        a（x）=m
       ①

m=m+1

m=m+1

'1，2，3 之后重新開始
       If m＞3Then m=1
       Else'每次有猴子報(bào) 3 出列之后，檢查是否已經(jīng)只有兩只猴子沒有出列
       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
'檢查報(bào)數(shù)是在遞增，還是遞減，y 為 true 時(shí)遞增
'報(bào)到最后一次猴子后
        If x＞n Then y=False：m=1：x=n
'報(bào)到第一次猴子后
         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