学进去

某程序功能如下：数组a中存放了n*n个10到99之间的随机整数，按n行n列的形式在列表框List1中显示（即第一行依次显示a(1)～a(n)，第二行依次显示a(n+1) ～a(2*n)，依次类推）。在文本框Text1中输入某矩形区域的左上角位置(x1,y1)（注：x1表示列号，y1表示行号），在文本框Text2中输入右下角位置(x2,y2)，单击“垂直翻转”按钮Command1，对以(x1,y1)和(x2,y2)为对角顶点的矩形区域中的数据进行垂直翻转，并在列表框list2中显示。程序运行界面如图所示。

（1）依据上述描述设计如下VB程序。请在划线处填入合适的代码。
Const n = 5
Dim a(1 To n ^ 2) As Integer, b(1 To n ^ 2) As Integer
Private Sub Form_Load()
‘产生n*n个10到99之间的随机整数存数组a，并在List1中显示。代码略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, value As String, c As String, xy(1 To 4) As Integer
s = Text1.Text + "，" + Text2.Text
value = "": j = 0
For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

value = value + c

Else

_________①__________

xy(j) = Val(value): value = ""

End If

Next i
xy(4) = Val(value)
For i = 1 To n

For j = 1 To n

If j >= xy(1) And j <= xy(3) And i >= xy(2) And i <= xy(4) Then

b((i - 1) * n + j) =___________②____________

Else

b((i - 1) * n + j) = a((i - 1) * n + j)

End If

Next j

Next i
List2.Clear:c=””
For i = 1 To n*n

c = c + Str(b(i))

if _______③_________ then

List2.AddItem c

c=””

end if

Next i
End Sub
（2）对于有10*10个元素构成的数组a，如果输入左上角位置是（2，3），右下角位置是（6，7），垂直翻转后，则元素a(23)在新数组中的位置是______________。