（1） 若以a(48)为模糊中心，布置成如图a所示数阵后模糊中心处于数阵的第行。

（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

（1） 根据上述加密算法，若输日期为“20000101”，则生成的注册码为。

（2） 小张根据上述加密算法，设计了一个对应的解密程序，其VB代码如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, s As String, k As Integer

Dim mw As String, sum As Integer, t As Integer, t1 As Integer

strl="0123456789"

s=Text1.Text

   ① 

t=k: sum=t

s1=Mid(strl, t+1, 1)

For i=7 To 1 Step-1

t1=Asc(Mid(s, i, 1))-64

j=    ② 

s1=Mid(strl1, t+1, 1)+s1

sum=sum+t

Next i

mw=jm(k)

If sum>26 Then

sum=sum Mod 26

ch=Chr(Asc(Mid(mw, sun, 1))+32)

Else

ch=Mid(mw, sum, 1)

End If

If ch=Mid(s, 9, 1) Then Text2.Text=s1

Else Text2.Text="该系列号未能通过验证!"

End Sub

Function jm(t As Integer) As String

Dim i As Integer, p As Integer

If t=0 Then t=10

For i=1 To 26

p=(t+i-1) Mod 26

   ③ 

Next i

End Function

① ② ③