tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти количество четных чисел
Найти количество четных чисел от 1 до 500, кратных 9. в vpa microsoft excel.
alina17anilaalina
2 23.09.2019 19:50
0
Ответы
132427
08.10.2020 13:10
Public Sub mod()
Dim i As Integer
Dim count As Integer
For i = 1 To 500
If (i Mod 9 = 0) Then
count = count + 1
End If
Next i
MsgBox (count)
End Sub
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
пиро3
13.01.2021 03:53
Постройте дерево Хаффмана для фразы: Не бойся, что не знаешь - бойся, что не учишь ...
Lisichka230303
13.01.2021 03:06
Алгоритмы линейной структуры состоят из определенных алгоритмом ....
Vika2471
15.08.2019 15:40
Инфармационное сообщение объёмам 4 кбайта состоит из 2096 символов.каков информационный вес символа этого сообщения? сколько символов содержит алфавит с которого записано это сообщение?...
tsts84
15.08.2019 15:50
Электронная схема работой внешнего устройства называется...
poroikovp
15.08.2019 15:50
Уберите в каждом слове одну согласную так,чтобы получилось новое слово в словах всласть,к раска,с клон полк тепло беда экран...
kerdivar86
15.08.2019 15:50
1)составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца на языке. 2)написать программу, которая по номеру дня недели (от 0 до 7) выдает...
Wasder1
15.08.2019 15:50
Кто может быть исполнителем алгоритма?...
Celovek21
15.08.2019 15:50
Время на выполнение s часов. в бригаде n человек . какова средняя загруженность одного члена бригады ?...
zaxarov20012
15.08.2019 16:00
Соедини стрелками по смыслу.мы собираем информацию,когда: наблюдаем,рисуем,запоминаем,записываем,думаем.мы представляем на носителе собранную информацию,когда: наблюдаем,рисуем,размышляем,слушаем,пишем....
uliii1
15.08.2019 13:59
Обьем куба равен 8,найти его площадь поверхности...
Популярные вопросы
(m+n)+(m+k)+(n+k),вотето m+n+k=83 как это будет ?...
3
Сколько протонов и электронов содержится: а) в атоме кислорода; б) в молекуле...
1
Визначити будову корінь суфікс закінчення у слові дубочком...
3
99 ! составьте хоть немного! cоставьте любые предложения со словосочетаниями :...
2
Разбейте предложение на словосочетания укажите вид словосочетания по главному...
3
Подскажите . города с гербами: медведь с топором, лев с короной,пушка с курицей....
2
Мне нужно записать значение слова гипермаркет а в интернете не выходит : (...
3
4причины почему крот не видит? можно побыстрей заранее !...
2
Раскрой смысл слов .морской вал карстовая пещера...
2
Устно составь три по таблице реши их и запиши в таблице ответ каждой...
3
Dim i As Integer
Dim count As Integer
For i = 1 To 500
If (i Mod 9 = 0) Then
count = count + 1
End If
Next i
MsgBox (count)
End Sub