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

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

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

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.067 из 5


СДЕЛАЙТЕ РЕПОСТ