Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
отличник714
30.12.2021 02:42 •
Информатика
1)дан массив из 10 чисел. найти произведение отрицательных чисел.(visual basic)
Показать ответ
Ответ:
SergeyValitov228
24.07.2020 16:46
Sub Zadanie()
On Error GoTo Handler
Dim A(9) As Integer
For k = 0 To 9
A(k) = InputBox("Chislo nomer " + CStr(k + 1))
Next k
Dim b As Integer 'proizv
b = 1
Dim m As Boolean 'est li otrits chisla
m = False
For i = 0 To 9
If A(i) < 0 Then
b = b * A(i)
m = True
End If
Next i
If m = False Then MsgBox "Otrits. chisel ne bylo" Else MsgBox (b)
End
Handler:
MsgBox "Oshibka!"
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
Brаun
25.10.2020 17:28
Используя текстовый редактор, подготовьте небольшой отчет на тему «модель состава системы». изобразите графическими средствами модели состава систем, рассмотренных в первом...
basik100grn
08.10.2020 19:28
Найдите первое число которое кратное 7, не кратное 3, и на конце 3...
Алина13445
08.10.2020 19:28
Замените «1» вместо положительных элементов в массиве x (12) и «0» вместо отрицательных элементов. (на )...
Aksvat1999
18.05.2020 08:40
В тетради напишите текст Мои друзья из 5 абзацев. Перед тем как написать текст, на каждый обзац составьте план, где содержится главная мысль абзаца. План напишите к себе...
Fredbreyn
06.01.2021 02:28
1010 и 1101 преобразовать в целые десятичные числа...
toshaantoshai
21.12.2022 21:25
3) Вычислите объем информации в битах и байтах в словосочетании знание - это сила,сила - это победа ....
AZIMJON11
18.02.2021 12:58
Используя возможности создания гиперссылок в текстовом редакторе по теме «Великие личности в историиКазахстана», создайте 5 тестовых заданий с 4 вариантамиответов....
Slee1
06.07.2022 00:03
Изобразите с блок-схем алгоритм печати документа на принтере....
Bigrash
28.11.2020 14:25
Формула по которой находят массу тела если известна плотность и его объем...
maximstrekalovs
31.05.2021 06:45
4) этилен и полиэтилен — мономерыв-1. укажите, какие из представленных формул веществ вражают состав: а) гомологов; б) изомеров....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
On Error GoTo Handler
Dim A(9) As Integer
For k = 0 To 9
A(k) = InputBox("Chislo nomer " + CStr(k + 1))
Next k
Dim b As Integer 'proizv
b = 1
Dim m As Boolean 'est li otrits chisla
m = False
For i = 0 To 9
If A(i) < 0 Then
b = b * A(i)
m = True
End If
Next i
If m = False Then MsgBox "Otrits. chisel ne bylo" Else MsgBox (b)
End
Handler:
MsgBox "Oshibka!"
End Sub