For i = 1 To UBound(A, 1)
Sum = 0
    For j = 1 To UBound(A, 2)
        A(i, j) = Rnd * 10 - 5
        If A(i, j) = 0 Then Sum = Sum + 1
        Print A(i, j);
        Print vbTab;
    Next j
    Print vbTab;
    Print Sum;
    Print
Next i

For j = 1 To UBound(A, 2)
Sum = 0
    For i = 1 To UBound(A, 1)
        A(i, j) = Rnd * 10 - 5
        If A(i, j) = 0 Then Sum = Sum + 1
        Print A(i, j);
        Print vbTab;
    Next i
    Print
Next j
Print
Print Sum;
Print vbTab;

Private Sub cmdm1_Click()
Dim A() As Integer, B() As Integer, n As Integer, m As Integer, k As Integer, t As Integer
n = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê ìàòðèöû À")
m = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ ìàòðèöû À")
Print: Print: Print "Ìàòðèöà À:"
ReDim A(1 To n, 1 To m)                                                                  'UBound - Âîçâðàùàåò íàèáîëüøèé äîñòóïíûé èíäåêñ äëÿ óêàçàííîãî èçìåðåíèÿ ìàññèâà.
Call MySub(A())
End Sub
Private Sub MySub(A() As Integer)
Randomize Timer
For j = 1 To UBound(A, 2)
Sum = 0
    For i = 1 To UBound(A, 1)
        A(i, j) = Rnd * 10 - 5
        If A(i, j) = 0 Then Sum = Sum + 1
        Print A(i, j);
        Print vbTab;
    Next i
    Print
Next j
Print
Print Sum;
Print vbTab;
End Sub

Private Sub cmdm2_Click()
Dim B() As Integer, k As Integer, t As Integer
k = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê ìàòðèöû Â")
t = InputBox("Ââåäèòå êîëè÷åñòâî ñòîëáöîâ ìàòðèöû B")
Print: Print: Print "Ìàòðèöà B:"
ReDim B(1 To k, 1 To t)
i = UBound(B, 1)
j = UBound(B, 2)
Call MySub(B())
End Sub