約瑟夫問(wèn)題．編號(hào)為1、2、3、…、n的n個(gè)人按順時(shí)針?lè)较驀蝗Γ咳耸殖忠粋€(gè)密碼（正整數(shù)）．開(kāi)始任意選一個(gè)正整數(shù)m作為報(bào)數(shù)的上限值，從第一個(gè)人開(kāi)始順時(shí)針自1開(kāi)始順序報(bào)數(shù)，報(bào)到m時(shí)停止，同時(shí)報(bào)m的人出列，并將他的密碼作為新的上限值m,從他順時(shí)針下一個(gè)人開(kāi)始重新自1開(kāi)始報(bào)數(shù)，如此下去直到所有人全部出列為止．
要求：
1．由用戶輸入隊(duì)列人數(shù)n和正整數(shù)m,以及游戲的密碼上限x.
2．隊(duì)列中每人所持的密碼隨機(jī)產(chǎn)生，大小必須在[1，x]區(qū)間．
3．在程序界面中按出列順序顯示每個(gè)人的編號(hào)和出列時(shí)他所持的密碼．
運(yùn)行效果如圖所示
實(shí)現(xiàn)上述功能的VB程序如下．請(qǐng)?jiān)跈M線處填入適當(dāng)?shù)恼Z(yǔ)句和代碼，把程序補(bǔ)充完整．
（1）在程序畫(huà)線①處應(yīng)填入

b（i）=Int（x*Rnd）+1 或b（i）=Int（x*Rnd+1）

b（i）=Int（x*Rnd）+1 或b（i）=Int（x*Rnd+1）

；
（2）在程序畫(huà)線②處應(yīng)填入

a（j）＜＞0或a（j）=1

a（j）＜＞0或a（j）=1

；
（3）在程序畫(huà)線③處應(yīng)填入

m=b（i）

m=b（i）

．
Private Sub Command1_-Click（　　）
Dim a（　?。〢s Integer,b（　?。〢sInteger,m As Integer,n As Integer
Dim i As Integer,k As Integer,cAs Integer,x As Integer
n=Val（Textl.Text）：m=Val（Text2．Text）：x=Val（Text3．Text）
ReDim a（lTon）As Lnteger'重新定義數(shù)組a,存儲(chǔ)下標(biāo)對(duì)應(yīng)編號(hào)人的隊(duì)列狀態(tài)
ReDim b（lTon）As Lnteger'重新定義數(shù)組b,存儲(chǔ)下標(biāo)對(duì)應(yīng)編號(hào)人的密碼
Randomize'隨機(jī)數(shù)生成器初始化
For i=l To n
a（i）=l'在列

①b（i）=Int（x*Rnd）+1 或b（i）=Int（x*Rnd+1）

①b（i）=Int（x*Rnd）+1 或b（i）=Int（x*Rnd+1）

'產(chǎn)生每個(gè)人的隨機(jī)密碼
Next
c=0
k=0
Listl.Clear
Do While c＜n
For i=l To n
k=k+a（i）'累計(jì)報(bào)數(shù)
Ifk=mAnd

②a（j）＜＞0或a（j）=1

②a（j）＜＞0或a（j）=1

Then
k=0
a（i）=0'出列
Listl.Addltem''出列人的編號(hào)為''&i&''，該人的密碼為''&b（i）

③m=b（i）

③m=b（i）

     c=c+1
   End If
   Next i
   Loop
End Sub.