Понедельник, 23.12.2024
Вопросы и ответы по КИТ
Меню сайта
Статистика

Онлайн всего: 6
Гостей: 6
Пользователей: 0

Вопрос 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 

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

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.
 

Решение:

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
Вопрос 10 В книге 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

Вопрос 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

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

2 \ 4 * 2 + 15 mod 3

Ответ: 0

Вопрос 13 В книге 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

 

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

 

 

Вход на сайт
Поиск
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Mozila Firefox
  • Инструкции для uCoz
  • Copyright MyCorp © 2024
    Конструктор сайтов - uCoz