Вычислить в числовом массиве a(n) суммы положительных и отрицательных элементов - VB

Узнай цену своей работы

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

вычислить в числовом массиве а(n) суммы положительных и отрицательных элементов

Решение задачи: «Вычислить в числовом массиве a(n) суммы положительных и отрицательных элементов»

textual
Листинг программы
Option Base 1
 
Sub command1_click()
    Tmp$ = InputBox("Введите массив, разделяя числа пробелом")
    V = Split(Tmp$)
    MsgBox "Сумма полож=" & SumPos(V)
    MsgBox "Сумма отриц=" & SumNeg(V)
End Sub
 
Function SumPos(A) As Double
            For i% = 1 To UBound(A, 1)
                 If A(i%) > 0 Then SumPos = SumPos + A(i%)
            Next i%
End Function
 
Function SumNeg(A) As Double
            For i% = 1 To UBound(A, 1)
                 If A(i%) < 0 Then SumNeg = SumNeg + A(i%)
            Next i%
End Function

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы