学进去

如图所示，凹槽内放置了n（3≤n≤15）个高度不等的立方柱，立方柱由多个单位为1的立方块叠加而成，立方柱之间如果有间隔则可以用来注水。
编写VB程序计算立方柱之间的最大注水体积。程序运行时随机生成的数据从左到右依次为“3，0，2，5，0，2，0，4”，分别代表各位置点立方柱的高度（0表示无立方柱）。列表框List l中输出各立方柱高度以及所求的最大注水体积。请回答下列问题：

（1）结合程序代码，图中按钮对象的名称是__________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
①_______________
②_______________
（3）程序中加框处代码有错，请改正。
________________________
Const Maxn=15
Dim h(1 To Maxn)As Integer 'h(i)存储第i个立方柱的高度
Dim b(1 To Maxn)As Integer 'b(i)存储第i个立方柱的编号
Private Sub Cmd l_Click()
Dim n As Integer,i As Integer,j As Integer,k As Integer,t As Integer
Dim left1 As Integer,right l As Integer,ans As Integer
n= ①
'随机生成各立方柱的高度保存到h(1)到h(n)中,并在List l中显示,代码略.
For i=1 To n
b(i)=i
Next i
For i=1To n-1        '根据立方柱的高度进行排序
k=i
For j=i+1 To n
        If h(j-1)<h(j)Then k=j
Next j
If k<>i Then
        t =h(i):h(i)=h(k):h(k)=t
        t=b(i):b(i)=b(k):b(k)=t
End If
Next i
1eft1=b(1):right1=b(1):ans=0
For i=2 To n
If h(i)=0 Then Exit For
If b(i)<left1 Then
        ans=ans +h(i)*(left1-b(i)-1)
        left1=b(i)
ElseIf b(i)>right1 Then
        ans= ②
        right1=b(i)
Else
        ans=ans-h(i)
End If
Next i
List1.AddItem"最大注水体积是:"&Str(ans)
End Sub