用计算机进行文本信息的加工处理,【加试题】计算机的基本功能是计算，信息加工处理本质上都是通过计算完成的。现有一图像模糊处理的算法，以10*10像素图像的模糊处理为例，具体算法如下： ⑴各像素点的颜色...

(2)

请在划线处填入合适的代码。

Const

n = 10

Dim a(1 To 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)

________

i

= 1

Do While j > n

j = j - n

i = i + 1

Loop

'确定模糊处理的范围，处理范围的起始行，结束行，起始列，结束列保存到i1，i2，j1，j2中，代码略

For

i = i1+1 To i2-1    '中间像素点的模糊处理

For j = j1+1 To j2-1

________

a(k) = ave(k)

Next j

Next i

'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List2中，代码略。

End

Sub

Function

ave(k As Integer) As Integer

ave = ________

End Function