Const m=12：Const n= 6

Dim a(1 Tom*n) As Integer

Private SubForm_Load()

‘生成m*n个数据，并显示在列表框List 1，代码略

End Sub

Private Sub Command1_Click()

   Dim i As Integer， j As Integer， k As Integer， temp As Integer 

   Dim length As integer， begin As Integer， sum As Integer

   Dim ks As String， js As String

   Dim xy( 1 to 4) As Integer， h sum(1tom*n) As Integer

   ‘读取文本框Text 1的数值分别存储到数组xy(1)、xy(2)，读取文本框Text 2的数值分别存储到数组xy(3)、xy(4)，xy(1)、xy(3)表示所在行，xy(2)、xy(4)表示所在列，代码略

     For i=1 To xy(3) -xy(1) + 1

       h sum(i) = 0

   Next i

   ‘求限定区域内每行数据之和

   For i=1 To xy(3) -xy(1) + 1

   For j= 1 To   ① 

       h sum(i) =h sum(i) +a((xy(1) +i-2) *n+xy(2) +j-1)

   Next j

   Next i

   ‘找出最大连续之矩阵和

   temp =0：sum=0：length=0：begin= 0

   For i=1 To xy(3)-xy(1) + 1

      If temp+h sum(i) >sum Then

        sum=temp+h sum(i)

       length=i-begin

       k=i

     ElseIf temp+h sum(i) =sum And   ②   Then

       length=i-begin

    k=i

  End If

  If temp+h sum(i) < 0 Then

    begin=i

    temp= 0

  Else

    temp=temp+h sum(i)

    End If

Next i

    ks=“(“  ③  ”+Str(xy(2) ) +) ”    ‘开始位置

    js=“(“+Str(k+xy(1) -1) +” “+Str(xy(4) ) +”) ”    ‘结束位置

  Label 3.Caption=“最大子矩阵和为：”+Str(Sum)

  Label 4.Caption=“子矩阵中的元素个数为：”+Str(length*(xy(4) -xy(2) +1) )

  Label 5.Caption=“子矩阵位置为：”+ks+“，”+js

End Sub

① ② ③