由數組a生成數字方陣，并求方陣中對角線上數值的和：
1）將數組a中的n個元素依次分割出若干個數據塊，每個數據塊有m×m個元素。
2）對每個分割出的數據塊，按照數字方陣方式顯示。
3）找出數字方陣中對角線上的數值，求出它們的和，若分割的數據塊達不到m×m個元素，則忽略。
數字方陣過程如下：將數據塊中m×m個元素按行序排列成一個數字方陣，以3×3數據塊為例，排列過程如下圖所示：

找出對角線上的數值分別是：12，19，83和34，19，54，它們的和分別是114，107
小明依據上述描述設計了如下VB程序。請回答下列問題：
（1）當n=30時，如圖所示，分割出每個數據塊為2×2個元素，第二組數字方陣中的對角線和分別為

109 122

109 122

。

（2）請在橫線處填入合適的代碼。
Dim a（1To 30）As Integer
Private Sub Form_Load （　?。?br />'隨機生成30個不重復的正整數到a

i

i

數組中。代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim t As Integer,i As Integer,m As Integer,j As Integer,x As Integer
Dim s As String,tt As String
Dim start As Integer'當前數字方陣的第1個元素下標
m=Val（Text1．Text）
t=30\m^2
If t=0Then
MsgBox“重新輸入“
Else
List1．Clear
For i=1To t
start=

1+（i-1）*（m*m）

1+（i-1）*（m*m）

For j=1To m
For x=1To m
  tt=tt+

Str（a（start+（j-1）*m+x-1）

Str（a（start+（j-1）*m+x-1）

Next x
List1．AddItem tt
tt=““
Next j
List1．AddItem““
s=sum1（start,m）
List2．AddItem“第“+Str（i）+“組的對角線分別是：“+s
Next i
End If
End Sub
Function sum1（begin As Integer,m As Integer） As String
Dim s1As Integer,s2As Integer
s1=a（begin）
For i=1To m-1
s1=s1+a（begin+i*（m+1））
Next i
s2=0
For i=1To m
s2=s2+a（begin+i*（m-1））
Next i
sum1=

Str（s1）+Str（s2）

Str（s1）+Str（s2）

End Function