Задание №2. 1.1 Словесное описание задачи

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

1.1 Словесное описание задачи.

Вычислить сумму элементов первого столбца и последней строки матрицы S размерности М*N.
Для отладки программы принять N=З; М=4. Значение элементов матрицы выбрать самостоятельно.

1.2 Определение состава входных и выходных данных.

Входные данные:
- количество строк M матрицы S
- количество столбцов N матрицы S
- элементы матрицы S
Выходные данные:
- сумма S1 элементов первого столбца и последней строки матрицы S

1.3 Математическое описание.

M=1, 2, 3, ...
N=1, 2, 3, ...

2

3Разработка визуальной части.

4Разработка кода проиложения.

Private Sub Command1_Click()

Dim S() As Single, M As Integer, N As Integer, i As Integer, j As Integer, S1 As Single

M = Text1

N = Text2

ReDim S(M, N) As Single

For i = 1 To M

For j = 1 To N

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

Print S(i, j);

Next

Print

Next

S1 = 0

For i = 1 To M

S1 = S1 + S(i, 1)

Next

For j = 2 To N

S1 = S1 + S(M, j)

Next

Print "Сумма S1=" & S1

End Sub

5 Отладочный пример.