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

a(1)=68: a(2)=88: a(3)=76: a(4)=60: a(5)=98: a(6)=100: a(7)=64: a(8)=85: a(9)=99:a(10)=59

For i = 1 To 9

 b(i) = Abs(a(i + 1) - a(i))

 c(b(i) \ 10) = c(b(i) \ 10) + 1

Next i

For i = 0 To 10

 If c(i) > 0 Then Label1.Caption = Label1.Caption + “” + Str(c(i))

Next i

数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（  ）

⑴将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组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”)：

图a

图b

程序运行效果如图所示。

图c

实现上述功能的VB程序如下：

参赛班级用数字1，2，3，4……number表示，依次存入数组a(1)～a(number)，若1号班级的编号为5，则a(1)=5。