学进去

求数组a 中非降序数列的方法，算法描述如下：
（1）用数组依次存储每个非降序数列中最大的元素（查找过程中的最大值），初始时 b（1）为数组 a 第 1 个元素。
（2）加入方法：将 a（i）与数组 b 中的每个元素依次逐个比较：
若 a（i）不比b（j）小就用 a（i）替换 b（j）中的值；将 a（i）添加到第 j 个非降序数列中，并连接到 c 数组的 c（j）中。
若 a（i）比 b（j）都小，则在数组 b 最后添加新的元素值为 a（i），即将 a（i）添加到第 j+1 个下降数列中，并连接到 c 数组的 c（j+1）中。   
（3）若数组a 各元素的值为：12，36，16，36，27，18 时，则 3 个非降序数列分别为：“12，36，36”， “16，27”，“18”。
程序运行界面如下图所示：

小明依据上述描述设计了如下 VB 程序。请回答下列问题：
（1）代码"List1.Clear"中的 Clear 是______。（单选，填字母： A．对象名 /B．事件名 /C．属性名 /D．方法名）
（2）实现上述功能的 VB 程序如下，请在划线处填⼊合适的代码。
①_________________
②_________________
③_________________
（3）程序中加框处代码有错，请改正。
改正：________________________
Const m=15
Dim a(1 To m) As Integer Private Sub Form_Load()
'读取m 个数据,依次存储到 a(1)、a(2)、......a(m)中,代码略End Sub
Private Sub Command1_Click()
Dim b(1 To m) As Integer '存储数列最大的值Dim c(1 To m) As String  '存储非降序数列Dim i As Integer
Dim bottom As Integer Dim j As Integer
Dim bn As Integer '存储非降序数列的个数List1.clear
b(1) = a(1)
①    
c(1) = Str(a(1))
For i = 2 To m     
For j = 1 To bn
If ②   Then
b(j) = a(i)
 
Exit For
End If
Next j
If j > bn Then
bn = bn + 1
③      
c(bn) = Str(a(i))
End If
Next i
For i = 1 To bn
List1.AddItem c(i) Next i
Text2.Text = "数列中共有" + Str(bn) + "个非降序序列"
End Sub