Задание

Решение

Определить значения следующего арифметического выражения на 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 If

End Function

Ответ: 26

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

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

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

2 \ 4 * 2 + 15 mod 3

Ответ: 0

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

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

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

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

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

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

  Заголовок функции, который должен иметь вид: Function fun3(a,b,c), уже создан в модуле 1, необходимо только записать тело процедуры.             

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

Заголовок функции, который должен иметь вид: 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 <= 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.

Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.

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

Заголовок функции, который должен иметь вид: 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 + 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.

Заголовок функции, который должен иметь вид: Function fun4(), уже создан в модуле 1, необходимо только записать тело процедуры.

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

  Заголовок функции, который должен иметь вид: 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 ^ 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.

  Заголовок функции, который должен иметь вид: 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

 n = n \ 10

Wend

fun7 = p

End Function

Ответ: 2