Получить новый массив по правилу - VB

Private Sub Command1_Click()
Dim n As Integer
Dim x() As Single
Dim C() As Single
Dim A() As Single
Dim S As Single
Dim i As Integer
Dim j As Integer
Cls
n = InputBox("Задайте n")
Print "n= "; n
Print
ReDim x(1 To n)
ReDim A(1 To n, 1 To n)
Print "Задайте значения элементов вектора X"
Ввод_вектора x
Print
Print "Задайте значения элементов матрицы A"
Ввод_матрицы A
Print
Print
S = 0
For i = 1 To n
For j = 1 To n
S = S + A(i, j)
If x(i) < S Then C(i) = S Else C(i) = x(i)
 
Next
Next
 
Print "Полученный массив  С"
    Вывод_матрицы C
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Ввод_матрицы(x() As Single)
   Dim i As Integer, j As Integer
     For i = LBound(x) To UBound(x)
       For j = LBound(x, 2) To UBound(x, 2)
         x(i, j) = InputBox("Элемент матрицы (" _
         & i & ", " & j & ") = ?", _
         "Ввод матрицы", , 0, 0)
         Print x(i, j),
       Next
       Print
     Next
End Sub
Private Sub Ввод_вектора(x() As Single)
   Dim i As Integer
     For i = LBound(x) To UBound(x)
       x(i) = InputBox("Элемент вектора (" _
       & i & ") = ?", _
       "Ввод вектора", , 0, 0)
       Print x(i),
       Print
     Next
End Sub
Private Sub Вывод_матрицы(C() As Single)
Dim i As Integer, j As Integer
       For i = LBound(C) To UBound(C)
       For j = LBound(C, 2) To UBound(C, 2)
         Print C(i, j),
       Next
Print
     Next
End Sub