Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Mariaaglotkova
04.06.2022 01:45 •
Информатика
Написать программу в vba (visual basic) 1)напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b пользователем). 2)найти все делители числа 1204. большое
Показать ответ
Ответ:
kachanovskiyge
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 оценок)
Популярные вопросы: Информатика
olgagavrikova31
09.01.2022 19:19
Интернет желысынын адам психикасына асеры бар ма...
AnnGo9909
14.10.2022 20:45
Составьте блок схему линейного алгоритма (9 класс)...
терминатор43
03.07.2022 02:39
Информационный объем текста, набранного на компьютере, гдекаждый символ кодируется 2 байтами - равен 4Кб. Определитеколичество символов в тексте.204810244096512256о512o256...
MR3AlI
03.06.2020 06:08
Что такое Панель задач? ...
mishka1113
11.01.2023 01:20
В некотором натуральном четырехзначном числе содержится не менее двух четных цифр и не менее трех цифр, которые меньше 8. Найдите наибольшее из таких чисел....
mikityuk03
25.03.2023 16:42
512000 байтта неше килобайт бар?...
AnnaGlyuza0436
15.06.2022 19:49
1) 10012 переведите в восьмеричную и шестнадцатеричную системы счисления. 2) 10110102 переведите в восьмеричную и шестнадцатеричную системы счисления. 3) 110112 переведите...
Roland227
15.06.2022 19:49
Травля, оскорбления или угрозы с средств электроннойкоммуникации этокибербуллингфишингСПамтроллинг...
datskivvera1
27.01.2020 08:56
1. Устно расскажите о действиях по созданию папки. 2. Почему нельзя создавать папки или файлы с одинаковым на-ananem?3. Как создаются новые файлы?4. Содайте на рабочем столе...
Masha04131
03.09.2022 14:46
Организация вычисления...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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)