1)Дан массив из 10 чисел. Найти произведение отрицательных чисел.(visual basic)

Я знаю, что будет работать так, как я написал, другое не знаю. m здесь - индикатор, есть ли хотя бы одно отриц. число, если его убрать, то при отсутствии отриц. чисел он выдаст единицу, что есть ошибка.

Функция CStr() делает из числа строку, без этого вы получите несовпадение типов.

А если убрать On Error... и Handler, то получится несовпадение типов, если вдруг вместо числа будет введен текст

хорошо спасибо)

В школьных задачах проверки правильности ввода исходных данных не делается за исключением случая, когда это оговорено условиями задания.

Sub Zadanie()On Error GoTo HandlerDim A(9) As IntegerFor k = 0 To 9A(k) = InputBox("Chislo nomer " + CStr(k + 1))Next kDim b As Integer 'proizvb = 1Dim m As Boolean 'est li otrits chislam = FalseFor i = 0 To 9If A(i) < 0 Thenb = b * A(i)m = TrueEnd IfNext iIf m = False Then MsgBox "Otrits. chisel ne bylo" Else MsgBox (b)EndHandler:MsgBox "Oshibka!"End Sub