求数组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 是

D

D

。（单选，填字母：A．对象名/B．事件名/C．属性名/D．方法名）
（2）实现上述功能的 VB 程序如下，请在横线处填上合适的代码。
①

bn=1

bn=1

②

a（i）＞=b（j）

a（i）＞=b（j）

③

b（bn）=a（i）

b（bn）=a（i）

（3）程序中加框处代码有错，请改正。
改正：

c（j）=c（j）+str（a（i））

c（j）=c（j）+str（a（i））

Const m=15
Dim a（1 To m） As Integer Private Sub Form_Load

1

1

'读取m 个数据，依次存储到 a（1）、a（2）、…a（m）中，代码略End Sub
Private Sub Command1_Click

1

1

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