Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Белорусский государственный университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Информатика / VBA. Контрольный тест 5_1-5_3

.docx

Скачиваний:

493

Добавлен:

01.03.2016

Размер:

27.25 Кб

Скачать

☆

Задание

Решение

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

26 \ 4 * 2 + 19 mod 3

Ответ: 14

Дана последовательность операторов 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

Если значение переменной а равно 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

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

На листе 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

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

Ответ: 26

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем 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

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения из трех произвольных чисел A, B, C, задающих длины сторон треугольника, самую длинную сторону, если треугольник существует, в противном случае функция должна возвратить значение -3.

На листе 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

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

2 \ 4 * 2 + 15 mod 3

Ответ: 0

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения из трех произвольных чисел A, B, C минимального значения.

На листе 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

Если значение переменной а равно 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

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

(1-x)^2

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

2 + 3x

В книге Excel "Данные к тесту VBA" из вспомогательного материала к тесту, составьте функцию в модуле 1 с именем fun2 на VBA (вставьте нужные операторы в загововки функции созданной функции), которая вычисляет выражение по формуле: если x > 2, то fun2=(1-2x)/(2-x), иначе fun2=cos(x)+1.

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA с именем fun3 для нахождения минимального произведения двух чисел из трех произвольных чисел A, B, C.

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

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

(1-x)^2

fun1 = ----------

2 + 3x

Ответ: -4,75

Какое значение получит переменная S после выполнения группы операторов VBA:

S = 1

For i = 2 To 5 Step -2

S = S - i

Next i

Ответ: 1

Какое значение получит переменная S после выполнения группы операторов VBA:

S = 1

For i = 5 To 2 Step 2

S = S + i

Next i

Ответ: 1

Дана последовательность операторов VBA:

x = 2

While x > 4

x = x + 1

Wend

Определить значение переменной x после их выполнения

Ответ: 2

Дана последовательность операторов VBA:

x = 2

While x < 4

x = x + 1

Wend

Определить значение переменной x после их выполнения

Ответ: 4

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

Ответ: 672

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=2^2-3^2+4^2-...+20^2.

На листе 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

Ответ: 295,4

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=1-2^3+3^3-...-20^3.

На листе 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

Ответ: -6020

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=2^2-3^2+4^2-...+30^2.

На листе 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

Ответ: 652,4

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun4, которая вычисляет сумму S=1+2^2+3^2-...+25^2.

На листе 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

Ответ: 7735

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

Ответ: -23

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun5, которая вычисляет сумму S=1-2^2+3^2-...-n^2.

На листе 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

Ответ: -8

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

Ответ:381

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

Ответ: 4

В книге Excel "Данные к тесту VBA" из учебных материалов к модулю, составьте функцию VBA в модуле 1 с именем fun7, которая вычисляет произведение цифр заданного числа n.

На листе 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

Ответ: 2

Соседние файлы в папке Информатика

#
01.03.201629.23 Кб162Access.Всё вместе.docx
#
01.03.2016194.05 Кб555Excel.Ответы.doc
#
01.03.201627.25 Кб493VBA. Контрольный тест 5_1-5_3.docx
#
01.03.201618.63 Кб194VBA.Контрольный тест 5_1-5_7(8 заданий).docx
#
01.03.201618.1 Кб243VBA.Контрольный тест 5_4-5_5.docx
#
01.03.201616.52 Кб200VBA.Контрольный тест 5_6-5_7.docx
#
01.03.201626.35 Кб113Задания из статистики.docx
#
01.03.201636.68 Кб383Контрольный тест по Excel.docx