Нахождение суммы отрицательных чисел - 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
Похожие ответы