Заполнить матрицу А(N,N) числами натурального ряда в последовательности, указанной на рисунке - VB

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

Помогите решить контрольную. Заполнить матрицу А(N,N) числами натурального ряда в последовательности, указанной на рисунке. Половина работы сделал, не могу продолжить, чтобы с середины заполнялась и шла вниз. Вот программа:

Dim m() As Integer
 Dim n As Integer
 
 Private Sub Command1_Click()
 
 If IsNumeric(Text1.Text) Then
 n = Val(Text1.Text)
 Else
 MsgBox ("введите число")
 Exit Sub
 End If
 If n < 0 Then
 Text1.Text = "число отрицательное"
 End If

 ReDim m(n, n) As Integer
 k = 1
 
 For j = 1 To n
 If j Mod 2 < 0 Then
 
 For i = j To n - (j - i)
 m(i, j) = k
 k = k + 1
 Next i
 
 Else
 
 For i = n - (j - 1) To j Step -1
 m(i, j) = k
 k = k + 1
 Next i
 End If
 Next j
 
'вот тут не знаю((((

 End Sub
 
 Private Sub Command2_Click()
 
 For j = 1 To n
 For i = 1 To n
 CurrentY = 400 * (j + 1)
 CurrentX = 400 * (i + 1)
 Print m(i, j)
 Next i
 Next j
 
 End Sub

Решение задачи: «Заполнить матрицу А(N,N) числами натурального ряда в последовательности, указанной на рисунке»

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

                             For j = 1 To n
If j Mod 1 <> 0 Then
 
For i = j To n - (j - i) Step -1
 
m(i, j) = k
k = k + 1
Next i
 
Else
 
For i = n - (j - 1) To j
m(i, j) = k
k = k + 1
Next i
End If
Next j
                        