Пусть в диапазоне А1:A100 записаны произвольные числа.
Для подсчета количества положительных чисел заданного диапазона в Excel верной является функция:
=СЧЁТЕСЛИ(A1:A100;">0")
=СЧЁТЕСЛИ(">0";A1:A100)
=СЧЁТ(A1:A100;">0")
=СЧЁТЕСЛИ(A1:A100;">0";А1:А100)
=СЧЁТЕСЛИ("<0";A1:A100)
Ответ: =СЧЁТЕСЛИ(A1:A100;">0")
14. Записать в ячейку H1 Лист 1 книги "Данные к тесту" формулу массивов с использованием соответствующих функций для вычисления суммы четных чисел диапазона A1:E100 и полученный результат поместить в ответ теста.
Решение: =СУММ(ЕСЛИ(ОСТАТ(A1:E100;2)=0;A1:E100)) и нажимаем Ctrl+Shift+Enter
Ответ: 4534
15 .В ячейках A1, B1, C1 Листа 1 книги "Данные к тесту" записаны коэффициенты квадратного уравнения a, b, с соответственно. Используя функцию ЕСЛИ для проверки дискриминанта, записать в ячейку G10 формулу для вычисления меньшего корня уравнения, если корни существуют, в противном случае записать символ "-" (минус), и полученный в ячейке результат поместить в ответ теста.
Решение: х1: =ЕСЛИ((B1^2-4*A1*C1)>=0;(-B1+КОРЕНЬ(B1^2-4*A1*C1))/(2*A1);"Нет корней") ответ: 3
х2:: =ЕСЛИ((B1^2-4*A1*C1)>=0;(-B1-КОРЕНЬ(B1^2-4*A1*C1))/(2*A1);"Нет корней")
ответ:1
ну и очевидно, что минимальный корень равен 1
Ответ: 1
Б) В ячейку G4 Лист 1 книги "Данные к тесту" записать функцию (выражение функций) для вычисления среднее арифметическое наибольшего и наименьшего значения заданных чисел диапазона A1:E100 Лист 1 книги "Данные к тесту" и полученный результат записать в ответ теста. Дробную часть числа от целой отделять запятой.
|
|
Решение: =СРЗНАЧ(НАИМЕНЬШИЙ(A1:E100;1);НАИБОЛЬШИЙ(A1:E100;1))
Ответ: 308,5
В) В ячейку G4 Лист 1 книги "Данные к тесту" записать функцию (выражение функций) для вычисления суммы двух наименьших чисел диапазона A1:E100 Лист 1 книги "Данные к тесту" и полученный результат записать в ответ теста.
Решение: =СУММ(НАИМЕНЬШИЙ(A1:E100;1);НАИМЕНЬШИЙ(A1:E100;2))
Ответ:- 228
Б) В ячейку G7 Листа 1 книги "Данные к тесту" записать формулу массивов для вычисления сумму абсолютных значений (без учета знака) чисел диапазона A1:E10 этого же листа и полученный результат записать в ответ теста.
Решение: =СУММ(ABS(A1:E10)) и нажимаем Ctrl+Shift+Enter
В) В ячейку G7 Листа 1 книги "Данные к тесту" записать формулу массивов для вычисления сумму абсолютных значений (без учета знака) чисел диапазона B49:D53 этого же листа и полученный результат записать в ответ теста.
Решение: =СУММ(ABS(B49:D53)) и нажимаем Ctrl+Shift+Enter
Ответ:174
9.А) Записать в ячейку H1 Лист 1 книги "Данные к тесту" формулу массивов с использованием соответствующих функций для вычисления суммы четных чисел диапазона A1:E100 и полученный результат поместить в ответ теста.
|
|
Решение: =СУММ(ЕСЛИ(ОСТАТ(A1:E100;2)=0;A1:E100)) и нажимаем Ctrl+Shift+Enter
Ответ: 4534
Б) Записать в ячейку H2 Лист 1 книги "Данные к тесту" формулу массивов с использованием соответствующих функций для вычисления количества четных отрицательных чисел диапазона A1:E100 и полученный результат поместить в ответ теста.
Решение: =СЧЁТ(ЕСЛИ((ОСТАТ(A1:E100;2)=0)*(A1:E100<0);A1:E100;0)) и нажимаем Ctrl+Shift+Enter
Ответ:500
В) Записать в ячейку H1 Лист 1 книги "Данные к тесту" формулу массивов с использованием соответствующих функций для вычисления количества не четных чисел диапазона A1:E100 и полученный результат поместить в ответ теста.
Решение: =СЧЁТ(ЕСЛИ(ОСТАТ(A1:E100;2)<>0;A1:E100)) и нажимаем Ctrl+Shift+Enter
Ответ:230
Б) В ячейках A1, B1, C1 Листа 1 книги "Данные к тесту" записаны коэффициенты квадратного уравнения a, b, с соответственно. Используя функцию ЕСЛИ для проверки дискриминанта, записать в ячейку G10 формулу для вычисления разности между большим и меньшим корнем уравнения, если они существуют, в противном случае записать символ "-" (минус), и полученный в ячейке результат поместить в ответ теста.
Решение:: х1: =ЕСЛИ((B1^2-4*A1*C1)>=0;(-B1+КОРЕНЬ(B1^2-4*A1*C1))/(2*A1);"Нет корней") ответ: 3
|
|
х2:: =ЕСЛИ((B1^2-4*A1*C1)>=0;(-B1-КОРЕНЬ(B1^2-4*A1*C1))/(2*A1);"Нет корней")
ответ:1
Ответ:- 2
19. В ячейке задан следующий пользовательский формат: 0000. Как будет отображаться в нем число 25.
1.2500 2.25 3.0025 4.25,00 Отве т:3
В) В ячейках A1, A2, A3 Листа 1 книги "Данные к тесту" записаны коэффициенты квадратного уравнения a, b, с соответственно. Используя функцию ЕСЛИ для проверки дискриминанта, записать в ячейку G10 формулы для вычисления суммы корней уравнения, если они существуют, в противном случае записать символ "-" (минус), и полученный в ячейке результат поместить в ответ теста.
Решение:: х1: =ЕСЛИ((B1^2-4*A1*C1)>=0;(-B1+КОРЕНЬ(B1^2-4*A1*C1))/(2*A1);"Нет корней") ответ: 3
х2:: =ЕСЛИ((B1^2-4*A1*C1)>=0;(-B1-КОРЕНЬ(B1^2-4*A1*C1))/(2*A1);"Нет корней")
ответ:1
Ответ: 3+1=4
Какое значение возвратит заданная в Excel функция =СЕГОДНЯ("10.11.12") |
ошибка в формуле |
11. А) В книге Excel "Данные к тесту" на листе 7 постройте таблицу и график функции y=Sin(x) + x на интервале от -2 до 3 с шагом 0,25. В свободную ячейку листа введите функцию для вычисления суммарного значение всех табличных значений Y функций во всех точках заданного интервала. Полученный результат, округленный до целых, введите в ответ теста.
|
|
Решение: в ячейку А1 написать число -2, затем выделяем диапазон А1:U1 и нажимаем Правка-Заполнить…-Прогрессия, устанавливаем шаг 0,25,ок. В ячейку А2 пишем формулу =SIN(A1)+A1
и размножим на диапазоне А2:U2. Затем пишем в свободную ячейку формулу =ОКРУГЛ(СУММ(A2:U2);0)
Ответ: 12
Б) В книге Excel "Данные к тесту" на листе 7 постройте таблицу и график функции y=Sin(x) + x на интервале от -3 до 3 с шагом 0,25. В свободную ячейку листа введите функцию для вычисления суммарного значение всех табличных значений Y функций во всех точках заданного интервала. Полученный результат, округленный до целых, введите в ответ теста.
Решение: в ячейку А1 написать число -3, затем выделяем диапазон А1:Y1 и нажимаем Правка-Заполнить…-Прогрессия, устанавливаем шаг 0,25,ок. В ячейку А2 пишем формулу =SIN(A1)+A1 и размножим на диапазоне А2:Y2. Затем пишем в свободную ячейку формулу =ОКРУГЛ(СУММ(A2:Y2);0)
Ответ: 0
12 Расход фирмы в 2005 году составил 1000 $. Ежегодно расход уменьшался на 3% по сравнению с предыдущим годом. Определить в ячейке C2 Листа 5 книги "Данные к тесту" расход фирмы за 2009 год и записать этот результат, округленный до целых, в ответ теста
Решение: в ячейку А1 написать число 2005, затем выделяем диапазон А1:А5 и нажимаем Правка-Заполнить…-Прогрессия, устанавливаем шаг 1,ок. В ячейку В1 пишем 1000, затем в В2 пишем формулу =B1*(1-3/100) и размножаем по одному году, т.е. в В3 формула должна быть =B2*(1-3/100), а в В4 формула =B3*(1-3/100), в В5 - =ОКРУГЛ(B4*(1-3/100);0)
Ответ:885
13 В ячеку W3 Листа 3 книги "Данные к тесту" записать функцию которая возвратит фамилию участника олимпиады из списка "Участники олимпиады", который набрал максимальный балл во втором туре. Фамилию участника введите в ответ теста.
Решение: =ИНДЕКС(B3:B174;ПОИСКПОЗ(МАКС(U3:U174);U3:U174;0))
Ответ: Козел
18. Функция ПОИСКПОЗ в Excel:
1.Возвращает относительное положение элемента указанного массива, который соответствует указанному значению в указанном порядке.
2.Возвращает значение элемента указанного массива, который соответствует указанному порядковому в указанном массиве.
3.Возвращает значение ИСТИНА, если заданный элемент содержится в указанном массиве
4.Возвращает значение ЛОЖЬ, если заданный элемент содержится в указанном массиве.
Ответ:1
Для нахождения наименьшего значения в диапазоне A1:A100 может быть применены функции Excel |
=МИН(А1,А100) |
=МИН(А1:А100) |
=МИН(А1;А100) |
=НАИМЕНЬШИЙ(A1:A100;1) |
=НАИМЕНЬШИЙ(A1:A100;2) |
Все функции верны |
В Excel текстовая функция ПСТР предназначена для |
определения длины заданной текстовой строки |
выделения подстроки из заданной текстовой строки |
удаления лишних пробелов из заданной строки |
Какое значение возвратит вызванная в Excel функция =ЕСЛИ(A1>A2;1;2), при условии, что в ячейке A1 содержится дата 11.10.2009, а в A2 содержится дата 10.11.2009 |
2!!! |
ошибка в формуле |
21.Укажите верно записанные функции для суммирования положительных чисел диапазона А1:А20 в Excel: |
1.=СУММЕСЛИ(А1:А20;">0";A1:A20) |
2.=СУММЕСЛИ(">0";A1:A20) |
3.=СУММЕСЛИ(А1:А20;">0") |
4.{=СУММ(ЕСЛИ(А1:А20>0;A1:A20;0))} |
5.=СУММ(ЕСЛИ(А1:А20>0;A1:A20;0)) Ответы:1,3,4 |
22.Функция Excel TDATA() возвращает |
1.текущую дату в формате Дата |
2.текущее время в формате Время |
3.текущее время и дату в формате Время-Дата |
4.текущую дату в текстовом формате Ответ:3 |
23.Для проверки на равенство трех чисел, записанных в ячейках А1, А2 и А3, и возврата значения "числа равны", верными являются функции Excel: |
1.=ЕСЛИ(А1=А2=А3;"числа равны";"чила не равны") |
2.=ЕСЛИ((А1=А2)*(А1=А3);"числа равны";"чила не равны") |
3.=ЕСЛИ(И(А1=А2;А1=А3);"числа равны";"чила не равны") |
4.=ЕСЛИ((А1=А2;А2=А3);"числа равны";"чила не равны") |
5.все варианты верны Ответ:2,3 |
24.Для нахождения наименьшего значения в диапазоне A1:A100 неверными являются функции Excel |
1.=МИН(А1,А100) |
2.=МИН(А1:А100) |
3.=МИН(А1;А100) |
4.=НАИМЕНЬШИЙ(A1:A100;1) |
5.=НАИМЕНЬШИЙ(A1:A100;2) Ответы:2,4,5 |
25.Пусть в ячейке A1 располагается произвольный текст. Какое значение возвратит следующая комбинация функций Excel =ДЛСТР(ПОДСТАВИТЬ(А1;"a";"b") |
1.длину строки, записанной в ячейке A1 |
2.количество символов "а" в строке, записанной в ячейке A1 |
3.количество символов "b" в строке, записанной в ячейке A1 |
4.количество символов "а" и "b" в строке, записанной в ячейке A1 Ответ:1 |
Функция ПОИСКПОЗ в Excel |
Возвращает относительное положение элемента указанного массива, который соответствует указанному значению в указанном порядке. |
Возвращает значение элемента указанного массива, который соответствует указанному порядковому в указанном массиве. |
Возвращает значение ИСТИНА, если заданный элемент содержится в указанном массиве. |
Возвращает значение ЛОЖЬ, если заданный элемент содержится в указанном массиве. |
Отформатированная ячейка пользовательским форматом вида[Красный]0;[Зеленый]0;[Желтый]0;[Синий]@ обеспечивает вывод текста в ячейке |
красным цветом |
зеленым цветом |
желтым цветом |
синим цветом |
черным |
Укажите верно записанные функции Excel для суммирования отрицательных чисел диапазона А1:А20: |
=СУММЕСЛИ(А1:А20;"<0") |
=CУММЕСЛИ("<0";A1:A20) |
=CЧЁТЕСЛИ(А1:А20;"<0") |
{=СУММ(ЕСЛИ(А1:А20<0;A1:A20;0))} |
=СУММ(ЕСЛИ(А1:А20<0;A1:A20;0)) |
=СУММ(ЕСЛИ(А1:А20<0;1;0)) |
Ответ: 790
Ответ: 8
Ответ: 43
Ответ: 15
Ответ: 9
Ответ: 300
Ответ: 2488320
Ответ: 17
Ответ: 702239
Ответ: 845
Ответ: -0,42
Ответ: 2
Ответ: 18412
Ответ: 150
Ответ: 2112
Ответ: 1155
Acceess
В БД "Фрукты КТ" из вспомогательного материала к тесту, создайте запрос для получения количества заказов из таблицы Описание заказов с суммой, превышающей среднюю стоимость всех имеющихся заказов в таблице Описания заказов. Полученное в запросе число введите в ответ теста. | Рассчитываем ср стоимость: 1)Выбираем таблицы: покупатели, заказы, описание заказов, наборы. Из покупателей берем город, код покупателя. Из заказы код покупателя. Составляем выражение: Стоимость:Sum([Наборы]![Цена]*[Опиcания заказов]![Количеcтво]) 2)считаем в новом запросе ср стоимость (Avg) 3) созд новый запрос и делаем выражение Выражение1: Sum([стоимость всех заказов]![Стоимость]=>[средняя всех заказов]![Avg-Стоимость]) |
В БД "Фрукты КТ" из вспомогательного материала к тесту, постройте расширенный фильтр для получения информации в таблицеФрукты о фруктах категорий "Свежие", названия которых начинается на букву "а" и все "В шоколаде". Количество отобранных по фильтру записей введите в ответ теста. | Обычный фильтр |
В БД "Фрукты КT" из вспомогательного материала к тесту, создайте запрос для вывода общего количества заказов, сделанных покупателями из Белоруссии и России. Полученное в запросе число введите в ответ теста. | 1) создаем запрос выбираем таблицы: покупатели, заказы, описание заказов, наборы. От покупателей берем страна, из заказы-код заказа и в условии отбора пишем «Белорусь» or «Россия»(или в два поля программа сама поставит кавычки) |
В БД "Фрукты КТ" из вспомогательного материала к тесту, создайте запрос для расчета средней стоимости заказов для покупателей из Киева. Полученное в запросе целое число введите в ответ теста. | 1)Выбираем таблицы: покупатели, заказы, описание заказов, наборы. Из покупателей берем город, код покупателя. Из заказы код покупателя. Составляем выражение: Стоимость:Sum([Наборы]![Цена]*[Опиcания заказов]![Количеcтво]) В условии отбора пишем Киев 2) создаем еще один запрос и находим ср стоимость |
В БД "Фрукты КТ" из вспомогательного материала к тесту, создайте запрос для нахождения количества покупателей из города Магадана, не сделавших ни одного заказа. Полученное в запросе число введите в ответ теста. | 1)создаем запрос в нем берем табл. Покупатели, из табл. Страна и код покупателя в условия отбора пишем Магадан 2)соз еще один запрос в нем берем наш 1-ый запрос и берем код покупателя, групповые операции count |
В БД "Фрукты КT" из вспомогательного материала к тесту, создайте запрос для получения суммы денег, выплаченной за все заказы покупателями из Санкт-Петербурга. Полученное в запросе число введите в ответ теста. | 1)Выбираем таблицы: покупатели, заказы, описание заказов, наборы. Из покупателей-город, заказы- код заказа, Делаем выражение Стоимость:Sum([Наборы]![Цена]*[Опиcания заказов]![Количеcтво]) 2) делаем второй запрос из 1-го запроса берем стоимость(выражение) гр операция sum |
В БД "Фрукты КТ" из вспомогательного материала к тесту, отсортируйте таблицу "Покупатели" в алфавитном порядке названия городов, а среди городов - в алфавитном порядке по Адресам. Номер записи, содержащую адрес "г. Кострома, Главная, 1-19", после сортировки, введите в ответ теста. | Сортируем и ищем |
В БД "Фрукты КТ" из вспомогательного материала к тесту, создайте запрос для определения названия Города из Белоруссии, покупатели которого заплатили 2100 рублей. Полученный в запросе город с большой буквы введите в ответ теста. | Делаем обычный запрос как и раньше с городами и ценами и в условие отбора пишем =2100 |
В БД "Фрукты КТ" из вспомогательного материала к тесту, создайте запрос для вывода количества покупателей однофамильцев (общее количество человек, у которых имеются одинаковые фамилии, но разные имена). Полученное в запросе число введите в ответ теста. | Нажимаем создать-повторяющиеся записи-из таблицы покупатели- фамилия-имя |
В БД "Фрукты КТ" из вспомогательного материала к тесту, создайте запрос для определения Фамилии покупателя, который заплатил максимальную сумму денег за заказы. Полученную в запросе Фамилию(с большой буквы) введите в ответ теста. | Рассчитываем ср стоимость: 1)Выбираем таблицы: покупатели, заказы, описание заказов, наборы. Из покупателей берем город, код покупателя. Из заказы код покупателя. Составляем выражение: Стоимость:Sum([Наборы]![Цена]*[Опиcания заказов]![Количеcтво]) 3)создаем запрос к 1-му берем стоимость(выражение) гр операции Max |
fun1_1
1)В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun1_1 (вставьте нужные операторы в загововки уже созданной функции), которая вычисляет выражение по формуле:
1-x^2
fun1_1 = ----------
2 - 3x
На листе 1 книги выполните функцию и полученное в ячейке B4 значение введите в ответ теста. Дробная часть числа от целой отделяется запятой. Правильно 1 / 1
Решение:
Public Function fun1_1(x)
fun1_1 = (1 - x ^ 2) / (2 - 3 * x)
End Function
2) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию в модуле 1 с именем fun1_1 на VBA (вставьте нужные операторы в загововки уже созданной функции), которая вычисляет выражение по формуле:
(2x+1)^2
fun1_1 = ------------ - (x+2)^3
x+1
На листе 1 книги выполните функцию и полученное в ячейке B4 значение введите в ответ теста.
Правильно 1 / 1
Решение:
Public Function fun1_1(x As Double) As Double
fun1_1 = (((2 * x + 1) ^ 2) / (x + 1)) - ((x + 2) ^ 3)
End Function
3) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию в модуле 1 с именем fun1_1 на VBA (вставьте нужные операторы в загововки уже созданной функции), которая вычисляет выражение по формуле:
(2x+1)^2
fun1_1 = ------------ - (x+2)^3
x+1
На листе 1 книги выполните функцию и полученное в ячейке B4 значение введите в ответ теста.
Решение:
Public Function fun1_1(x As Double) As Double
fun1_1 = (((2 * x + 1) ^ 2) / (x + 1)) - ((x + 2) ^ 3)
End Function
fun2
В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию в модуле 1 с именем fun2 на VBA (вставьте нужные операторы в загововки уже созданной функции), которая вычисляет выражение по формуле: если x больше 0, то fun2=(1-2x)/(2+x), иначе fun2=Sin(3x)-1
На листе 1 книги выполните функцию и полученное в ячейке B5 значение, округленное до сотых, введите в ответ теста. Дробная часть числа от целой отделяется запятой.
Решение:
Public Function fun2(x As Double) As Double
If x > 0 Then
fun2 = (1 - 2 * x) / (2 + x)
Else
fun2 = Sin(x) * 3 - 1
End If
End Function
Ответ: -1,69
Fun3
1)В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3_1 для нахождения из трех произвольных чисел A, B, C суммы двух найбольших чисел.
Заголовок функции, который должен иметь вид: Function fun3_1(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B6 значение введите в ответ теста.
Правильно 1 / 1
Public Function fun3_1(a, b, c)
If a < b Then
fun3_1 = c + b
Else
If b < c Then
fun3_1 = c + a
Else
fun3_1 = b + a
End If
End If
End Function
2) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3_1 для нахождения из трех произвольных чисел A, B, C суммы двух найбольших чисел.
Заголовок функции, который должен иметь вид: Function fun3_1(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B6 значение введите в ответ теста.
Решение:
Public Function fun3_1(a, b, c)
If a < b Then
fun3_1 = c + b
Else
If b < c Then
fun3_1 = c + a
Else
fun3_1 = b + a
End If
End If
End Function
3) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения минимального произведения двух чисел из трех произвольных чисел A, B, C.
Заголовок функции, который должен иметь вид: Function fun3(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B6 значение введите в ответ теста.
Решение:
Public Function fun3(a As Double, b As Double, c As Double) As Double
If a < c And b < c Then
fun3 = a * b
Else
If b < a And c < a Then
fun3 = b * c
Else
fun3 = a * c
End If
End If
End Function
4) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения из трех произвольных чисел A, B, C, задающих длины сторон треугольника, площади треугольника, если треугольник существует, в противном случае функция должна возвратить значение -1.
Заголовок функции, который должен иметь вид: Function fun3(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B6 значение введите в ответ теста.
Решение:
Public Function fun3(a As Double, b As Double, c As Double) As Double
Dim p As Double
p = (a + b + c) / 2
If b + c > a And c + a > b And a + b > c Then
fun3 = (p * (p - a) * (p - b) * (p - c)) ^ 0.5
Else
fun3 = -1
End If
End Function
5) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения из трех произвольных чисел A, B, C, задающих длины сторон треугольника, самую длинную сторону, если треугольник существует, в противном случае функция должна возвратить значение -3.
Заголовок функции, который должен иметь вид: Function fun3(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B6 значение введите в ответ теста.
Решение:
Public Function fun3(a As Double, b As Double, c As Double) As Double
Dim m As Double
If b + c > a And c + a > b And a + b > c Then
If a > b Then
m = a
Else
m = b
End If
If c > m Then
fun3 = c
Else
fun3 = m
End If
Else
fun3 = -3
End If
End Function
6) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения из трех произвольных чисел A, B, C минимального значения.
Заголовок функции, который должен иметь вид: Function fun3(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B6 значение введите в ответ теста.
Решение:
Public Function fun3(a As Double, b As Double, c As Double)
Dim m As Double
If a < b Then
m = a
Else: m = b
End If
If c < m Then
fun3 = c
Else: fun3 = m
End If
End Function
Fun4
1) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=2^2-4^2+6^2-...+30^2.
Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B7 значение введите в ответ теста.
Решение:
Public Function fun4()
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 2
While i1 <= 30
s1 = s1 + i1 ^ 2
i1 = i1 + 4
Wend
s2 = 0
i2 = 4
While i2 <= 28
s2 = s2 + i2 ^ 2
i2 = i2 + 4
Wend
fun4 = s1 - s2
End Function
2)) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=2^2-3^2+4^2-...+20^2.
Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B7 значение введите в ответ теста.
Решение:
Public Function fun4()
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 2
While i1 <= 20
s1 = s1 + i1 ^ 2
i1 = i1 + 2
Wend
s2 = 0
i2 = 3
While i2 <= 19
s2 = s2 + i2 ^ 2
i2 = i2 + 2
Wend
fun4 = s1 - s2
End Function
3) 8) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=1-2^3+3^3-...-20^3.
Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B7 значение введите в ответ теста.
Решение:
Public Function fun4()
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 1
While i1 <= 19
s1 = s1 + i1 ^ 3
i1 = i1 + 2
Wend
s2 = 0
i2 = 2
While i2 <= 20
s2 = s2 + i2 ^ 3
i2 = i2 + 2
Wend
fun4 = s1 - s2
End Function
4) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=2^2-3^2+4^2-...+30^2.
Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B7 значение введите в ответ теста.
Решение:
Public Function fun4()
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 2
While i1 <= 30
s1 = s1 + i1 ^ 2
i1 = i1 + 2
Wend
s2 = 0
i2 = 3
While i2 <= 29
s2 = s2 + i2 ^ 2
i2 = i2 + 2
Wend
fun4 = s1 - s2
End Function
5) 10) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=1+2^2+3^2-...+25^2.
Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B7 значение введите в ответ теста.
Решение:
Public Function fun4()
Dim s As Double, i As Integer
s = 0
i = 1
While i <= 25
s = s + i ^ 2
i = i + 2
Wend
fun4 = s
End Function
Fun5
1) Решение:
Public Function fun5(n As Integer) As Integer
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 1
While i1 <= n
s1 = s1 + i1 ^ 3
i1 = i1 + 2
Wend
s2 = 0
i2 = 2
While i2 <= n
s2 = s2 + i2 ^ 3
i2 = i2 + 2
Wend
fun5 = s1 - s2
End Function
2) 12) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun5, которая вычисляет сумму S=1-2^2+3^2-...-n^2.
Заголовок функции, который должен иметь вид: Function fun5(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B8 значение введите в ответ теста.
Решение:
Public Function fun5(n As Integer) As Integer
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 1
While i1 <= n
s1 = s1 + i1 ^ 2
i1 = i1 + 2
Wend
s2 = 0
i2 = 2
While i2 <= n
s2 = s2 + i2 ^ 2
i2 = i2 + 2
Wend
fun5 = s1 - s2
End Function
3) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun5_1, которая вычисляет сумму S=1-2^3+3^3-...-n^3.
Заголовок функции, который должен иметь вид: Function fun5_1(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B8 значение введите в ответ теста.
Правильно 1 / 1
Решение:
Public Function fun5_1(N As Integer)
Dim s As Double
Dim i As Integer
Dim z As Integer
s = 0
z = 1
For i = 1 To N
s = s + z * (i ^ 3)
z = -z
Next i
fun5_1 = s
End Function
4) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun5, которая вычисляет сумму S=1-2^3+3^3-...-n^3.
Заголовок функции, который должен иметь вид: Function fun5(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B8 значение введите в ответ теста.
Решение:
Public Function fun5(n As Integer) As Integer
Dim s1 As Double, i1 As Integer, s2 As Double, i2 As Integer
s1 = 0
i1 = 1
While i1 <= n
s1 = s1 + i1 ^ 3
i1 = i1 + 2
Wend
s2 = 0
i2 = 2
While i2 <= n
s2 = s2 + i2 ^ 3
i2 = i2 + 2
Wend
fun5 = s1 - s2
End Function
Fun6
1) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun6, которая вычисляет сумму n первых натуральных чисел Фибоначчи.
Заголовок функции, который должен иметь вид: Function fun6(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B9 значение введите в ответ теста.
Решение:
Public Function fun6(n As Double) As Double
Dim s As Double, p As Integer, i As Integer, k As Integer
s = 0
p = 1
i = 1
For k = 1 To n
s = p + i
p = i
i = s
Next k
fun6 = s - 1
End Function
2) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun6, которая вычисляет сумму первых n простых чисел.
Заголовок функции, который должен иметь вид: Function fun6(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B9 значение введите в ответ теста.
Этап 1.
Public Function fun6(n As Integer) As Integer
Dim i As Integer, s As Integer
i = 2
k = 0
While k < n
If prost(i) Then
s = s + i '!!!
k = k + 1
End If
i = i + 1
Wend
fun6 = s
End Function
Создать еще Одину функцию prost
Public Function prost(ByVal n As Integer) As Boolean
Dim i As Integer
If n = 1 Then
prost = False
Else
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next
If i > Sqr(n) Then prost = True Else prost = False
End If
End Function
Fun7
1) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun7, которая вычисляет сумму квадратов цифр заданного числа n.
Заголовок функции, который должен иметь вид: Function fun7(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B10 значение введите в ответ теста.
Решение:
Public Function fun7(ByVal n As Long) As Double
n = Abs(n)
Dim p
p = 0
While n <> 0
p = p + (n Mod 10) ^ 2
n = n \ 10
Wend
fun7 = p
End Function
2) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun7, которая вычисляет произведение цифр заданного числа n.
Заголовок функции, который должен иметь вид: Function fun7(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B10 значение введите в ответ теста.
Решение:
Public Function fun7(ByVal n As Long) As Double
n = Abs(n)
Dim p
p = 0
While n <> 0
p = p *n Mod 10
n = n \ 10
Wend
fun7 = p
End Function
3) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun7_1, которая вычисляет количество простых чисел на отрезке [10..N].
Заголовок функции, который должен иметь вид: Function fun7_1(n), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B10 значение введите в ответ теста.
Решение:
Public Function fun7_1(n As Long)
Dim s As Long
Dim i As Long
Dim str As String
s = 0
str = 0
For i = 10 To n
For j = 1 To i
If i Mod j = 0 Then
s = s + 1
End If
Next j
If s = 2 Then str = str + 1
s = 0
Next i
fun7_1 = str
End Function
Fun8
1) В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun8_1, которая подсчитывает количество русских букв "а" и "е" в заданом тексте S.
Заголовок функции, который должен иметь вид: Function fun8_1(S As String), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B11 значение введите в ответ теста. Правильно 1 / 1
Решение:
Public Function fun8_1(s As String)
Dim i As Integer
Dim p As Integer
p = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "a" Then
p = p + 1
ElseIf Mid(s, i, 1) = "e" Then
p = p + 1
End If
Next i
fun8_1 = p
End Function
Fun9
1) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте функцию VBA с именем Fun9, которая в заданном диапазоне Листа Excel вычисляет количество четных чисел диапазона.
Заголовок функции, который должен иметь вид: Function fun9(A As Variant), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B12 значение введите в ответ теста.
Решение:
Public Function fun9(a As Variant) As Double
Dim s As Double, i As Variant
s = 0
For Each i In a
If i Mod 2 = 0 Then s = s + 1
Next i
fun9 = s
End Function
2) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте функцию VBA с именем Fun9, которая в заданном диапазоне Листа Excel вычисляет сумму положительных чисел диапазона.
Заголовок функции, который должен иметь вид: Function fun9(A As Variant), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B12 значение введите в ответ теста.
Решение:
Public Function fun9(a As Variant) As Double
Dim s As Double, i As Variant
s = 0
For Each i In a
If i > 0 Then s = s + i
Next i
fun9 = s
End Function
Ответ:25
3) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте функцию VBA с именем Fun9, которая в заданном диапазоне Листа Excel вычисляет количество положительных чисел диапазона.
Заголовок функции, который должен иметь вид: Function fun9(A As Variant), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B12 значение введите в ответ теста.
Решение:
Public Function fun9(a As Variant) As Double
Dim s As Double, i As Variant
s = 0
For Each i In a
If i > 0 Then s = s + 1
Next i
fun9 = s
End Function
Fun10
1)В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте функцию VBA с именем Fun10, которая в заданном диапазоне активного Листа Excel вычисляет сумму чисел, кратных заданному числу К.
Заголовок функции, который должен иметь вид: Function fun10(A As Variant, K), уже создан в модуле 1, необходимо только записать тело процедуры.
На листе 1 книги выполните функцию и полученное в ячейке B13 значение введите в ответ теста.
Решение:
Public Function fun10(a As Variant, k As Double)
Dim s As Double, i As Variant
c = 0
For Each i In a
If i Mod k = 0 Then s = s + i
Next i
fun10 = s
End Function
Proc1
1) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc1, которая в диапазоне K1:L4 активного Листа Excel находит наименьшее число. Результат процедура должна вернуть в ячейку B14.
Заголовок процедуры, который должен иметь вид: Procedure Proc1(), уже создан в модуле 2, необходимо только записать тело процедуры.
На листе 1 книги выполните подрограмму и полученное в ячейке B14 значение введите в ответ теста.
Решение:
Public Sub Proc1()
Dim a As Range, i As Variant, s As Double
Set a = Range("K1:L4")
Min = a(1, 1)
For Each i In a
If i < Min Then Min = i
Next i
Cells(14, 2).Value = Min
End Sub
Ответ: -2
2) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc1, которая в диапазоне K1:N4 активного Листа Excel вычисляет сумму отрицательных чисел. Результат процедура должна вернуть в ячейку B14.
Заголовок процедуры, который должен иметь вид: Procedure Proc1(), уже создан в модуле 2, необходимо только записать тело процедуры.
На листе 1 книги выполните подрограмму и полученное в ячейке B14 значение введите в ответ теста.
Решение:
Public Sub Proc1()
Dim a As Range, i As Variant, s As Double
Set a = Range("K1:N4")
s = 0
For Each i In a
If i < 0 Then s = s + i
Next i
Cells(14, 2).Value = s
End Sub
Ответ: -6
3) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc1, которая в диапазоне L1:R4 активного Листа Excel находит наибольшее число. Результат процедура должна вернуть в ячейку B14.
Заголовок процедуры, который должен иметь вид: Procedure Proc1(), уже создан в модуле 2, необходимо только записать тело процедуры.
На листе 1 книги выполните подрограмму и полученное в ячейке B14 значение введите в ответ теста.
Решение:
Public Sub Proc1()
Dim a As Range, i As Variant, s As Double
Set a = Range("L1:R4")
Max = a(1, 1)
For Each i In a
If i > Max Then Max = i
Next i
Cells(14, 2).Value = Max
End Sub
Proc2
1) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc2, которая в выделенном диапазоне активного Листа Excel вычисляет количество четных положительных чисел. Результат процедура должна вернуть в ячейку B15.
Заголовок процедуры, который должен иметь вид: Procedure Proc2(), уже создан в модуле 2, необходимо только записать тело процедуры.
На листе 1 книги выполните подрограмму и полученное в ячейке B15 значение введите в ответ теста.
Решение:
Public Sub Proc2()
Dim a As Range, i As Variant, s As Double
Set a = Selection
s = 0
For Each i In a
If i Mod 2 = 0 And i > 0 Then s = s + 1
Next i
Cells(15, 2).Value = s
End Sub
Ответ: 7
2) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc2, которая в выделенном диапазоне активного Листа Excel вычисляет сумму четных отрицательных чисел. Результат процедура должна вернуть в ячейку B15.
Заголовок процедуры, который должен иметь вид: Procedure Proc2(), уже создан в модуле 2, необходимо только записать тело процедуры.
На листе 1 книги выполните подрограмму и полученное в ячейке B15 значение введите в ответ теста.
Решение:
Public Sub Proc2()
Dim a As Range, i As Variant, s As Double
Set a = Selection
s = 0
For Each i In a
If i Mod 2 = 0 And i < 0 Then s = s + i
Next i
Cells(15, 2).Value = s
End Sub
Ответ: -6
3) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, составьте подпрограмму VBA с именем Proc2, которая в выделенном диапазоне активного Листа Excel находит наибольшее число. Результат процедура должна вернуть в ячейку B15.
Заголовок процедуры, который должен иметь вид: Procedure Proc2(), уже создан в модуле 2, необходимо только записать тело процедуры.
На листе 1 книги выполните подрограмму и полученное в ячейке B15 значение введите в ответ теста.
Решение:
Public Sub Proc2()
Dim a As Range, i As Variant, s As Double
Set a = Selection
Max = a(1, 1)
For Each i In a
If i > Max Then Max = i
Next i
Cells(15, 2).Value = Max
End Sub
UserForm1
1) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, доработайте пользовательскую форму VBA с именем UserForm1 (уже создана), которая среди трех заданых в форме чисел A, B, C, задающих коэффициенты квадратного уравнения, находит сумму корней уравнения. Если корней не существует, возвращает сово "нет". Результат должен быть получен в текстовом поле TextBox4 (Результат).
Имена полей, форм и кнопок изменять не надо. Требуется только написать операторы в тело процедуры кнопки Выполнить, уже созданой в форме UserForm1.
На листе 1 книги выполните форму UserForm1 и полученное в ячейке B18 значение введите в ответ теста.
Решение:
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
Dim d As Double, x1 As Double, x2 As Double, s As Double
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
s = x1 + x2
TextBox4.Text = Format(s)
Else
TextBox4.Text = "Нет"
End If
End Sub
Ответ: 8
Если произведение корней, то вместо этого s = x1 + x2, пишем s = x1 * x2
UserForm2
1) Задание:
В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, доработайте пользовательскую форму VBA с именем UserForm2 (уже создана), которая на отрезке [m+20;n] находит сумму простых чисел. Результат должен быть получен в текстовом поле TextBox3 (Результат).
Имена полей, форм и кнопок изменять не надо. Требуется только написать операторы в тело процедуры кнопки Выполнить, уже созданой в форме UserForm2.
На листе 1 книги выполните форму UserForm2 и полученное в ячейке B19 значение введите в ответ теста.
Решение:
Private Sub CommandButton1_Click()
M = Val(TextBox1.Text) + 20
N = Val(TextBox2.Text)
Dim i As Long, s As Double
s = 0
For i = M To N
If prostoe(i) = True Then s = s + i
Next i
TextBox3.Text = Format(s)
End Sub
Private Sub CommandButton2_Click()
UserForm2.Hide
End Sub
Public Function prostoe(ByVal N As Long) As Boolean
Dim i As Long
prostoe = True
If N > 1 Then
For i = 2 To Sqr(N)
If N Mod i = 0 Then
prostoe = False
Exit For
End If
Next i
Else
prostoe = False
End If
End Function
2) В книге Excel "Данные к тесту VBA", размещенной в учебных материалах к модулю, доработайте пользовательскую форму VBA с именем UserForm2 (уже создана), которая на интервале от M до N находит сумму простых чисел. Результат должен быть получен в текстовом поле TextBox3 (Результат).
Имена полей, форм и кнопок изменять не надо. Требуется только написать операторы в тело процедуры кнопки Выполнить, уже созданой в форме UserForm2.
На листе 1 книги выполните форму UserForm2 и полученное в ячейке B19 значение введите в ответ теста.
Решение:
Открываем Userform2, 2 раза щёлкаем по кнопке Выполнить
Сначала пишем прогу для простых чисел
Public Function prostoe(ByVal n As Long) As Boolean
Dim i As Long
prostoe = True
If n > 1 Then
For i = 2 To Sqr(n)
If n Mod i = 0 Then
prostoe = False
Exit For
End If
Next i
Else
prostoe = False
End If
End Function
Потом пишем форму
Private Sub CommandButton1_Click()
m = Val(TextBox1.Text)
n = Val(TextBox2.Text)
Dim i As Long, s As Double
s = 0
For i = m To n
If prostoe(i) = True Then s = s + i
Next i
TextBox3.Text = Format(s)
End Sub
Нажимаем выполнить UserForm2 и, в появившемся окне, нажимаем на выполнить
3) Здание на нахождение нок и нод
Private Sub CommandButton1_Click()
n = Val(Tn.Text)
m = Val(Tm.Text)
If OptionButton1 Then
Нахождение нод
While n <> m
If n > m Then
n = n - m
Else
m = m - n
End If
Wend
Tr.Value = n
Else
Нахождение нок
s1 = n
s2 = m
While s1 <> s2
If s1 < s2 Then
s1 = s1 + n
Else
s2 = s2 + m
End If
Wend
Tr.Value = s1
End If
End Sub
Вопрос 1
Каких типов данных не существует в языке VBA:
· variant
· case
· longint
· single
Вопрос 2
Определить значения следующего арифметического выражения на VBA:
26 \ 4 * 2 + 19 mod 3
Ответ: 14
Вопрос 3
Дана последовательность операторов VBA:
x = 12 mod 5
If x = 0 Then x = 2 ^ x - 1
If x > 1 Then y = x ^ 2
If x > 2 Then y = x + 2 / x - 1
Ответ: 4
4) Если значение переменной а равно 6, то какое значение получит переменная b при выполнении оператора:
Select Case a
Case 5
b = 1
Case 3 to 15
b = 2
Case Is > 5
b = 3
Case 2, 4, 6, 8, 10
b = 4
End Select
Ответ: 2
5) Функция Sqr(число) возвращает:
· квадратный корень из числа
· квадрат числа
· дробную часть числа
· целую часть числа
Вопрос 9
В сложных выражениях операции выполняются по следующем правилам:
согласно скобок, а если их нет - слева направо
сначала числовые операции, затем строковые и последними - логические
от простых к сложным
Дата добавления: 2015-12-17; просмотров: 101; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!