Программный элемент заполнение / Заполнение-2

Задание 2

1 Постановка задачи

Заполнить в памяти ЭВМ матрицу P вида:

Входные данные: m – количество строк матрицы, переменная целого типа, n – количество столбцов матрицы, переменная целого типа.

Выходные данные: P – заполненная матрица, массив целых чисел.

2 Математическая модель

где

3 Разработка алгоритма

4 Разработка визуальной части проекта

В правом нижнем углу располагаем командную кнопку Command1 и в свойстве Caption кнопки записываем «Заполнить матрицу».

5 Код приложения

Private Sub Command1_Click()

Dim P() As Integer, m As Integer, i As Integer, n As Integer, j As Integer

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

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

ReDim P(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

P(i, j) = i + n * (j - 1)

Next

Next

For i = 1 To m

For j = 1 To n

Print P(i, j),

Next

Print

Next

End Sub

6 Отладка приложения

Ручной счёт: Матрица соответствует заданному виду.