Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
|
Задание |
Решение |
|
Определить значения следующего арифметического выражения на 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 |