Сформировать двумерный массив по правилу - Visual Basic .NET (250310)

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

Сформировать двумерный массив X(4,4) по правилу: Xij = i/(i+j). Вставьте столбец из единиц перед столбцом, содержащим минимальный элемент матрицы.

Решение задачи: «Сформировать двумерный массив по правилу»

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

                             Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x(4, 4) As Double, i As Integer, j As Integer, jmin As Integer
        Dim smin As Double
        smin = 1
        For i = 1 To 4
            For j = 1 To 4
                x(i, j) = i / (i + j)
 
                If x(i, j) < smin Then
                    smin = x(i, j)
                    jmin = j
                End If
            Next
        Next
        If jmin > 1 Then
            jmin = jmin - 1
            For i = 1 To 4
                x(i, jmin) = 1
            Next
        End If
End Sub
                        