3. Определить произведение эл-ов матрицы d размерности m*n, расположенных в чётных столбцах. Найденное знач-е присвоить 2му эл-ту последней строки

Private Sub Command1_Click()

Dim D() As Integer, m As Integer, n As Integer, i As Integer, j As Integer, p As Integer

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

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

ReDim D(m, n)

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

For i = 1 To m

For j = 1 To n

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

Print D(i, j);

Next

Print

Next

p = 1

For i = 1 To m

For j = 1 To n

If j Mod 2 = 0 Then p = p * D(i, j)

Next

Next

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

D(m, 2) = p

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

For i = 1 To m

For j = 1 To n

Print D(i, j);

Next

Print

Next

End Sub

Билет 23

1.Работа с таблицами

Чтобы создать таблицу в том месте, где находится курсор, достаточно щелкнуть кнопку Добавить таблицу на стандартной панели инструментов и выбрать размеры таблицы перетаскивая указатель.

То же самое можно проделать выполнив команду Таблица/Добавить таблицу и в появившемся окне диалога Вставка таблицы выбрать нужное вам число строк и столбцов.

Чтобы вставить новые сстроки в определенном месте таблицы, выделите строки, находящиеся непосредственно под этим местом; количество выделяемых рядов должно быть рравно количеству вставляемых строк. Чтобы вставить всего одну строку достаточно установить курсор в любом месте строки.

Аналогично для вставки столбцов.

Щелкните кнопку Добавить строки (или Добавить столбцы) на стандартной панели инструментов. Кроме того вы можете щелкнуть на выделенном фрагменте таблицы правой кнопкой мыши и выполнить в контекстном меню команду Добавить строки,( столбцы или ячейки). Название команд контекстного меню изменяется в зависимости от того, какая часть таблицы была выделена.

2. Автозаполнение ячеек данными в эксель

Правка-заполнить-прогрессия-автозаполнение

3. Заполнить в памяти ЭВМ мат-цу вида T= 1111\5555\1111\5555

Private Sub Command1_Click()

Dim m As Integer, i As Integer, j As Integer, e() As Byte, n As Integer

m = InputBox("vvedi stroki ")

n = InputBox("vvedi stolbzi ")

ReDim e(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

If i Mod 2 = 1 Then

e(i, j) = 1

Else

e(i, j) = 5

End If

Next

Next

Print

For i = 1 To m

Print

For j = 1 To m

Print e(i, j);

Next

Next

End Sub

Билет 24

1Вычисляемые таблицы

Чтобы создать таблицу в том месте, где находится курсор, достаточно щелкнуть кнопку Добавить таблицу на стандартной панели инструментов и выбрать размеры таблицы перетаскивая указатель.

То же самое можно проделать выполнив команду Таблица/Добавить таблицу и в появившемся окне диалога Вставка таблицы выбрать нужное вам число строк и столбцов. 

Чтобы вставить новые сстроки в определенном месте таблицы, выделите строки, находящиеся непосредственно под этим местом; количество выделяемых рядов должно быть рравно количеству вставляемых строк. Чтобы вставить всего одну строку достаточно установить курсор в любом месте строки. Аналогично для вставки столбцов. Щелкните кнопку Добавить строки (или Добавить столбцы) на стандартной панели инструментов. Кроме того вы можете щелкнуть на выделенном фрагменте таблицы правой кнопкой мыши и выполнить в контекстном меню команду Добавить строки,( столбцы или ячейки). Название команд контекстного меню изменяется в зависимости от того, какая часть таблицы была выделена.