Разработка проекта

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

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

Private Sub Command1_Click()

Dim A() As Integer, i As Integer, j As Integer, S() As Integer, m As Integer, c As Integer, b As Integer, x As Integer, k As Integer, l As Integer

m = InputBox("m")

b = 0

с = 0

x = 0

ReDim A(1 To m, 1 To m)

For i = 1 To m

Print

For j = 1 To m

A(i, j) = InputBox("a(i,j)")

Print A(i, j);

If i = j Then

b = b + A(i, j)

End If

Next

Next

For j = 1 To m

c = c + A(1, j)

Next

For j = 1 To m

x = x + A(m, j)

Next

ReDim S(1 To 3)

For l = 1 To 3

S(1) = c

S(2) = x

S(3) = b

Print ("")

Print S(l);

Next

End Sub

Конечный результат