Найти количество отрицательных чисел - VB

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

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

Помогите исправить ошибки
Листинг программы
  1. Private Sub CmdRun_Click()
  2. b = 0
  3. For i = 1 To 10
  4. a = InputBox("Введите число")
  5. If a < 0 Then b = b + 1
  6. End
  7. Next i
  8. Print
  9. Print "B = "; b
  10. End Sub

Решение задачи: «Найти количество отрицательных чисел»

textual
Листинг программы
  1. Private Sub CmdRun_Click()
  2. b = 0
  3. For i = 1 To 10
  4.  a = InputBox("Введите число")
  5. If a < 0 Then b = b + 1
  6.  End
  7. Next i
  8. Print
  9. Print "B = "; b
  10. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы