
Тест 5_1.
Вопрос 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(число) возвращает:
квадратный корень из числа
квадрат числа
дробную часть числа
целую часть числа
Вопрос 6
В книге Excel "Данные к тесту VBA" из вспогательного материала к тесту, составьте функцию VBA в модуле 1 с именем fun1 (вставьте нужные операторы в заголовки уже созданной функции), которая вычисляет выражение по формуле:
1-x^2
fun1 = ---------
2 - 3x
На листе 1 книги выполните функцию и полученное в ячейке B4 значение введите в ответ теста. Дробная часть числа от целой отделяется запятой.
Решение:
Public Function fun1(x As Double) As Double
fun1 = (1 - x ^ 2) / (2 - 3 * x)
End Function
Ответ: -1
Вопрос 7.
В книге 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
Вопрос 8
В книге 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
Ответ: 26
Вопрос 9
В сложных выражениях операции выполняются по следующем правилам:
согласно скобок, а если их нет - слева направо
сначала числовые операции, затем строковые и последними - логические
от простых к сложным
согласно приоритету операций, слева направо, с учетом скобок