Тест 5.2-5.3
1) Какое значение получит переменная S после выполнения группы операторов VBA:
S = 1
For i = 2 To 5
Step -2
S = S - i
Next i
Ответ: 1
Источник: http://ffre.ru//merotrmerqasqas.html
Какое значение получит переменная S после выполнения группы операторов VBA:
S = 1
For i = 5 To 2
Step 2
S = S + i
Next i
Ответ: 1
Источник: http://ffre.ru//merotrmerqasqas.html
2) Дана последовательность операторов VBA:
x = 2
While x > 4 x = x + 1
Wend
Определить значение переменной x после их выполнения
Ответ: 2
Источник: http://ffre.ru//merotrmerqasqas.html
3) Дана последовательность операторов VBA:
x = 2 While x < 4 x = x + 1
Wend
Определить значение переменной x после их выполнения
Ответ: 4
Источник: http://ffre.ru//merotrmerqasqas.html
6) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
7) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
8) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
9) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
10) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
11) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
12) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
13) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
14) В книге 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
Источник: http://ffre.ru//merotrmerqasqas.html
15) В книге 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 = 1
While n <> 0
p = p *n Mod 10
n = n \ 10
Wend
fun7 = p
End Function
Ответ: 2
Источник: http://ffre.ru//merotrmerqasqas.html
| 
