约瑟夫问题．编号为1、2、3、…、n的n个人按顺时针方向围坐一圈，每人手持一个密码（正整数）．开始任意选一个正整数m作为报数的上限值，从第一个人开始顺时针自1开始顺序报数，报到m时停止，同时报m的人出列，并将他的密码作为新的上限值m,从他顺时针下一个人开始重新自1开始报数，如此下去直到所有人全部出列为止．
要求：
1．由用户输入队列人数n和正整数m,以及游戏的密码上限x.
2．队列中每人所持的密码随机产生，大小必须在[1，x]区间．
3．在程序界面中按出列顺序显示每个人的编号和出列时他所持的密码．
运行效果如图所示
实现上述功能的VB程序如下．请在横线处填入适当的语句和代码，把程序补充完整．
（1）在程序画线①处应填入

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）在程序画线②处应填入

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

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

；
（3）在程序画线③处应填入

m=b（i）

m=b（i）

．
Private Sub Command1_-Click（　　）
Dim a（　　）As 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'重新定义数组a,存储下标对应编号人的队列状态
ReDim b（lTon）As Lnteger'重新定义数组b,存储下标对应编号人的密码
Randomize'随机数生成器初始化
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）

'产生每个人的随机密码
Next
c=0
k=0
Listl.Clear
Do While c＜n
For i=l To n
k=k+a（i）'累计报数
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.