5 программ на VBA.

Для нахождения скалярного произведения векторов применяется формула .
Минимум и максимум векторов определяется сравнением элементов вектора друг с другом.
x(3, 5) = Me.x35
Подсчет суммы строк
For i = 1 To 3
xs(i) = 0
For j = 1 To 5
xs(i) = xs(i) + x(i, j)
Next j
Next i
Вывод на экран
Me.s1.SetFocus
Me.s1.Text

Задача 1
Исходные данные
Диаметр окружности начинается в точке Ml(xl.yl) и кончается в точке М2(х2,у2) Найти и вывести координаты ее центра
Задача 2
Исходные данные
Числа XI и Х2 являются корнями приведенного квадратного уравнения Найти и вывести наибольшее из чисел sin(p) и cos(q). где р и q являются ею вторым и третьим коэффициентами
Задача 3
Исходные данные
Даны векторы у(6) и h(6). состоящие из целых чисел. Найти отношение длин векторов 5*g-h и g+2*h.
Задача 4
Исходные данные
Даны векторы j(7) и k(8). Если наименьший элемент вектора k больше наибольшего элемента вектора j, то поменять их местами и вывести векторы, иначе вывести скалярное произведение векторов
Задача 5
Исходные данные
Дана матрица х(3,5), состоящая из целых чисел. Найти суммы элементов каждой строки и вывести матрицу в виде прямоугольной таблицы.

1. Информатика. Базовый курс. / Под ред. С.В. Симоновича. СПб: Питер. 2006.- 640с.
2. Томас Уорт. Программирование на языке БЕЙСИК. Самоучитель. Машиностроение. 2005.-220 с.
3. Острейковский В.А. Информатика: Учебник для ВУЗов. М.: Высшая школа. 2005.- 511с.
4. Чернов Б.И. Программирование на алгоритмических языках Бейсик, Фортран, Паскаль М.: Просвещение. 2005.-320 с.
5. Visual Basic / Михаэль Харведсон. М.: Пресс, 2008. 575с.