Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vikadmitrieva5
28.05.2020 21:28 •
Информатика
Написать программу в vba в access : написать программу, вычисляющую значение функции y, если y=2a+x2 при x> 0 y=3b+3a при x=0 y=sinx+a при x< 0
Показать ответ
Ответ:
Эноа
28.06.2020 22:11
Sub F()
Dim a As Double, b As Double, x As Double, y As Double
a = InputBox("Введите a")
b = InputBox("Введите b")
x = InputBox("Введите x")
If x > 0 Then y = 2*a + x*x
If x = 0 Then y = 3*b + 3*a
If x < 0 Then y = Sin(x) + a
MsgBox (y)
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
artemyaros2005oxkd2q
31.01.2022 03:08
Зробити електронну таблицю, в якій виконано завдання. Виробник випускає цукерки трьох видів. Відомо, що реалізація 1 кг цукерок “Червоний мак” дає прибуток 9 гривень, “Білочка” –...
cernyshova
21.03.2020 04:04
Зробити електронну таблицю, в якій виконано завдання. З квадратного аркуша стороною 45 потрібно виготовити відкриту коробку, вирізавши по кутах квадратики і загнувши краї, що утворились....
varich83
13.01.2020 23:53
Зробити електронну таблицю, в якій виконано завдання. Є 4 предмета, кожен з яких характеризується вагою та ціною. Слід вибрати такі з них і стільки, щоб їх загальна вага не перевищувала...
MariaSet010203
21.02.2020 04:41
Зробити електронну таблицю, в якій виконано завдання. Бурова вишка знаходиться за 9 км від шосе. З неї потрібно направити гінця в місто, що розташоване за 15 км далі по шосе. Велосипедист...
aminoshkina
21.06.2021 20:47
Зробити електронну таблицю, в якій виконано завдання. Для виготовлення однієї книжкової полички потрібно 5 дошок довжиною 70 см та 3 дошки довжиною 80 см.У цех постачаються дошки...
aminyl
19.04.2021 21:17
Зробити електронну таблицю, в якій виконано завдання. Якого розміру має бути відкритий бак у формі прямокутного паралелепіпеда з об’ємом 13,5 м3, щоб на його виготовлення йшло якомога...
petrovakat2003
02.08.2022 16:35
Какие слова надо писать на JavaScript что бы вышел такой текст: • Астана является столицей Казахстана. • По состоянию на 1 апреля 2014 года население города достигло 818 330 человек....
Аккаунт удален
25.05.2020 17:54
Таблица степеней двойки, которая показывает, сколько информации можно закодировать с бит. Заполни таблицу.i l 1 l 7N=2i l ? l ?...
Василий300
24.01.2022 17:54
Задание № 5. 1. Запустить текстовый редактор Word командой [Программы-Microsoft Word].2. Ввести команду [Вставка-Символ...]. На экране появится диалоговая панель Символ Центральную...
SlavaArt
03.06.2022 08:00
Диагонали в трапеции abcd перпендикулярна стороне ab и углу bad 40градусов.пологая что меньшее основание трапеции равно её второй боковой стороне, найдите другие углы трапеции....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Dim a As Double, b As Double, x As Double, y As Double
a = InputBox("Введите a")
b = InputBox("Введите b")
x = InputBox("Введите x")
If x > 0 Then y = 2*a + x*x
If x = 0 Then y = 3*b + 3*a
If x < 0 Then y = Sin(x) + a
MsgBox (y)
End Sub