約瑟夫問題．編號為1、2、3、…、n的n個人按順時針方向圍坐一圈，每人手持一個密碼（正整數(shù)）．開始任意選一個正整數(shù)m作為報數(shù)的上限值，從第一個人開始順時針自1開始順序報數(shù)，報到m時停止，同時報m的人出列，并將他的密碼作為新的上限值m,從他順時針下一個人開始重新自1開始報數(shù)，如此下去直到所有人全部出列為止．
要求：
1．由用戶輸入隊列人數(shù)n和正整數(shù)m,以及游戲的密碼上限x.
2．隊列中每人所持的密碼隨機產(chǎn)生，大小必須在[1，x]區(qū)間．
3．在程序界面中按出列順序顯示每個人的編號和出列時他所持的密碼．
運行效果如圖所示
實現(xiàn)上述功能的VB程序如下．請在橫線處填入適當(dāng)?shù)恼Z句和代碼，把程序補充完整．
（1）在程序畫線①處應(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）在程序畫線②處應(yīng)填入

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

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

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

m=b（i）

m=b（i）

．
Private Sub Command1_-Click（　?。?br />Dim a（　?。〢s Integer,b（　　）AsInteger,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,存儲下標(biāo)對應(yīng)編號人的隊列狀態(tài)
ReDim b（lTon）As Lnteger'重新定義數(shù)組b,存儲下標(biāo)對應(yīng)編號人的密碼
Randomize'隨機數(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)生每個人的隨機密碼
Next
c=0
k=0
Listl.Clear
Do While c＜n
For i=l To n
k=k+a（i）'累計報數(shù)
Ifk=mAnd

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

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

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

③m=b（i）

③m=b（i）

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