Вопрос 10

В книге 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

Ответ:11

Вопрос 11

В книге 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

Ответ: 7

Вопрос 12

Определить значения следующего арифметического выражения на VBA:

2 \ 4 * 2 + 15 mod 3

Ответ: 0

Вопрос 13

В книге 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

Вопрос 14

Переменная в VBA может иметь следующие типы:

• Double

• Long

• Variant

• Real

• Decimal

Вопрос 15

Если исходное значение переменной а было равно 5, а переменной b - 3, то какое значение будет иметь переменная а после выполнения оператора:

If (a - b) > 0 Then a = a - b Else a = a + b

Вопрос 16

Язык VBA поддерживает следующие арифметические операции:

• умножение

• извлечение квадратного корня

• взятие модуля числа

• сложения

• преобразование двоичного значения в десятичное

Вопрос 17

Если значение переменной а равно 20, то какое значение получит переменная 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, 20

b = 4

End Select

Ответ: 3

Вопрос 18

Язык VBA представляет собой:

• самостоятельное приложение работы с данными

• объектно-ориентированный язык программирования

• процедурный язык программирования

• инструмент обработки данных в приложениях Microsoft Office

Вопрос 19

Функция Abs(число) возвращает:

• абсолютное значение числа

• знак числа

• арктангенс числа

• целую часть числа

Вопрос 20

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию в модуле 1 с именем fun1 на VBA (вставьте нужные операторы в заголовки уже созданной функции), которая вычисляет выражение по формуле:

(1-x)^2

fun1 = ---------- + (x-2)^3

2 + 3x

На листе 1 книги выполните функцию и полученное в ячейке B4 значение введите в ответ теста. Дробная часть числа от целой отделяется запятой.