帮帮我啊，列坐标不对啊

编一程序用INPUTBOX函数输入12个整数，赋值给3*4的二维数组，求出其中最大元素及其它的行列坐标

Private Sub Form_Click()
Dim i, j, k, m, max As Integer
Dim a(1 To 3, 1 To 4) As Integer
For i = 1 To 3
    For j = 1 To 4
        a(i, j) = Val(InputBox(""))
        Print a(i, j);
    Next j
    Print
Next i
max = a(1, 1)
k = 1
m = 1
For i = 1 To 3
    For j = 1 To 4
        If a(1, 1) < a(i, j) Then
        k = i
        m = j
        max = a(i, j)
        End If
    Next j
Next i
Print i, j, max
End Sub

最后的一个Loop：

For i = 1 To 3
    For j = 1 To 4
       If max < a(i, j) Then
    k = i
    m = j
    max = a(i, j)
    End If
    Next j
Next i