двумерные массивы

Private Sub Command5_Click()
Dim n, i, s, sum, b As Integer
Dim a() As Integer
Cls
s = 0
sum = 0
Print "Ïåðâîíà÷àëüíàÿ ìàòðèöà:"
      ReDim a(1 To 12, 1 To 12)
      For i = 1 To 12
                  For J = 1 To 12
                        a(i, J) = Rnd * 10 - 1
                        Print a(i, J);
                  Next J
Print
      Next i
      For J = 2 To 12
                  For i = 1 To b
                  sum = sum + a(J, i)
                  If a(J, i) > 0 Then s = s + 1
                  Next i
            b = b + 1
      Next J
Print "Ñóììà ýëåìåíòîâ ðàñïîëîæåííûõ ïîä ïîáî÷íîé äèàãîíàëüþ = "; sum
Print "Êîëè÷åñòâî ïîëîæèòåëüíûõ ýëåìåíòîâ ðàñïîëîæåííûõ ïîä ïîáî÷íîé äèàãîíàëüþ = "; s
                  Print vbLf
Print "Ïðåîáðàçîâàííàÿ ìàòðèöà:"
      For i = 1 To 12
                  For J = 1 To 12
                        a(i, J) = a(i, J) + sum
                        Print a(i, J);
                  Next J
Print
      Next i
 
End Sub