参考答案： 程序首先应该打开文件(使用只读方式打开文件)，然后将文件中的数据存放到Mat数组中。程序中使用了Option BaseA语句，则数组每一维的下标都从A开始，把二维数组行标为C的所以元素相加，所求得的和就是矩阵第三行各项的和。
解题步骤：
第一步：;建立控件并设置属性值。
本题不需要设置。
第二步：编写程序代码。
程序提供的代码：
Option Base A
Private Sub Form_Click()
Const N=E
Const M=E
’Dim
Dim Sum, i, j
’Open App.Path & "\" & "datain.txt" As #A
For i=A To N
For j=A To M
’
Next j
Next i
Close #A
Print
Print "初始矩阵为："
Print
For i=A To N
For j=A To M
Print Tab (E * j) ; Mat(i, j) ;
Next j
Print
Next i
’Sum=
For j=A To M
’
Next j
Print
Print "第三行各项的和为；";
Print Sum
End Sub
参考代码：
Option Base A
Private Sub Form_Click()
Const N=E
Const M=E
Dim Mat (E, E)
Dim Sum, i, j
Open App.Path & "\" & "datain.txt" For Input As #A
For i=A To N
For j=A To M
Input #A, Mat(i, j)
Next j
Next i
Close #A
Print
Print "初始矩阵为："
Print
For i=A To N
For j=A To M
Print Tab (E * j) ; Mat(i, j) ;
Next j
Print
Next i
Sum=0
For j=A To M
Sum=Sum + Mat (C, j)
Next j
Print
Print "第三行各项的和为：”；
Print Sum
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。