图1
   图2

 程序代码如下：

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear            '清除列表框内容

End Sub

Private Function f(x As Integer) As Boolean  '自定义函数f,返回值为逻辑型

  Dim j As Integer

  f = True

  For j = 2 To Int(Sqr(x))

    If x Mod j = 0 Then

      f =     ③      '函数返回值

      Exit For           '跳出For循环

    End If

  Next j

End Function

For i = 100 To 999 lag = True: j = 2

Do While j < i And flag

Loop

If flag Then List1.AddItem Str(i) Next i

方框中的代码由以下四部分组成：①End If   ②If i Mod j = 0 Then   ③j = j + 1

④flag = False。代码顺序正确的是（  ）

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click（）

  Dim i As Integer, d As Integer, r As integer

  Dim rs As string, ans1 As Integer, ans2 As Integer

  For i=81 To 342

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

    rs=“”

    Do While d ＜>0

      r = d Mod 9

      rs= str(r)+rs

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

    Loop

    ans1= Val(rs)

  ‘求出相应的七进制数，存储在变量ans2中，代码略

    If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③{#blank#}3{#/blank#} Then

      Text1. Text=④{#blank#}4{#/blank#}

      Text2 Text= Str(ans1)

      Text3. Text= Str(ans2)

    End If

  Next i

End Sub

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub Command1_Click()

    Const n=20

    Dim i As Integer, j As Integer

    Dim a(1 To n) As integer

    For j=1 To n

        a(j)=0

    Next j

    For i=1 To n

        For j=1 To n

            If j Mod i=0 Then

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

            End If

        Next j

    Next i

    For j=1 To n

        If {#blank#}2{#/blank#} Then List1.AddItem Str(j)

    Next j

End Sub

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()

    Dim s, f, t As Integer

    Dim a(1 To 400) As Boolean

    For i = 1 To 400

        a(i) = False

    Next i

    s = 0

    f = 0

    i = 0

    Do While f < 399

        i = i + 1

        If i = 401 Then i = {#blank#}1{#/blank#}

        If a(i) = False Then s = s + 1

        If s = 2 Then

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

            List1.AddItem Str(i)

            a(i) = True

            f =  {#blank#}3{#/blank#}

        End If

    Loop

    For i = 1 To 400

        If  {#blank#}4{#/blank#} Then text1.text=str(i)

    Next i

End Sub

在程序划线处填入合适的代码。