学进去

某灰度图像模糊处理算法描述如下：
①图像四周最外侧的像素点颜色值不变。
②图像中间各像素点的新颜色值为该像素点及其上下左右相邻四个像素点颜色值的平均值(四舍五入取整)。

例如，一幅分辨宰为5×4的图像模糊前和模糊后颜色值如图所示：
（1）一幅分辨率为800×600的图像，进行模糊处理时，有________个像素点需要重新计算其颜色值。
（2）请在划线处填入合适的代码。
Const n=10240
Dim a (1 To n) As Integer,b (1 To n) As Integer
Private Sub Commandl._Click( )

Dim r As Integer       '存储图像垂直分辨率

Dim c As Integer       '存储图像水平分辨率

Dim sum As Integer,k As Integer,i As Integer

Dim kl As Integer,k2 As Integer,k3 AsInteger,k4 AsInteger

'读取图像的原始像素值，依次存储到数组a中，代码略
'读取图像的水平分辨率和垂直分辨率分别存入c、r
i=0
Do While   ①  

For j=1 To c

        ②   

If i = 0 Or i=r-1 Then            '处理第1列和最后1列

b(k) = a(k)

Else If   ③  Then            '处理第1列和最后1列

b(k)=a(k)

Else                          '处理其他情况

k1=(i-1)*c+j
k2=(i+1)*c+j
k3=k-1
k4=k+1
sum=a(k)+a(k1)十a(k2)+a(k3)+a(k4)
b(k)=Int(sum/5+0.5)

End If

Next j
i=i+1
Loop
'依次输出模糊处理后的数据b
Labell.Caption=" "
For i=1 To r*c

Labell.Caption=Labell.Caption+Str(b(i))

Next i
End Sub