Найти количество отрицательных чисел - VB
Формулировка задачи:
Помогите исправить ошибки
Листинг программы
- Private Sub CmdRun_Click()
- b = 0
- For i = 1 To 10
- a = InputBox("Введите число")
- If a < 0 Then b = b + 1
- End
- Next i
- Print "B = "; b
- End Sub
Решение задачи: «Найти количество отрицательных чисел»
textual
Листинг программы
- Private Sub CmdRun_Click()
- b = 0
- For i = 1 To 10
- a = InputBox("Введите число")
- If a < 0 Then b = b + 1
- End
- Next i
- Print "B = "; b
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д