诚请帮忙朋友，求这题VB程序＜先在此谢谢您！＞

dim i as integer,j as integer,m as integer,n as integer,k as integer,l as integer,p as integer,a(i,j)as integer,b(l) as integer，max as integer
for i = 1 to m-1
for j = 1 to n
if a(i,j)<a(i，j+1) then
k = a(i,j)
a(i,j)=a(i,j+1）
a(i,j+1)=k
end if
next j
b(l)=a(i,m)
next i

for l = 1 to n-1
if b(l)<b(l+1) then
p = b(l)
b(l)=b(l+1)
b(l+1)=p
end if
next l
max = p(n)
整道题的思路就是先找出每一行最大的元素
再从这些元素中找到最大的那个