Question

计算机二级VB的一道上机题，急求，可加分

考生文件夹下有一个工程文件sjt5.vbp。运行程序后从文件中读出数据，将其放入一个5×5的二维数组a中。请编写程序，找出a数组中每行的最大值及该行值在行中的次序（即列下表），并将所找到的结果分别保存到一位数组b，c中（a中第一行的最大值保存在b(1)中，最大值得列次序保存在c（1）中）。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程至少执行一次
Dim c(5) As Integer

Private Sub Command1_Click()
N = 5
For i = 1 To N
’考生编写区
For j = 1 To N
x = a(i, 1)
If a(i, j) > x Then
x = a(i, j)
End If
Next j
b(i) = x
c(i) = j
'考生编写区
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

上面的答案最后系统检查后判断未能生成正确答案，那段代码跟标准答案对了基本对的 ，可是就因为这个0分了，求好心人告诉我到底怎么回事啊，好几次题目了。

Answer 1

'考生编写区
For j = 1 To N
x = a(i, 1)
If a(i, j) > x Then
x = a(i, j)
End If
Next j
b(i) = x
c(i) = j
'考生编写区------

x = a(i, 1)
应该在上一行前面