VB编程，输出一个二维数组中每一列的最大值,并指出所在行

Question

如题所述

Answer 1

option base 1
private sub cmd1_click()
dim i,j,a(3,3) as integer
dim b(3) as integer
for i=1 to 3
for j=1 to 3
a(i,j)=i+j
next j
next i
for i=1 to 3
for j=1 to 3
if b(i)<a(j,i) then
b(i)=a(j,i)
end if
next j
next i
end sub
其中，一维数组b存放的就是每行的最大值，而其对应的下标就是其所在行。追问

运行了，没东西出来

追答

唉，上面的代码只是求出来结果，你还要稍微写一些代码输出的！
你在最后再添加一些代码：
for i=1 to 3
print "行数："； i； "值："；b(i)
next i

追问

还是不行