学进去

统计数组升序段的个数。WB程序功能如下：程序运行后，在List1列表框中产生20个两位数随机正整数，单击“统计”命令按钮Command1，在Text1文本框显示统计出的该数组中“升序段”的个数，界面如图所示。

实现上述功能的VB代码如下：
Const n = 20
Dim a(l To n) As Integer
Dim i As Integer
Private Sub Form _Load()
Randomize
For I = 1 To n‘随机产生20个两位数正整数
　　
Next i
List1. Clear   ‘清除列表框
For i = l To n
Listl. AddItem Str(i)& ": " &Str(a(i))
Next i
End Sub
Private Sub Commandl _ Click()
Dim sxd As Integer,flag As Integer
sxd = 0: flag = 0
For I = 1 To n -1
If    ①    Then
flag= flag + 1
Else
flag = 0
End If
If    ②    Then sxd = sxd + 1
Next i
Textl. Text = Str(sxd)
End Sub
(1)代码“Private sub Command1 _ Click()”中的Commandl _ Click()是______（单选，填字母：

A．属性名/

B．事件名

C．事件过程/

D．方法名）

（2）程序代码中，加框处的代码有错，请改正。
_____________________________
（3）将程序代码中划线处补充完整。
①___________________________
②___________________________