1）用一个一维数组来模拟，编号1~N保存在数据a(1)~a(n)中，来代表N个小朋友。

2）K代表报数的起始位置，从数组的a(k)开始遍列，报到m出圈，将当前位置的元素删除，后面的元素依次往前移位。总数减1。

3）当报数报到数组元素的最后一个时，返回数组开头接着报数。

4）当总数只剩下一个数时，直接输出。

界面如下：

Private Sub Command1_Click(   )

Dim i As Integer

Dim n As Integer

Dim m As Integer, k As Integer

Dim A(1 To 50) As Integer   '存放编号的数组

n = Val(Text1.Text)                       '编号个数

k = Val(Text2.Text)                '报数起始位

m = Val(Text3.Text)                   '报到出圈数

If n > 0 And k > 0 And m > 0    ①   n <= 50 Then

    For i = 1 To n              '初始化编号a(1)=1,a(2)=2,……

         A(i) = i

    Next i

    Label1.Caption =     ②          '调用出圈函数，得到返回的出圈顺序

Else

    MsgBox "编号、起始位、报到出圈数都必须大于0！编号不能超过50！"

End If

End Sub

Private Function chuquan(b() As Integer, n As Integer, m As Integer, k As Integer) As String

Dim i As Integer, j As Integer

Dim s As String                  '出圈顺序存放

i = k - 1

s = "出圈顺序为："

Do While n > 1

       i = i + 1

       m = m - 1

       If     ③  Then

         s = s + Str(b(i)) + ","

         For j = i To n - 1

            b(j) = b(j + 1)

         Next j

         b(j) = 0

         n = n - 1

         i = i - 1

         m = 4

      End If

      If i = n  Then  i = 0

Loop

chuquan =        ④    

End Function

① {#blank#}1{#/blank#}

② {#blank#}2{#/blank#}

③ {#blank#}3{#/blank#}

④ {#blank#}4{#/blank#}

  c = 0

  c = c + 1

  c = c + 2

n=Len(s)       ‘s是待判断的字符串

k=0:j=n

For i=1 To n/ 2

Next i

If k=0 Then Labell Caption=“对称”Else Labell.Caption=“不对称”

方框中的代码由以下三部分组成:

①j=j-1    ②If cl <> c2 Then k=k+1    ③cl=Mid(s,i,l):c2=mid(s,j,l)

代码顺序正确的选项是（  ）

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim a(1 To 999) As Integer

Dim n As Integer

Dim s As String

For i=1 To 999

 a(i)=0

Next i

n=Val(Text1.Text)

s =“”

Do While n<>1     ‘分解质因子过程并统计质因子出现次数

For i = 2 To n

 Do While n Mod i = 0

  s = s&“  ”&i

  a(i)= a(i)+1

       ‘①

 Loop

Next i

Loop

Label4.Caption =“质因子分解过程:” +s

For j = 2 To 999     ‘判断是不是漂亮数

 If Then      ‘②

  Label1.Caption = “不是漂亮数”

  Exit For

 Else

  Label1.Caption =“漂亮数”

  End If

Next j

For j = 2 To 999     ‘在列表框输出质因数及对应的乘方数

 If a(j)>0 Then

  List1.Additem Str(j)+“ ”+Str(a(j))

 End If

Next j

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}