Найти произведение положительных элементов массива - VB (171444)

Формулировка задачи:

В одномерном массиве,состоящем из n вещественных элементов вычислить: 1. Произведение положительных элементов массива; 2.Сумму элементов массива, расположенных до минимального элемента. Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы, стоящие на нечетных местах. (n вводится с клавиатуры)

Решение задачи: «Найти произведение положительных элементов массива»

textual
                            Листинг программы 
                        

                                Dim I(5), Bol0, minX, NR, SK, Summach, Summane
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Ввод значений.
        For Q = 1 To 5 Step 1
            I(Q) = InputBox("Введите значение:", "Значение.")
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Сумма > 0
        Bol0 = 0
        For Q = 1 To 5 Step 1
            If I(Q) > 0 Then
                Bol0 = Bol0 + I(Q)
            End If
        Next
        MsgBox("Сумма > 0: " & Bol0)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' Сумма до min
        minX = 0
        For Q = 1 To 5 Step 1
            If I(Q) < minX Then
                minX = Q
            End If
        Next
        NR = 0
        SK = minX - 1
        For Q = 1 To CInt(SK) Step 1
            NR = NR + I(Q)
        Next
        MsgBox("Сумма до мин. значения: " & NR)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Сумма чет.
        Summach = 0
        For Q = 2 To 4 Step 2
            Summach = Summach + I(Q)
        Next
        MsgBox("Сумма чет. " & Summach)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'Сумма нечет.
        Summane = 0
        For Q = 1 To 5 Step 2
            Summane = Summane + I(Q)
        Next
        MsgBox("Сумма нечет. " & Summane)
    End Sub
                        