Найти количество отрицательных чисел - 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
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
Print "B = "; b
End Sub
                        

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

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

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