没头绪的一个程序，大虾进来看看好不？

你的图没错么？第六列中间的三个一应该是二吧

我做出来了，觉得应该是你要的效果
Private Sub Command1_Click()
Picture1.Cls
Dim Num1, Num2, x1, y1 As Integer
Num1 = Val(Text1.Text)   '取值
Num2 = (Num1 + 1) / 2    '取中间值
ReDim XY(Num1, Num1) As Integer    '定义二维数组
For i = 1 To Num1
     For j = 1 To Num1
         x1 = Num2 - Abs(i - Num2)    '当前行数的最大值X1
         y1 = Num2 - Abs(j - Num2)    '当前列数的最大值Y1
        
         If x1 > y1 Then      '取两者的最小值
             XY(i, j) = y1
         Else
             XY(i, j) = x1
         End If
        
         Picture1.Print XY(i, j);
     Next j
     Picture1.Print
Next i
End Sub
一个command，一个text，一个picture。