Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Информатика / Шпора ВБА.docx
Скачиваний:
199
Добавлен:
01.03.2016
Размер:
47.17 Кб
Скачать

Тест 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

В сложных выражениях операции выполняются по следующем правилам:

согласно скобок, а если их нет - слева направо

сначала числовые операции, затем строковые и последними - логические

от простых к сложным

согласно приоритету операций, слева направо, с учетом скобок