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

【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Max=a(i,1)将每行第一个数作为该行最大值，以便进行比较
For j=1 To 5
If Max＜a(i,j)Then '依次循环比较该行其他数，如有更大值，则替换max值
Max=a(i, j)
End If
b(i)=Max '最大值存入数组b中
If Max=a(i,j)Then c(i) =j'最大值的下标存入数组c中
Next j
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】[考点] 本题考点有：二维数组、嵌套循环、文件编辑、For循环语句以及If判断语句。
从考生文件夹下的文件中读出数据，放入5×5的二维数组a中。在命令按钮单击事件过程中，程序中变量Max保存最大数，最初把数组的第一个元素赋给Max，然后将其后的元素依次与之比较，如果大于Max的值则与之交换，依次类推，最终Max中的元素就是最大值，并把每一行的最大值保存到一维数组b中，通过For循环语句和If判断语句找出a数组中每行的最大值以及其在行中的位置，并将所找到的结果分别保存到一维数组c中，把最终的结果保存在文件out5.txt中。