Определить произведение элементов, значения которых не кратны заданному числу F

Dim Am(50, 50) As Integer
Private Sub Command1_Click()
n = Val(Text1)
m = Val(Text2)
f = Val(Text5)
l = Val(Text6)
am_min = Val(Text3)
am_max = Val(Text4)
p = 1
max_el = am_min
k = 1
l_el = 1
List1.Clear
For i = 0 To n - 1
    For j = 0 To m - 1
        Am(i, j) = am_min + Int(Rnd * (am_max - am_min))
        stra = stra & Am(i, j) & Chr(vbKeyTab)
        If (Am(i, j) Mod f) > 0 Then p = p * Am(i, j)
        If Am(i, j) > max_el Then max_el = Am(i, j)
        If (k = l) Then l_el = Am(i, j)
        k = k + 1
    Next j
    List1.AddItem stra
    stra = ""
Next i
Text7.Text = Str(p)
Text8.Text = Str(max_el / l_el)
For j = 0 To m - 1
    For i = 0 To n - 1
        maxj = j
        maxi = i
        For kj = j To m - 1
            ks = 0
            If kj = j Then ks = i
            For ki = ks To n - 1
                If Am(ki, kj) > Am(maxi, maxj) Then
                    maxj = kj
                    maxi = ki
                End If
            Next ki
        Next kj
        t = Am(maxi, maxj)
        Am(maxi, maxj) = Am(i, j)
        Am(i, j) = t
    Next i
Next j
List2.Clear
For i = 0 To n - 1
    For j = 0 To m - 1
        stra = stra & Am(i, j) & Chr(vbKeyTab)
    Next j
    List2.AddItem stra
    stra = ""
Next i
End Sub