计算机的基本功能是计算，信息加工处理本质上都是通过计算完成的。现有一图象模糊处理的算法，以10*10像素图象的模糊处理为例，具体算法如下：
（1）各像素点的颜色信息值（介于0至255之间的一个正整数），存储至数组a中。
（2）给定模糊处理的模糊中心位置p和模糊半径r（r＞1），中心位置p即为半径为1的区域，
①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；

②根据中心点和模糊半径确定模糊处理的像素点的范围。
（3）依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：最外侧的像素点颜色信息不变，中间各像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值。
程序运行时，在文本框Text1中输入模糊的中心点p,在文本框Text2中输入模糊的半径r,窗体加载，通过列表框List1输出图象模糊处理前的信息，单击命令按钮Command1后通过列表框List2输出模糊后的图象信息。程序运行效果如图b所示。相应的模糊中心位置由椭圆圈注，中间各像素点由矩形框圈注

实现上述功能的VB程序如下。请回答下列问题：
（1）若以a（48）为模糊中心，布置成如第17题图a所示数阵后模糊中心处于数阵的第  行。
（2）请在横线处填入合适的代码。
Const n=10
Dim a（1To n*n） As Integer'介于0至255之间的值，存储10*10图象像素点的颜色信息
Private Sub Form_Load （　　）
'读取100个正整数，存储在数组a中以表示10*10图片的像素点颜色信息，代码略。
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List1中，代码略。
End Sub
Private Sub Command1_Click （　　）
Dim r As Integer,p As Integer
Dim i As Integer,j As Integer,k As Integer
p=Val（Text1．Text）：r=Val（Text2．Text）
①

j=p

j=p

i=1
Do While j＞n
j=j-n
i=i+1
Loop
'确定模糊处理的范围，处理范围的起始行，结束行，起始列，结束列保存到i1，i2，j1，j2中，代码略
For i=i1+1To i2-1'中间像素点的模糊处理
For j=j1+1To j2-1
②

k=（i-1）*n+j

k=（i-1）*n+j

a（k）=ave（k）
Next j
Next i
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List2中，代码略。
End Sub
Function ave（k As Integer） As Integer
ave=③

（a（k-1）+a（k+1）+a（k+n）+a（k-n））\4

（a（k-1）+a（k+1）+a（k+n）+a（k-n））\4

End Function