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
|
При вводе по строкам матрицы
1 2 3
1 2 3
1 2 3
Получаем результат
Оформление протокола лабораторной работы
1. Отчет оформить на рабочем листе 1.
2. В заголовке лабораторной работы записать ее номер и цель проведения.
3. Записать условия индивидуальных заданий и порядок выполнения.
4. На листе 1 записать результаты решения.
5. Записать проект в личную папку под именем Лаб. 8.
6. Подготовиться для ответа на контрольные вопросы при защите лабораторной работы.
Контрольные вопросы