【正确答案】正确答案：【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer Private Sub Command1_Click() N = 5 For i = 1 To N '＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝ '＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝ Next i Save End Sub Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & "/Data5.txt" For Input As #1 Do While Not EOF(1) For i = 1 To 5 For j = 1 To 5 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & "/out5.txt" For Output As #1 For i = 1 To 5 Print #1, b(i), c(i) Next i Close #1 End Sub 程序结束 参考答案 Max = a(i, 1) For j = 1 To 5 If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j 步骤3：调试并运行程序，关闭程序后按题目要求存盘。