Алгоритм знаходження суми і добутку елементів масиву

Dim a(5) As Integer

Private Sub Command1_Click()

Dim i, max, sum As Integer

sum = a(0)

For i = 1 To 5

        sum = sum + a(i)

        If a(i - 1) >= a(i) Then

                    max = a(i - 1)

                    Else

        max = a(i)

        End If

Next i

Text1(0).Text = sum

Text2.Text = max

End Sub

Private Sub Form_activate()

'Dim a(5) As Integer

Dim b, max As Integer

For b = 0 To 5

a(b) = InputBox("Enter a = ")

List1.AddItem a(b)

Next b

End Sub