Контрольная работа: Решение задач с помощью задания формул и создания макросов

n = 9 ‘количество столбцов

m = 4 ‘количество строк

ReDim A(1 To n, 1 To m) ‘указание размерности

For i = 1 To n

For j = 1 To m

A(i, j) = Int(Rnd * 10)

Cells(i + 1, j) = A(i, j)

Next j

Next i

ReDim b(1 To m)

For j = 1 To m

For i = 1 To n

Sum = Sum + A(i, j)

Next i

b(j) = Sum

Sum = 0

Next j

str = " "

For j = 1 To m

str = str + CStr(Format(b(j), "Fixed")) + " "

Cells(i, j + 5) = b(j)

Next

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Способ 3.

Решим задачу с использованием форм.