麻烦帮我补全个程序

Option Base 1
Private Sub Form_Click()
Dim a()
n = InputBox("输入N") '本例n=9
？？？
For i = 1 To ？？？ '每一层图案上要显示的数字
For j = i To n - i + 1 '从外到里将数组中元素存放对应的数字
For k = i To n - i + 1
a(j, k) = i
Next k
Next j
Next i
For i = 1 To n
For j = 1 To n
Print Tab(j * 3); a(i, j);
Next j
？？？
Next i
End Sub

输出结果是：
1 1 1 1 1 1 1 1 1
1 2 2 2 2 2 2 2 1
1 2 3 3 3 3 3 2 1
1 2 3 4 4 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 4 4 3 2 1
1 2 3 3 3 3 3 2 1
1 2 2 2 2 2 2 2 1
1 1 1 1 1 1 1 1 1

请帮忙填全程序，非常感谢!

麻烦帮我写个程序 麻烦帮我看看单片机的程序! 麻烦各位Java高手帮我解释一下这个程序 麻烦大家帮我做个程序题，谢谢 麻烦大家帮我看一下C语言程序 麻烦各位帮我看看ASP程序哪里错误 麻烦哪位高人帮我修改下程序 麻烦大家帮我看一下C语言程序，标明每一行程序的意思 麻烦大家帮我看下,我的这段程序哪里错了? 麻烦帮我找一首歌~~~~~