请问下各位大佬，这个怎么解

效果如图所示

Dim Label1() As Label
Dim a() As Integer, N As Integer
Private Sub Form_Load()
Command1.Enabled = False
For i = 1 To 9
Combo1.AddItem i
Next i
End Sub
Private Sub Combo1_Click()
N = Val(Combo1.Text)
ReDim Label1(1 To N * N) As Label
Call 控件数组(N)
Call 排序(N)
For i = 1 To N
For j = 1 To N
t = t + 1
Label1(t).Caption = a(i, j)
Next j
Next i
Combo1.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Command1_Click() ‘删除Label数组
For k = 1 To N * N
Controls.Remove ("Label1" & (k))
Next k
Combo1.Enabled = True
Command1.Enabled = False
End Sub
Private Sub 控件数组(Num As Integer) '创建Label数组
Set Label1(1) = Controls.Add("VB.Label", "Label1" & (1))
With Label1(1)
.FontSize = 14
.Visible = True
.BorderStyle = 1
.Top = Combo1.Top + Combo1.Height
.Left = Combo1.Left
.Height = 400
.Width = 800
.Caption = ""
End With
For k = 2 To Num * Num
i = (k - 1) \ Num
j = (k - 1) Mod Num
Set Label1(k) = Controls.Add("VB.Label", "Label1" & (k))
With Label1(k)
.Visible = True
.FontSize = 14
.BorderStyle = 1
.Top = Label1(1).Top + i * 400
.Left = Label1(1).Left + j * 800
.Height = 400
.Width = 800
.Caption = ""
End With
Next k
End Sub
Private Sub 排序(Num As Integer)
Dim Cnt As Integer, i As Integer, j As Integer
i = 1: j = 1
Dim 方向 As Integer '方向为0表示往左上方向走
ReDim a(1 To N, 1 To N)
Cnt = 1
While Cnt <= Num * Num / 2 + 1
a(i, j) = Cnt
a(Num + 1 - i, Num + 1 - j) = Num * Num + 1 - Cnt
Cnt = Cnt + 1
If 方向 = 0 Then
i = i + 1: j = j - 1
Else
i = i - 1: j = j + 1
End If
If i = 0 Then
i = 1: 方向 = 0
End If
If j = 0 Then
j = 1: 方向 = 1
End If
Wend
End Sub