3. Найти знач-я и индексы максимального эл-та к-ой строки мат-цы g5 размерности m*n. Найденное знач-е присвоить 3ему эл-ту последней строки.

Private Sub Command1_Click()

Dim G5() As Single, m As Integer, n As Integer, i As Integer, j As Integer, Max As Single, b As Integer

m = InputBox("Введите кол-во строк")

n = InputBox("Введите кол-во столбцов")

ReDim G5(m, n)

Print "Исходная матрица:"

For i = 1 To m

For j = 1 To n

G5(i, j) = InputBox("Введите элементы матрицы")

Print G5(i, j);

Next

Print

Next

k = InputBox("Введите номер строки")

Max = G5(k, 1)

b = 1

For j = 1 To n

If Max < G5(k, j) Then

Max = G5(k, j)

b = j

End If

Next

Print "Max = " & Max

Print " index = " & k & ", " & b

Print "Результат-матрица:"

G5(m, 3) = Max

For i = 1 To m

For j = 1 To n

Print G5(i, j);

Next

Print

Next

End Sub

30Билет

1.Макросы.Создание макросов.

Макрос представляет собой программу, написанную на языке Visual Basic for Application. Макрос создаётся либо программистом, либо автоматически так называемым «макрорекордером». Макрос позволяет несколько (много) действий пользователя (в том числе и ошибочных) запомнить и свести к одному действию, например к щелчку кнопки.

Последовательность создания макроса:

1)установить табличный курсор за пределы таблицы.

2).выполнить команду: сервис-макрос-начать запись. В появившемся окне «запись макроса» можно задать имя макроса (задаётся одним словом). Щелкнуть ОК.

3).на экране появится панель с кнопкой «остановить запись» Также можно воспользоваться командой сервис-макрос-остановить запись.

4).выполняем действия, которые будут запоминаться макросом (например устанавливаем автофильтр).

5).остановить запись.

Назначение макросов объектам.

Для того чтобы назначить макрос объекту необходимо выполнить следующие действия:

1)Вид-Панель инструментов- Формы –Кнопка

2)В появившемся окне назначаем макрос объекту, выделяем требуемый макрос- ОК;

3)При необходимости изменяем название кнопки

3. Определить сумму и произведение отрицательных эл-ов вектора r размерности n.

Private Sub Command1_Click()

Dim R() As Single, n As Integer, i As Integer, sum As Single, p As Single

n = InputBox("Введите размерность вектора R")

ReDim R(n)

For i = 1 To n

R(i) = InputBox("Введите элементы вектора R")

Print R(i);

Next

Print

p = 1

sum = 0

For i = 1 To n

If R(i) < 0 Then

sum = sum + R(i)

p = p * R(i)

End If

Next

Print "сумма = " & sum

Print "произведение = " & p

End Sub