Сформировать одномерный массив из произведений max и min значений матрицы - VB

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

Не могу сформировать одномерный массив из произведений max и min значений матрицы А

Dim intM(1 To 5, 1 To 5) As Integer
Dim Mas(10) As Integer
Dim h As Integer, bytb As Byte
 
Private Sub Command1_Click()
 
Open "Matrici.doc" For Output As #1
Max = intM(1, 5)
Min = intM(1, 5)
For i = 1 To 5
For j = 1 To 5
intM(i, j) = Val(InputBox("Введите элемент матрицы:", "ввод элемента матрицы")):
 
If intM(i, 1) > Max Then Max = intM(i, j)
If intM(i, 1) > Min Then Min = intM(i, j)
 
h = Max * Min
Mas(10) = h
Print #1, Tab(3); Mas(10)
Next j
Next i
Close #1
bytb = MsgBox(h)
 
End Sub

Решение задачи: «Сформировать одномерный массив из произведений max и min значений матрицы»

textual
                            Листинг программы 
                        

                            Dim intM(1 To 5, 1 To 5) As Single
Dim Mas(1 To 5) As Single
Dim h As Single
Dim max As Single, min As Single
 
Private Sub Command1_Click()
Open "C:/Matrix.txt" For Output As #1
For i = 1 To 5
    For j = 1 To 5
        intM(i, j) = Val(InputBox("Введите элемент матрицы (" & i & ";" & j & "):", "ввод элемента матрицы")):
    Next j
Next i
For i = 1 To 5
    max = intM(i, 1)
    min = intM(i, 1)
    For j = 2 To 5
        If intM(i, j) > max Then max = intM(i, j)
        If intM(i, j) < min Then min = intM(i, j)
    Next j
    h = min * max
    Mas(i) = h
    Print #1, Mas(i)
Next i
Close #1
End Sub
                        