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

Задание 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. Активные и пассивные операции коммерческих банков1.1 Активные операции и их структура1.2 Пассивные операции и их структураГлава 2. Анализ активных и пассивных операций коммерческих банков (на примере «Сбербанка» по Чеченской...

«База данных «Молокозавод»»

Содержание Введение 1.Описание предметной области2. Создание базы данных3. Этапы проектирования базы данных(цель создания, функции) 3.1 Создание таблиц 3.2 Создание запросов 3.3 Создание форм 3.4 Создание отчета 4. Описание готовой базы данных 4.1 Опис...