某程序功能如下：數(shù)組a中存放了n*n個兩位隨機正整數(shù)，按n行n列在列表框List1  中 顯示（即第一行自左向右依次顯示a（1）～a（n），第二行自左向右依次顯示a（n+1）～a（2*n），??）。按（行號，列號）的形式在文本框Text1 中輸入某矩形區(qū)域的左上角位置（x₁，y₁），在文本框Text2 中 輸入右下角位置（x₂，y₂），單擊“水平翻轉(zhuǎn)”按鈕Command1，對以（x₁，y₁）和（x₂，y₂）為對角頂點的矩 形區(qū)域中的數(shù)據(jù)進行水平翻轉(zhuǎn)，并將變換后的n*n個數(shù)據(jù)保存到數(shù)組b中，最后在列表框list2  中按照 List1的格式顯示數(shù)組b中的數(shù)據(jù)。程序運行界面如圖所示。
（1）對于有8*8個元素構(gòu)成的數(shù)組a,如果輸入左上角位 置是（2，3），右下角位置是（7，5），水平翻轉(zhuǎn)后，則 元素a（27）的值在新數(shù)組保存在元素b（

29

29

 ）（填寫下標） 中。
（2）依據(jù)上述描述設(shè)計的VB  程序如下，請在橫線處填 入合適代碼。
Const  n=6
Dim a（1  To  n^2）As  Integer,b（1  To  n^2）As  Integer
Private  Sub  Form_Load （　?。?br />'產(chǎn)生n*n個兩位隨機正整數(shù)，保存數(shù)組a,顯示在List1中，代碼略。
End  Sub
Private  Sub  Command1_Click （　?。?br />Dim i  As  Integer,j  As  Integer,xy（1  To  4）As  Integer
Dim s  As  String,tmp  As  String,c  As  String s=Text1．Text+“，“+Text2．Text+“，“
tmp=““：j=0
For  i=1  To  Len（s）
c=Mid（s,i,1）
If c＞=“0“And  c＜=“9“Then tmp=tmp+c
Else
j=j+1

①

①

tmp=““
End  If
Next  i
For  i=1  To  n
For  j=1  To n
If i＞=xy（1）And  i＜=xy（3）And  j＞=xy（2）And  j＜=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