Программирование матричных операций - VB (170606)

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

Из матрицы

по заданному правилу получить элементы вектора i=1,2,…,n. Сама матрица: вот я рассчитал элементы квадратной матрицы:

Спойлер

а как дальше выписать в вектор-столбец максимальные значения элементов каждой строки? есть предположение сделать так:

Спойлер

Решение задачи: «Программирование матричных операций»

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

                            Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double
 
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
Picture1.Print Format(A(i, j), "0.0"),
Next j
Picture1.Print '
Next i
End Sub
 
Private Sub Command2_Click()
Dim x(1 To 100) As Double
For i = 1 To n
max = A(i, 1)
For j = 1 To n
If max < A(i, j) Then max = A(i, j)
Next j
x(i) = max
Picture1.Print x(i)
Next i
End Sub
                        