参考答案

Option Base 1
Private Sub Form_Click()
    Const N = 5
    Const M = 5
    Dim Mat(M, N) As Integer
    Dim i, j
    Open App.Path & "\" & "datain.txt" For Input As #1
    For i = 1 To N
        For j = 1 To M
            Input #1, Mat%(i, j)
        Next j
    Next i
    Close #1
        Print
    Print "初始矩阵为："
    Print
    For i = 1 To N
        For j = 1 To M
            Print Tab(5 * j); Mat(i, j);
        Next j
        Print
    Next i
    Print: Print
    Print "右上 - 左下对角线上的数为："
    For i = 1 To N
        For j = 1 To M
            If i + j = 6 Then
                Print Tab(5 * i); Mat(i, j);
            End If
        Next j
    Next i
End Sub