Порядок выполнения задания №1. 1. Использовать алгоритм лаб

1. Использовать алгоритм лаб. работы №2.

2. Интерфейс пользователя аналогичен лаб. 7 (рис. Л8.1).

3. Ввод элементов массива с помощью функции InputBox.

4. Способ вывода результатов представлен в табл. Л8.1.

5. Составить программу решения и решить ее на ПК.

Пример выполнения лабораторной работы

Дан двумерный массив A= a(i,j); i =1,2,3, j=1,2,3.

Составить проект для определения суммы элементов главной диагонали. При разработке проекта принимаем:

· Ввод данных выполняем с помощью функции InputBox;

· Вывод результатов вычислений производим в окно TextBox1;

· Алгоритм см. глава 1, рис. 1.14.

2. Таблица свойств объектов

Объект)	Свойство	Значение свойства
Форма 1	Caption	Обработка двумерного массива
CommandButton1	Caption	Запуск программы
CommandButton2	Caption	Закрыть проект
TextBox1	Text
Label1	Caption	Результат решения

2. Процедура отклика кнопки 1

Private Sub CommandButton1_Click()

Dim a(1 To 3, 1 To 3), s As Single, i, j As Integer

For i = 1 To 3 ' Организация цикла для ввода массива по строкам

For j = 1 To 3

a(i, j) = Val (InputBox(" Введите a(" & i & ", " & j & ")" & "элемент массива "))

Next j ' Конец области действия внутреннего цикла

Next i ' Конец области действия внешнего цикла

s = 0

For i = 1 To 3 ' Организация цикла для обработки массива по строкам

For j = 1 To 3

If i = j Then s = s + a(i, j) ' Выделение элементов главной диагонали

Next j ' Конец области действия внутреннего цикла

Next i ' Конец области действия внешнего цикла

TextBox1.text= s

End Sub

Private Sub CommandButton2_Click()

End

Рис. Л8.1. Результат решения

End Sub

При вводе по строкам матрицы

1 2 3

1 2 3

1 2 3

Получаем результат

 

Оформление протокола лабораторной работы

1. Отчет оформить на рабочем листе 1.

2. В заголовке лабораторной работы записать ее номер и цель проведения.

3. Записать условия индивидуальных заданий и порядок выполнения.

4. На листе 1 записать результаты решения.

5. Записать проект в личную папку под именем Лаб. 8.

6. Подготовиться для ответа на контрольные вопросы при защите лабораторной работы.

Контрольные вопросы