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 Cmd1_Click( )

    Dim n As Integer, i As Integer, j As Integer, k As Integer, t As Integer

    Dim left1 As Integer, right1 As Integer, ans As Integer

    n=

    '随机生成各立方柱的高度保存到h(1)到h(n)中， 并在List1中显示，代码略。

    For i=1 To n

        b(i) = i

    Next i

    For i=1 To n- 1   '根据立方柱的高度进行排序

        k =i

        For j=i+1 Ton

            If  Thenk=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

    Left1= 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