Вывести значения средних арифметических элементов всех столбцов матрицы - VB

Формулировка задачи:

Задача № 1

. Задана матрица А(i,j). (Причем задать ее надо самому с помощью генератора случайных чисел, предварительно введя в InputBox размерность матрицы) Вывести значения средних арифметических элементов всех столбцов матрицы .

Задача № 2

. Найти все числа, каждое из которых встречается в каждой строке матрицы A(m,n). Матрица задается тем же способом, что и в задаче 1. Помогите!

Решение задачи: «Вывести значения средних арифметических элементов всех столбцов матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
Cells.Clear
 
nCols = Val(InputBox("Введите кол-во столбцов"))
nRows = Val(InputBox("Введите кол-во строк"))
Randomize
For i = 1 To nRows
    For j = 1 To nCols
        Cells(i, j) = Int(Rnd + 1.5 * j)
    Next j
Next i
 
For i = 1 To nRows - 1
For j = 1 To nCols
sWhatFind = Cells(i, j)
nCountTrue = 0
For x = i To nRows - 1
Set rngFindRange = Range(Cells(x + 1, 1), Cells(x + 1, nCols)).Find(What:=sWhatFind, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
 
If Not (rngFindRange Is Nothing) Then
nCountTrue = nCountTrue + 1
End If
Next x
If nCountTrue = nRows - 1 Then sListOfNumbers = rngFindRange.Value & ", " & sListOfNumbers
MsgBox ("Найденные числа: " & sListOfNumbers)
 
Next j
Next i
 
 
End Sub