Определить, сколько положительных элементов матрицы, расположенных ниже главной диагонали

'....
M = InputBox("Ðàçìåð ìàòðèöû:")
For i = 1 To M - 1
    For j = i + 1 To M
        If A(j, i) >= 0 Then iCnt = iCnt + 1
    Next
Next
MsgBox iCnt

Dim A() As Single
Dim C As Integer
Dim J As Integer
Dim I As Integer
Dim M As Integer
 
Private Sub CommandButton1_Click()
N = Val(TextBox_N.Value)
 ReDim A(1 To N, 1 To N) As Single
 B = -20
 C = 30
Randomize
 For I = 1 To N
 For J = 1 To N
 A(I, J) = Int((C - B) * Rnd + B)
Next J
Next I
 For I = 1 To N
 For J = 1 To N
 Cells(I, J) = A(I, J)
Next J
Next I
End Sub
 
Private Sub CommandButton2_Click()
For I = 1 To N
    For J = N - I + 2 To N
M = 0
Next
 If A(I, J) < 0 Then M = M + 1
Next
TextBox_M.Value = M
End Sub

ChList = "ABCDE..."
c = 0
for i = 1 to len s
if instr(ChList, mid(s,i,1)) = 0 then c = c+1
next
msgbox s & " содержит " & c & " не букв."

Sub m_1()
Dim i As Long
Dim vКоличество As Long
For i = 1 To Len(Selection.Text)
    If LCase(Mid(Selection.Text, i, 1)) Like "[a-z]" Or _
            LCase(Mid(Selection.Text, i, 1)) Like "[а-я]" Then
    Else
       vКоличество = vКоличество + 1
    End If
Next i
Debug.Print vКоличество
End Sub

Sub Task()
Dim A(4, 6) As Integer, i As Integer, j As Integer, B(5) As Integer, sStr As String, iSum As Integer
Cells.Clear
For j = 0 To 5
    For i = 0 To 3
        A(i, j) = Int(Rnd * 40 + 10)
        Cells(i + 1, j + 1) = A(i, j)
        iSum = iSum + A(i, j)
    Next
    B(j) = iSum: iSum = 0
Next
For i = 0 To 5
    Cells(6, i + 1) = B(i)
Next
End Sub