Нахождение суммы отрицательных чисел - VB

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

программа для ввода 7 чисел и нахождение суммы отрицательных

Решение задачи: «Нахождение суммы отрицательных чисел»

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

                            Private Sub Form_Load()
    Dim sum As Double, x As Double, i As Integer
    sum = 0
    For i = 1 To 7
        x = CDbl(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® " + CStr(i)))
        If (x < 0) Then sum = sum + x
    Next i
    MsgBox "Г‘ГіГ¬Г¬Г* = " + CStr(sum)
    End
End Sub
                        

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

12 голосов , оценка 3.917 из 5

Похожие ответы