Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
125VikA125
16.02.2022 04:00 •
Информатика
Написать программы с использованием оператора цикла с параметром: а) вывести на экран последовательность латинских букв б)вывести на экран все четные двузначные числа в)составить программу вывода на экран таблицы умножения на 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 оценок)
Популярные вопросы: Информатика
Марина6456667
29.01.2021 18:11
Даны стороны треугольника.Определить вид треугольника: равносторонний, равнобедренный, иначе вывести нет...
anna2016anna20
19.04.2021 13:07
Между населёнными пунктами A, B, C, D, E, F построены дороги. Определи длину кратчайшего пути между пунктами A и F. Передвигаться можно только по дорогам, протяжённость...
mamakarina
07.11.2022 05:27
Какое число следует за числом 111 с индексом 4 в 4-ричной системе счисления?...
sdoleg2011
23.07.2022 11:43
Кто печатает документы на принтере - исполнитель...
tka4ukilia2017
23.07.2022 11:43
Сколько трехзначных чисел можно составить с цифр 1,3,5 и 7 при условии, что в записи числа не должно быть одинаковых цифр?...
IIIayni
14.09.2021 16:56
Какой-то не хороший человек пошёл в магазин и купил за 25 у.е. часы. в уплату он дал одну купюру в 100 у.е. у продавца не было сдачи, и он разменял эту купюру в соседнем...
dzhele19
24.07.2022 05:34
Решите линейное уравнение: -4(x+2)+3(x-1)=4(x-2)+9...
Doshik131
04.02.2021 14:31
Определите стиль речи: «Термин «микрочастица» образован от греческого слова mikros (малый) и русского слова «частица» (доля). В современном языке он обозначает очень малые...
Помощниица1
04.02.2021 14:31
Что продавали и покупали финикийцы (записать только согласными буквами) без гласных...
yfjfufnfkdm
04.02.2021 14:31
Найди соответствие между Классом животного и его признаками и запиши обозначающие их буквы (в алфавитном порядке, без пробелов). Насекомые — . Ракообразные — . А — дышат...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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