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

Dim a( 1 To 20) As Integer

Private Sub Command1_Click ( )

Dim key As Integer

key =   ①   

i = 1

Do While key > a ( i ) And ( i <= 1 5 )

i = i + 1

Loop

Label4.Caption = “该数插入的位置是：” + Str ( i )

If  i = 16  Then

a ( i ) = key

Else

For j = 16  To  i + 1 Step -1

    ②  

Next j

a ( i ) = key

End  If

List2. Clear

For i = 1 To 16

List2.AddItem a( i)

Next i

End Sub

Private Sub Form_Load( )

'随机生成15个200以内的正整数

Randomize

For i = 1 To 15

a ( i ) = Int(Rnd * 200) + 1

Next i

'将15个数从小到大排序

For i = 1 To 14

k = i

For j = i + 1 To 15

If a ( k ) > a ( j ) Then k = j

Next j

If  i <>k  Then

t = a(i)； a( i) = a ( k )：a ( k )

End  If

Next i

'将排好序的数输出在列表框Listl中

Listl.Clear

For i = 1 To 15

Listl.AddItem str ( a ( i ) )

Next i

End Sub

程序中①划线处应填入{#blank#}1{#/blank#}，程序中②划线处应填入{#blank#}2{#/blank#}

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#}

寻求路径最大值的算法设计如下：

按三角形的行划分，若有n行，则有n-1个步骤

①从底层开始，本身数即为最大值

②倒数第二层的计算取决于底层的数据：

12+6=18,13+14=27,24+15=39,24+8=32；

③倒数第三层的计算取决于底二层的数据：

27+12=39,39+7=46,39+26=65；

④倒数第四层的计算取决于底三层的数据：

46+11=57,65+8=73；

④最后的路径：13—8—26—15—24其和为86。

根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框text1中输出最大值。

依据上述描述设计如下VB程序：

Const n = 5

Dim sx As String

Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear

For i = 1 To n For j = 1 To i

    ①  

sx = sx + Str(a((i - 1) * n + j)) Next j

For k = n To i Step -1 sx = " " + sx

Next k List1.AddItem sx sx = ""

Next i End Sub

Private Sub Command2_Click() For i = n To 1 Step -1

For j = 2 To i

If    ②   Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If Next j

Next i

    ③  

End Sub

请回答下列问题：

If x And y Then x=0

Else x=1后x的结果为（   ）。