tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в vba
Написать программу в vba (visual basic) 1)напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b пользователем). 2)найти все делители числа 1204. большое
1nVictUS
2 28.05.2019 15:30
5
Ответы
БлэккКээт
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)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vhidfhv132
02.04.2020 10:26
Определите значение переменной а после выполнения алгоритма: Алгоритм a:= 9; b:=4; a:=sqrt(a*b) + 5= a:=sqr(a) ....
Utugav
02.04.2020 10:27
Як написати програму підпису диплома у пайтон?...
69Unicorn69
02.04.2020 10:28
выполните трассировочную таблицу выполнения данной программы...
emilgasanov
02.04.2020 10:29
Решите ребус (+фото) _ _ _ _ о _ _ _ _ В ответе запишите только одно слово....
UTOYKA228
15.05.2020 10:56
Какую кнопку необходимо использовать для придания объема фигуре в sketch up...
Vitaliano2004
15.05.2020 10:56
Составьте блок-схему алгоритма нахождения суммы шести чисел, первое из которых равно 100, а каждое из пяти следующих в 5 раз меньше предыдущего. Исполните алгоритм....
ViolettaBazarova
15.05.2020 11:06
Ученик решает задачу нахождения периметра прямоугольника. Определите входные и выходные данные это...
ritosha002
15.05.2020 11:07
2. Оқушылар Интернеттен алынған ақпараттың авторын анықтай алмады. Құжаттың көшірме еместігін дәлелдеу әрекетін көрсетіңіз...
никита3427
15.05.2020 11:07
с икт буду очень благодарен...
Валериевич
22.04.2020 21:09
Как убить мотемотичьку через экран компьютера без следов?...
Популярные вопросы
Найдите координаты середины отрезка а)AB если A(1;2;3) и B(-1;0;1); б)CD если...
2
Что увеличить территорию корень из Римен...
3
это дз. казахский язык 6 класс....
2
ответить на во по рассказу Рыцарь Вася 1)Почему Димка Ковалёв не полез спать...
2
Какие положения Соборного уложения 1649 года усилили закрепощение крестьян?...
1
Объясните каким образом человек умелый создавал свои орудия трударыми древние...
2
1.Рим и Карфаген - две военные державы Сравните армии Рима и Карфагена В чем...
2
Укажите допустимые значения переменной в выражении ...
1
Наибольшее натуральное число которое делится без остатка на числа А и б очень...
2
Завжди працюю над почуттями,що закінчити речення...
2
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)