求數(shù)組a 中非降序數(shù)列的方法，算法描述如下：
（1）用數(shù)組依次存儲(chǔ)每個(gè)非降序數(shù)列中最大的元素（查找過程中的最大值），初始時(shí) b（1）為數(shù)組 a 第 1 個(gè)元素。
（2）加入方法：將 a（i）與數(shù)組 b 中的每個(gè)元素依次逐個(gè)比較：
若 a（i）不比 b（j）小就用 a（i）替換 b（j）中的值；將 a（i）添加到第 j 個(gè)非降序數(shù)列中，并連接到 c 數(shù)組的 c（j）中。
若 a（i）比 b（j）都小，則在數(shù)組 b 最后添加新的元素值為 a（i），即將 a（i）添加到第 j+1 個(gè)下降數(shù)列中，并連接到 c 數(shù)組的 c（j+1）中。
（3）若數(shù)組a 各元素的值為：12，36，16，36，27，18 時(shí)，則 3 個(gè)非降序數(shù)列分別為：“12，36，36”，“16，27”，“18”。
程序運(yùn)行界面如圖所示：
小明依據(jù)上述描述設(shè)計(jì)了如下 VB 程序。請(qǐng)回答下列問題：
（1）代碼“List1.Clear“中的 Clear 是

D

D

。（單選，填字母：A．對(duì)象名/B．事件名/C．屬性名/D．方法名）
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填上合適的代碼。
①

bn=1

bn=1

②

a（i）＞=b（j）

a（i）＞=b（j）

③

b（bn）=a（i）

b（bn）=a（i）

（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
改正：

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 個(gè)數(shù)據(jù)，依次存儲(chǔ)到 a（1）、a（2）、…a（m）中，代碼略End Sub
Private Sub Command1_Click

1

1

Dim b（1 To m） As Integer'存儲(chǔ)數(shù)列最大的值Dim c（1 To m） As String'存儲(chǔ)非降序數(shù)列Dim i As Integer
Dim bottom As Integer Dim j As Integer
Dim bn As Integer'存儲(chǔ)非降序數(shù)列的個(gè)數(shù)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=“數(shù)列中共有“+Str（bn）+“個(gè)非降序序列“
End Sub