Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
krasotka8726
17.03.2021 04:27 •
Информатика
Написать программы с использованием оператора цикла с параметром: а) вывести на экран последовательность латинских букв б)вывести на экран все четные двузначные числа в)составить программу вывода на экран таблицы умножения на 7
Показать ответ
Ответ:
Дейлионна
01.10.2020 20:18
Пример реализации на VBA Excel
Код программ можете увидеть нажав Alt+F11
Основные операторы такие же как в других языках
Sub Буква()
For i = 65 To 122
строка =строка + 1
Cells(строка, 3) = Chr(i)
Next i
End Sub
Sub цифра()
For i = 10 To 99
If i / 2 = Int(i / 2) Then
строка= строка+ 1
Cells( строка, 3) = i
End If
Next i
End Sub
Sub Умнож7()
For i = 1 To 100
строка= строка + 1
Cells( строка, 3) = Str(i) + "x 7 = " + Str(i * 7)
Next i
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
Любаша5648
31.07.2021 10:50
На рисунке 106 изображена открытка. как ее изменить чтобы открытка стала интерактивной? возможно ли открытку сделать музыкальной? какие стратегии вы будете применять дя реализации...
shamsutdinovaa3
15.10.2022 18:15
Чим виюідрізняються між собою цикл лічильником і цикл з передумовою ? ...
ramina25
06.05.2021 05:02
Дети, как известно, все раньше и раньше начинают пользоваться интернетом. Теперь, когда у них возникают вопросы, они не бегут к родителям, а заходят в свою любимую поисковую систему...
Vasyliev
05.01.2020 00:33
Поезд находиться на одном из 16 путей.сколько бит информации содержит сообщение о том ,где находится поезд?...
Evgenchee
19.02.2023 05:37
Тапсырма п. 26-27 Қазақстандағы ұлыстардың құрылуы туралы талдаңыз 115-116 бет Тақырып соңындағы ашық тест,жабық тест сұрақтарға жауап жазыңыз....
Диана8909
17.05.2020 00:18
1. Қазақ зиялыларының Кеңес үкіметі саясатын қолдамауының себебі неде? 2. Ұжымдастыру қазақ халқының дәстүрлі құндылықтарына қалайша әсеретті? 3. «1928-1932 жылдары қазақтарды күштеп...
котик2107
10.01.2023 19:43
5) Определите относительное прилагательное а) интересныйв)синийс)отцовд)философскийе)лисий6) Укажите качественное прилагательное.а) весёлыйв)научныйс)деревянныйд)гусиныйе) кожаный7)...
zetexer1
10.01.2020 17:23
3 Сравните полученную из стихотворения информацию с данным кластером.Сделайте вывод.не имеетграмматическогозначенияне изменяетсяобразовалась отслова частьЧастицане является членомпредложенияслужебная...
missisruso
14.07.2022 18:35
KF || AC Угол KFA = 35° Угол AKF = ?...
лера1231231
02.10.2022 14:25
Задание 1. Одной из потребностей человека является познание окружающего мира. 1. Как Вы думаете, в чём значение познавательной деятельности для человека и общества? 2. Составьте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Код программ можете увидеть нажав Alt+F11
Основные операторы такие же как в других языках
Sub Буква()
For i = 65 To 122
строка =строка + 1
Cells(строка, 3) = Chr(i)
Next i
End Sub
Sub цифра()
For i = 10 To 99
If i / 2 = Int(i / 2) Then
строка= строка+ 1
Cells( строка, 3) = i
End If
Next i
End Sub
Sub Умнож7()
For i = 1 To 100
строка= строка + 1
Cells( строка, 3) = Str(i) + "x 7 = " + Str(i * 7)
Next i
End Sub