Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sharonova71
05.06.2020 03:07 •
Информатика
Написать программу в vba (visual basic) 1)напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b пользователем). 2)найти все делители числа 1204. большое
Показать ответ
Ответ:
owl42
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 оценок)
Популярные вопросы: Информатика
Вундеркингsd
24.11.2021 06:27
Как можно расшифровать слово [email protected]#@!...
Джарият111
28.02.2022 02:40
С СОРОМ ДАМ 5 ЗВЁЗД, ЛУЧШИЙ ОТВЕТ, СЕРДЕЧКО И...
kura2165
17.03.2021 09:30
Сделайте под буквой а) , ж) , и) БЫСТРЕЙ...
sofia20015
10.04.2021 04:30
Дана табличка n × n, в клетках которой записаны натуральные числа от 1 до 109. Существует ли путь из клетки (1, 1) в клетку (n, n) такой, что НОД чисел на этом...
амаикем
01.07.2020 17:45
Дана квадратная матрица порядка m. заменить нулями элементы матрицы, лежащие выше побочной диагонали.как делает на delhpi...
Yurgent
02.07.2020 04:14
Укажите основные проблемы возникающие при создании и введении баз !...
dimaolegon96
12.06.2022 06:03
Завдання 1 . проект акваріум створити проект в середовищі scratch : - рибки рухаються випадковим переміщенням; - восьминіг міняє колір; - рак бігає по дну - зберегти...
YAKOT1
26.03.2020 18:50
Подешь определить с: слова: синем (в небе синем) звезды синие(звезды синие зажег) ветви синий(ветви синий иней) иней снежок буду с:...
Andrey346563545
26.03.2020 18:50
Снужно составить рассказ о своем крае где ты живешь город или село район область республика что ты называешь своим родным краем составь краткое описание своего...
bulavka8
26.03.2020 18:50
Дом моей мечты на напишите или завтра поставят 2 а я не могу придумать короткое рассказ наприсер 10 предложений с перевод и пишите по легче я в 5классе тема : my...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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)