Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
javajaaripo
16.04.2020 06:02 •
Информатика
Написать программу в vba (visual basic) 1)напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b пользователем). 2)найти все делители числа 1204. большое
Ответ:
Vafelka471
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 оценок)
Популярные вопросы: Информатика
Kskdnrntbrjdjdk
28.05.2023 17:10
Составьте программу ввода элементов массива a[1..15] с клавиатуры и вывода на экран элементов со значениями кратными 5...
koi4
28.05.2023 17:10
Дано десятичное число 364. при переводе данного числа в систему счисления х в записи этого числа младшим разрядом оказалась цифра 4. для скольких систем счисления...
Rosa386433
28.05.2023 17:10
Дан массив натуральных чисел из пяти элементов найти наибольший элемент . люди выручайте...
MCKiri4PrO
28.04.2020 06:26
Перевести целое число из десятичной в шестндцатеричную систему счисления число 266...
lenokm050406
28.04.2020 06:26
Даны целые числа a и b и n. требуется найти количество целых чисел х таких, что 0 =x n и число a*x при делении на n дает остаток b....
ivangregori32p08irj
21.09.2022 09:24
На паскале нужно сделать: найти количество четных чисел в диапазоне от a до b; поменять местами значение переменных a и b 70 !...
юсуф37
01.10.2022 04:47
Сколько единиц в двоичной записи десятичного числа 519? 1) 5. 2) 2. 3) 3. 4) 4....
armate
13.02.2022 12:11
Обменять значения в переменных языка Паскаль x[4] и y^[3]; при выборке значения из массива y^ используйте команду XLAT....
nikitakondrate1
12.02.2020 02:30
10. Как записывается оператор вывода? а. writeln(a1,a2,...an); б. readkey(a1,a2,...an); в...
сартоваа
03.10.2020 15:23
Чему равен корень числа пи...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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)