Вопрос 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
В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию в модуле 1 с именем fun2 на VBA (вставьте нужные операторы в загововки уже созданной функции), которая вычисляет выражение по формуле: если x больше 0, то fun2=(1-2x)/(2+x), иначе fun2=Sin(3x)-1
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.
Решение:
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
Вопрос 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
Вопрос 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
| 
