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

Dim s(1 To 6) As String

Text1.Text = ""

For i = 1 To 5

   For j = i + 1 To 6

       If s(i) + s(j) < s(j) + s(i) Then

        t = s(j): s(j) = s(i): s(i) = t

       End If

    Next j

Next i

For i = 1 To 6

  Text1.Text = Text1.Text + s(i)

Next i

如果程序运行，一开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（   ）

⑴将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组a（1）、a（2）、…a（La）中，将另一个整数各位上的数字按照从低位到高位的顺序依次存入数组b（1）、b（2）、…、b（Lb）中。其中，La表示第一个整数的位数，Lb表示第二个整数的位数；

⑵按照从低位到高位的顺序，将两个整数各位数值进行逐位乘法计算（第一轮先让b（1）依次乘以a(1)、a(2)、…、a(La)，第二轮再让b(2)依次乘以a(1)、a(2)、…a(La)，依次进行)，每位的乘法结果也按照低位到高位的顺序依次存入数组ans(1)、ans(2)、ans(3)…中；

⑶对数组ans中的计算结果进行从低位到高位的进位处理；

⑷统计数组ans中实际计算结果的有效数值位数，并将位数值存入变量 length；

⑸按照高位到低位的顺序输出数组ans中的计算结果。

张老师设计了两个正整数进行高精度乘法计算的VB程序，功能如下：在文本框 Text1和Text2中依次输入两个整数，单击“计算”按钮 Command1，程序进行高精度乘法计算，并在标签 Label4中输出计算结果。下面信息显示了进行高精度乘法计算的主要过程（假设输入的两个整数分别为“123”和“45”）：

程序运行效果如图所示。