Контрольная работа

Задание 1
Даны два целых числа, если одно из них четное, а другое нечетное, вывести сумму этих чисел на экран.
Решением задания будет программа имеющая вид:

Sub Chisla()
Dim A As Long
A = InputBox("Введите исходную строку", "Ввод данных")
......

Задание 2
Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных и вывести на экран порядковый номер и само число в одной строке.
Решением задания будет программа имеющая вид:
Sub Nomer_Chisla()
Dim A As Long
A = InputBox("Введите число №1", " Ввод данных ")
............

Задание 3
На экран выводится окно (используется функция MsgBox), в котором содержится вопрос: нажмите кнопку ОК, если нужно посчитать площадь фигуры, кнопку No, если нужно посчитать периметр, и кнопку Cancel, если ничего не нужно считать.
Решением задания будет программа имеющая вид:
Sub Pryamougolnik()
Dim A As Single, B As Single
.............

Задание 4

По заданной прямоугольной матрице получает новую, являющуюся результатом поворота исходной матрицы на 90 градусов;
Решением задания будет программа имеющая вид:
Function f(mas() As Byte, RowCount As Integer, ColumnCount As Integer)
Dim i As Integer, j As Integer
.................

Задание 5

При заданных пяти вариантах допустимой ошибки e заданным численным методом вычислить приближенное значение корня функционального уравнения вида f (x) = 0, если известно, что это уравнение имеет единственный корень на отрезке [a, b].
В проекте должно быть предусмотрено:
- проверка корректности введенных значений исходных данных (выполнение условия a < b, выполнение условия e > 0),
- перехват и обработка ошибки времени выполнения, когда строку введенных символов невозможно интерпретировать как число.
Решением задания будет программа имеющая вид:

Sub Koren_yravneniya()
Dim xn As Double, xs As Double, e As Double, a As Integer, b As Integer
On Error GoTo 1
......

Задание 6
Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.
Решением задания будет программа имеющая вид:
Sub Text()
Dim s As String, i As Integer, n As Integer, a

История менеджмента.Акио Морита.Контрольная РФЭИ

Вопросы: 1. В чем по вашему мнению, состоит секрет успеха компании «Сони»? 2. Какие по вашему мнению, личные качества Акио Мориты менеджера «Сони корпорейшн» способствовали успеху компании? 3. Какие из решений, принимаемых компанией и лично Моритой вы ...

Риторика.Контрольная работа РФЭИ

Защита на отлично!Скриншот с оценкой идёт с работой + задание РИТОРИКА Контрольная работа Вы наверняка знаете, что общение может быть вербальным и невербальным. Наша устная и письменная речь относятся к вербальному общению. А так называемый язык тела, ...