Найти среднее арифметическое элементов матрицы - VB (59779)

Option Explicit: Option Base 1
'
'© Антихакер32™
'
'Обчислити середнє арифметичне значення елементів прямокутної матриці Z,
'яка має а-рядків і в-стовпців
Dim WithEvents cm1 As CommandButton, WithEvents cm2 As CommandButton
Dim b As Boolean
 
Private Sub cm1_Click()
    Form_Activate
End Sub
 
Private Sub cm2_Click()
    MsgBox "Среднее арифметическое матрицы = " & Mid(Split(cm2.Caption, "=")(1), 2)
End Sub
 
Private Sub Form_Activate()
    Const matrix = 500, l = 5
    Dim arr(l, l), X&, Y&, n&, b1 As Boolean, i&, o As Object
    Static c(l * l + l + 2) As CommandButton, s$
    If b Then GoTo povtor
 
    For Each o In Me: Controls.Remove o: Next
povtor:
    Randomize Timer
 
    If b = False Then
 
        For Y = 1 To l: For X = 1 To l
                i = (Y - 1) * l + X
                Set c(i) = Controls.Add("vb.CommandButton", "c" & X & Y)
                c(i).Move (X - 1) * matrix, (Y - 1) * matrix, matrix, matrix
                c(i).Visible = True
        Next: Next
    End If
 
    If b = False Then
        i = (Y - 1) * l + X
        Set c(i) = Controls.Add("vb.CommandButton", "c" & X & Y & 1)
        Set cm1 = c(i): c(i).Move 0, (Y - 1) * matrix, matrix * 2, matrix
        c(i).Caption = "Повтор": c(i).Visible = True
        Set c(i) = Controls.Add("vb.CommandButton", "c" & X & Y & 2)
        Set cm2 = c(i): c(i).Move matrix * 2, (Y - 1) * matrix, matrix * 3, matrix
        c(i).Caption = "": c(i).Visible = True
        Me.Refresh
    End If
    b = True
    '''
    n = 0
 
    For Y = 1 To l: For X = 1 To l
            arr(X, Y) = Fix(Rnd * 100)
            i = (Y - 1) * l + X
            c(i).Caption = arr(X, Y)
            n = n + arr(X, Y)
    Next: Next
    cm2.Caption = "Ср.Арфм = " & n / (l * l)
End Sub