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

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

109 122

109 122

。

（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1To 30）As Integer
Private Sub Form_Load （　?。?br />'隨機(jī)生成30個(gè)不重復(fù)的正整數(shù)到a

i

i

數(shù)組中。代碼略
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'當(dāng)前數(shù)字方陣的第1個(gè)元素下標(biāo)
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）+“組的對(duì)角線分別是：“+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