Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
BestPe
28.07.2020 17:45 •
Информатика
Написать программы с использованием оператора цикла с параметром: а) вывести на экран последовательность латинских букв б)вывести на экран все четные двузначные числа в)составить программу вывода на экран таблицы умножения на 7
Ответ:
Елизавета99929
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 оценок)
Популярные вопросы: Информатика
Віка12341
13.05.2020 03:16
Какое название имеет первая часть таблицы кодировки(аscii)? как называется и что пишется во второй части таблицы?...
ДарьяШиллер
06.05.2021 19:30
Сотрудникам компании электронную карту, на которой записаны их личный код, номер подразделения (целое число от 1 до 200) и дополнительная информация, которая занимает 12 байт....
MARZHIVANKINA
17.11.2020 01:34
Иинформатикой! перечислите основные элементы блок-схем и их назначения....
илья213123
22.07.2021 17:37
Напишите на языке c++! создать массив размером 10! заполнить его рандомными числами! и заменить все четные числа в массиве на цифру -9;...
ashurovaalbina8
22.07.2021 17:37
Алладин, принцесса жасмин и джин нашли в пустыне лампу. каждый из них предположил, где и когда она была сделана. однако, каждый из них в своих предположениях допустил по одной...
bedniyboyarin
18.11.2022 20:44
Вам предложили заменить телефон 1 на телефон 2. данные устройства приблизительно одинаковыми техническими характеристиками, набором сервисов. в телефоне 1 накоплено немало мультимедиа...
Xzxzxzxzxzzxzxz
30.11.2020 23:55
Посмотри на картинку и определи, что объединяет показанные предметы. на картинке радио, телевизор, мобильный телефон, wi-fi роутер. 1) идея создания предметов принадлежит одной...
пишитеответ
29.08.2022 23:49
Скажите входы и выходы холодильника вот ,варианты которые были даны: свет, звук, электромагнитные волны, электроэнергия, мускульная сила человека, изображение, цвет, мороз, пыль,...
veterantitanfaoz8ptr
29.08.2022 23:49
Значимая часть слова, которая стоит после корня и служит для образование новых...
RokiFoki
29.08.2022 23:49
Найдено инопланетное сообщение записанное буквами 64-символьного алфавита и состоящего из 133 символов. какое количество информации оно несет? а) 798 б)8512 в)133 г)591...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Код программ можете увидеть нажав 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