Text1.text="相同":j=1
Do while j<=len(s2)
If mid(s1, 1, 1)=mid(s2, j, 1) then
s1=mid(s1, 2, len(s1)-1)
s2=mid(s2, 1, j-1)+mid(s2, j+1, len(s2)-j)
Else
If 
Text1.text="不相同"
End if
End if
Loop
方框中的代码由以下三部分组成：
①j=j+1 ②j=1 ③j=len（s2）+1
则（1）、（2）、（3）中代码顺序正确的是（ ）
Dim a(1 to 5) as integer
Dim b(1 to 20) as integer
a(1)=10: a(2)=9: a(3)=17: a(4)=18: a(5)=13
for i=1 to 5
b(a(i))=b(a(i))+1
next i
num =0
for j=1 to 20
for k=1 to b(j)
num=num+1
a(num)=j
next k
next j
执行该程序段后，数组元素a（1）到a（5）的值依次为（ ）
|
图a |
请帮助小明同学对表格数据进行下列分析：
|
图b |
|
图a |
|
图b |
|
序号 |
第1列 |
第2列 |
…… |
第25列 |
第26列 |
|
列号 |
A |
B |
Y |
Z |
|
|
序号 |
第27列 |
第28列 |
…… |
第51列 |
第52列 |
|
列号 |
AA |
AB |
AY |
AZ |
|
|
…… |
|||||
|
序号 |
第703列 |
第704列 |
…… |
第727列 |
第728列 |
|
列号 |
AAA |
AAB |
AAX |
AAZ |
|
为了方便查看，小明编写了“Excel列号转换”程序，程序运行时，用户在文本框Text1中输入数字列号，点击按钮command1，在文本框Text2中输出它的字母列号；反之在文本框Text2中输入字母列号，单击按钮command2，在文本框Text1中输出它的数字列号。程序运行界面如图所示：
程序运行的代码如下，请回答下列问题：
|
'将数字列号转换为字母列号 Private Sub Command1_Click( ) Const code = “ABCDEFGHIJKLMNOPQRSTUVWXYZ” Dim s As String Dim n As Integer Dim r As Integer ① s =“” Do While n > 0 ② n = n \ 26 s = Mid（code, r, 1） + s Loop Text2.Text = s End Sub |
'将字母列号转换为数字列号 Private Sub Command2_Click( ) Dim s As String Dim n As Integer Dim ch As String s = Text2.Text n = 0 For i = 1 To Len（s） ch = Mid（s， i， 1） ③ Next i Text1.Text = Str（n） End Sub |
1）各像素点的颜色信息值（介于0至255之间的一个正整数，由计算机随机生成），存储至数组a中，a的排列方式如图a所示。
|
图a |
2）给定模糊处理对分模糊中心位置p和模糊半径r（r>1）。
①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；
②根据中心点和模糊半径确定模糊处理的像素点的范围
3）依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：每个像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值（取整数）。
| 图b |
程序运行时，列表框List1中显示图像模糊前的信息，在文本框Text1中输入模糊的中心点p，在文本框Text2中输入模糊的半径r，单击命令按钮Comman的后在列表框List2中输出模糊后的图像信息。程序运行界面如图b所示，椭圆标记的为模糊中心p，矩形框表示的为模糊范围。
实现上述功能的VB程序如下。请回答下列问题：
Const n = 10
Dim a(1 To 10 * 10) As Integer
Private Sub Command1_Click()
Dim p As Integer, r As Integer
Dim x As Integer, y As Integer
Dim i1 As Integer, i2 As Integer, j1 As Integer, j2 As Integer
Dim i As Integer, j As Integer
Dim k As Integer, k1 As Integer, k2 As Integer, k3 As Integer, k4 As Integer
Dim s As String
p = Val(Text1.Text)
r = Val(Text2.Text)
x = (p - 1) \ n + 1
①
i1 = x - r + 1: i2 = x + r - 1
j1 = y - r + 1: j2 = y + r - 1
If i1 < 1 Then i1 = 1: If i2 > n Then i2 = n
If j1 < 1 Then j1 = 1: If j2 > n Then j2 = n
For i = i1 To i2
For j = j1 To j2
k = (i - 1) * n + j
k1 = (i - 2) * n + j
k2 = i * n + j
k3 = (i - 1) * n + j - 1
k4 = (i - 1) * n + j + 1
a(k) = (a(k1) + a(k2) + a(k3) + a(k4)) \ 4
Next j
Next i
s = ""
For i = 1 To n * n
s = s + adj(a(i), 5)
If i Mod n = 0 Then
List2.AddItem s
s = ""
End If
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer
Dim s As String
For i = 1 To n
s = ""
For j = 1 To n
②
s = s + adj(a((i - 1) * n + j), 5)
Next j
List1.AddItem s
Next i
End Sub
Function adj(x As Integer, y As Integer) As String
Dim t As String, i As Integer
t = Str(x)
For i = 1 To y - Len(t)
t = " " + t
Next i
③
End Function
① ② ③
