.Найти число строк матрицы, имеющих элементы меньше единицы - VB

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

Необходимо составить двухмерную матрицу по заданной формуле..я это сделала,а остальной не могу понять.. 1.Найти число строк матрицы,имеющих элементы меньше единицы 2.Сумму значений положительных элементов в главной диагонали матрицы 3.Максимальный элемент в каждой строке поменять местами с элементом главной диагонали.Полученную матрицу распечатать.

                    Листинг программы
                
 
                        
                          
                    
Dim x(5) As Integer, y(5) As Integer
Dim z(5, 5) As Integer
Private Sub Command1_Click()
For i = 1 To 5
x(i) = Int(Rnd(1) * 10)
Next i
For j = 1 To 5
y(j) = Int(Rnd(1) * 10)
Next j
For i = 1 To 5
    For j = 1 To 5
    z(i, j) = ((x(i) ^ 2) + y(j)) ^ (1 / 3)
    Print z(i, j),
    Next j
Print
Next i
End Sub

Решение задачи: «.Найти число строк матрицы, имеющих элементы меньше единицы»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Option Base 1
Private Sub Form_Load()
    Dim x(5) As Integer, y(5) As Integer
    Dim z(5, 5) As Integer
    Dim i As Long, j As Long, B As Boolean
    Dim Mn As Long, S As Integer, Mx As Integer, Tmp As Integer
    Randomize
    Me.AutoRedraw = True
    For i = 1 To 5
        x(i) = Int(Rnd * 10)
    Next i
    For j = 1 To 5
        y(j) = Int(Rnd * 10)
    Next j
    For i = 1 To 5
        For j = 1 To 5
            z(i, j) = (((x(i) ^ 2) + y(j)) ^ (1 / 3))
            Print z(i, j),
        Next j
    Print
    Next i
    Print
    For i = 1 To 5
        B = True
        Mx = 1
        For j = 1 To 5
            If z(i, j) < 1 And B Then Mn = Mn + 1: B = Not B
            If i = j And z(i, j) > 0 Then S = S + z(i, j)
            If z(i, j) > z(i, Mx) Then Mx = j
        Next
        Tmp = z(i, i)
        z(i, i) = z(i, Mx)
        z(i, Mx) = Tmp
    Next
    For i = 1 To 5: For j = 1 To 5
            Print z(i, j),
    Next j: Print: Next i
    Print "Сумма положительных элементов: " & S
    Print "Число строк матрицы,имеющих элементы меньше единицы: " & Mn
End Sub