实现上述功能的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#}

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

        m = Asc(ch) - Asc("0") + 1

        a(m) = a(m) + 1

    End If

 Next i

 For i = 1 To 10

    If a(i) > 1 Then n = n + i

 Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（  ）

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

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

Dim i As Integer，j As Integer，t As Integer

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text 1中显示。代码略

bottom = n

i = 1

Do While i<= bottom-1

  For j = bottom To i + 1 Step -1

      If  Then   ‘⑴

        t = a（j）： a（j）= a（j - 1）：a（j - 1）= t

      Elself a（j）= a（j - 1）Then    '相邻两个数据相等，进行剔除处理

           ‘⑵

        bottom = bottom -1

      End If

    Next j

    i = i+1

Loop

Text2.Text=＂＂

For i = 1 To bottom

  Text2.Text = Text2.Text+Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}