图为每行的最大值

这代码有错误，Max=a(i,1)这句不应该放在内层循环前面（你这样能求出最大值是巧合，要是改成这样求最小值就不行了），应该删掉，并且把If Max<a(i,j) Then这句改成If j=1 Or Max<a(i,j) Then；或者也可以在循环之前给Max一个确定的初值，但不是a(i,1)，而应该是所有数字的取值范围的下限（这里就是10）
改正代码之后，“行改列”最简单的改法就是：把所有的a(i,j)改成a(j,i)

好吧，有个问题我想简单了，求最大值的时候需要交换i和j，但是输出时不应该交换啊
这样，代码就有必要来个大改了，先说一下思路：写两个并列的二重循环，第一个产生数组数据并输出，第二个求每列最大值
代码如下：
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
Print a(i, j);
Next j
Print
Next i
Print "每列的最大值为："
For i = 1 To 5
Max = a(1, i)
For j = 2 To 5
If Max < a(j, i) Then Max = a(j, i)
Next j
Print Max;
Next i