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

Ответы 6

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

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

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

      luna57
    • 6 лет назад
    • 0
  • хорошо спасибо)
    • Автор:

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

      burnett
    • 6 лет назад
    • 0
  • 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
    • Автор:

      babs
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years