Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
urasaya
06.03.2023 20:52 •
Информатика
Написать программу в vba (visual basic) 1)напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b пользователем). 2)найти все делители числа 1204. большое
Ответ:
анастейша1410
01.10.2020 13:34
' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)
0,0
(0 оценок)
Популярные вопросы: Информатика
stikmanov
27.10.2021 11:13
Русалочка нашла на затоновшем корабле N золотых монет. Она разложила их в ряд и любуется *_*С клавиатуры вводится ценность каждой монеты.Выведите порядковый номер...
Тосямдр
15.08.2020 16:08
Что представляет собой таблица ?В каких случаях используют? информатика...
gladchenko77
03.10.2020 16:48
Какое название не является элементом управления в диалоговом окне...
chekirisalina
29.06.2022 23:52
Составьте программу, которая организует ввод массива a 1..10 с клавиатуры, за тем переобразовывает массив, заменяя все отрицательные элементы их модулями....
pakskina77p0byhm
26.11.2022 14:50
Сообщение, записанное буквами 8 символьного алфавита содержит 80 символов. какой объём информации оно несёт? надоо...
Kharin86
01.08.2021 15:28
Нужны ли сегодня сочувствие, сострадание. план 1.тезис.2аргумент. 3вывод...
gfsfsdcxz
01.08.2021 15:28
Два пешехода вышли одновременно навстречу друг другу из двух всё а и б. первый прибыл в б через 32 минуты после встречи, а второй прибыл через 50 минут после встречи....
Kukushka2281337
01.08.2021 15:28
Асхат задумал число. это задуманное число он умножил на (-7) затем к полученному произведению прибавил 15,7 и в результате получил число (-11,6). какое число задумал...
sasapanskov
01.08.2021 15:28
Ребро куба равно 5 см. найдите площадь куба...
polli11092002
01.08.2021 15:28
Составте транскрипцию к слову беречь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)