Написание программного кода

Перед написанием программного кода в процедурах следует определить, какие переменные в этом проекте будут глобальными в форме. Поскольку ввод элементов матрицы и вычисления сумм элементов столбцов будет происходить в разных процедурах, то двумерный массив A(M, N), переменные M, N и rez, в которой накапливаем результаты, должен быть объявлен как глобальные в форме. Сделайте это следующим образом:

§ перейдите в Окно написания кода (крайняя левая кнопка View Code в Окне проекта);

§ вверху слева Окна кода откройте список объектов и выберите в появившемся списке (General); вверху справа Окна кода в поле со списком появится (Declarations);

§ вверху Окна кода введите:
Option Explicit
Dim A() As Integer, M As Integer, N As Integer, rez As String

Опция Explicit требует объявление переменных обязательным.

Ниже приведены коды в области (General) (Declarations),отделенные чертой, и три процедуры для трех кнопок.

Option Explicit

Dim A() As Integer, M As Integer, N As Integer, rez As String

Private Sub cmdВвод_Click()

Dim i As Integer, j As Integer

M = Val(txtM.Text)

N = Val(txtN.Text)

ReDim A(M, N) As Integer 'переопределение массива A()

txtRez = "" ' чистка текстового поля

rez = ""

rez = rez & " ИСХОДНАЯ МАТРИЦА" & vbCrLf & vbCrLf

For i = 1 To M

For j = 1 To N

A(i, j) = InputBox("Введите элемент A(" & i & "," & j & ")", _

"Ввод матрицы A(" & M & "," & N & ")")

rez = rez & A(i, j) & vbTab

Next j

rez = rez & vbCrLf

Next i

rez = rez & vbCrLf

End Sub

Private Sub cmdВычислить_Click()

Dim i As Integer, j As Integer

Dim su() As Integer

N = Val(txtN.Text)

ReDim su(N) As Integer

For j = 1 To N

su(j) = 0

For i = 1 To M

If A(i, j) > 0 Then su(j) = su(j) + A(i, j)

Next i

Next j

rez = rez & "СУММА ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ:" & vbCrLf & vbCrLf

txtRez.ForeColor = &H80& ' выбор коричневого цвета

For i = 1 To N

rez = rez & i & "- го" & " столбца: " & su(i) & vbCrLf

Next i

txtRez = rez

End Sub

Private Sub cmdEnd_Click()

End

End Sub