Вычислить значение y=f(x) - VB

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

дана матрица: нужно по ней вычислить пытался сделать так:

Dim A(1 To 100, 1 To 100) As Double
Dim i As Integer, j As Integer, n As Integer, p As Integer
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = i / j - Logi * j
Next j
Next i
 
For i = 1 To n
s = 1
 
p = 1
For i = 1 To n
p = p * i
Next i
 
s = s * A(i, j) / p
X(i) = s
Picture1.Print X(i)
Next i
End Sub

но выдает ошибки, не могу разобраться

Решение задачи: «Вычислить значение y=f(x)»

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

                            Public Function factorial(ByVal n As Byte) As Variant
factorial = 1
For i = 1 To n
factorial = factorial * i
Next i
Exit Function
End Function
 
Private Sub Command3_Click()
Picture1.Cls
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = i / j - Log(i * j)
Next j
Next i
 
For i = 1 To n
s = 1
For j = 1 To n
z = factorial(n)
s = s * A(i, j) / z
Next j
 
Picture1.Print s
Next i
End Sub
                        