где ошибка в коде?

[distress]

Public Class Form1

Private Sub btnПуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnПуск.Click
Dim n As Integer
Dim x() As Single
Dim a(,) As Single
Dim i, j As Integer
Dim k, p As Single
Dim Сигнал As Boolean
txtЖурнал.Clear()
n = InputBox("n =?")
txtЖурнал.AppendText("n = " & n & vbCrLf)
ReDim x(n), a(i, j)
InputVector(x, "x")
txtЖурнал.AppendText("Вектор x" & vbCrLf)
OutputVector(x, txtЖурнал)
InputMatrix(a, "a")
txtЖурнал.AppendText("Матрица a" & vbCrLf)
OutputMatrix(a, txtЖурнал)
For j = 1 To n
x(j) = 1
Сигнал = True
Next
For i = 1 To n

Next
k = k + a(i, j)
p = p * a(i, j)
If k = k + a(i, j) < p = p * a(i, j) Then Сигнал = False
x(j) = 0


If x(j) = 1 Then
txtЖурнал.AppendText("x(n) = " & x(n) & vbCrLf)

End If
x(j) = 0
txtЖурнал.AppendText("не определено" & vbCrLf)

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub


Private Sub InputVector(ByRef x() As Single, Optional _
ByVal ArrayName As String = "элемент")
Dim i As Integer
For i = 1 To UBound(x)
x(i) = InputBox(ArrayName & "(" & i & ") = ?")
Next
End Sub
Private Sub OutputVector(ByRef x() As Single, ByVal _
txtBx As TextBox)
Dim i As Integer
For i = 1 To UBound(x)
txtBx.AppendText(" " & x(i))
Next
txtBx.AppendText(vbCrLf)
End Sub
Private Sub InputMatrix(ByRef a(,) As Single, Optional _
ByVal ArrayName As String = "элемент")
Dim i, j As Integer
For i = 1 To UBound(a)
Next

For j = 1 To UBound(a, 2)
a(i, j) = InputBox(ArrayName & "(" & i & "," & j & ") = ?")

Next
End Sub
Private Sub OutputMatrix(ByVal a(,) As Single, _
ByVal y As TextBox)
Dim i, j As Integer
For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
y.AppendText(a(i, j) & vbTab)
Next
y.AppendText(vbCrLf)
Next
End Sub
End Class

нужно было получить вектор Х1, Х2, Х3, ... , Хn по правилу: Xj = 1, если сумма элементов j-го столбца матрицы А больше их произведения, иначе – Xj = 0.

[Хыиуду]

В чем ошибка в коде?