1楼：瑞智
privatesubcommand1_click()dima(1to4,1to5)asintegerdimiasinteger,jasintegerdimtasinteger,maxasintegerfori=1to4‘随机赋值
forj=1to5
randomize
a(i,j)=1+int(100*rnd)next
next
fori=1to4'显示数组
forj=1to5
printa(i,j);
next
next
fori=1to4‘找每行最大值max=a(i,1)
forj=2to5
ifa(i,j)>maxthenmax=a(i,j)
next
print"第"&i;"行最大值="&maxnext
forj=1to5'找每列最大值max=a(1,j)
fori=2to4
ifa(i,j)>maxthenmax=a(i,j)
next
print"第"&j;"列最大值="&maxnext
endsub
运行效果：
2楼：百度网友
' 假设已经给二维数组ary(3,4)赋值dim max
for i=0 to 3
max=ary(i,0)
for j=0 to 4
if max prit max next 求二维数组中最大元素及其所在的行和列 3楼：a罗网天下 程式如下： #include //定义头文件 void main() //主函数 int i,j,row = 0 ,colum = 0,max; //定义整型的i,j,定义行列及最大值 int a[3][4]=,,}; //定义一个二维数组 max = a[0][0]; for(i=0;i<=2;i++) //利用for进行循环 for(j=0;j<=3;j++) if(a[i][j]>max) //进入循环体，开始循环 max = a[i][j]; //定义最大值的数组 row = i; //提取出行 colum = j; //提取出列 printf("max=%d,/nrow = %d,/ncolum = %d/n",max,row,colum); //结束输出结果 运行结果如下： max=10, nrow = 2, ncolum = 1 二维数组a[m][n]，这是一个m行，n列的二维数组。设a[p][q]为a的第一个元素，即二维数组的行下标从p到m+p，列下标从q到n+q，按“行优先顺序”存储时则元素a[i][j]的地址计算为： loc(a[i][j]) = loc(a[p][q]) + ((i p) * n + (j q)) * t loc(a[i][j]) = loc(a[p][q]) + ((j q) * m + (i p)) * t 存放该数组至少需要的单元数为(m-p+1) * (n-q+1) * t 个字节 4楼：硪去年买了個裱 private sub command1_click()dim a() as integer m = inputbox("请输入行数m:")n = inputbox("请输入列数n:")redim a(m, n) for i = 1 to m for j = 1 to n a(i, j) = inputbox("请输入a(" & i & "," & j & ")") print a(i, j); next j print next i max = a(1, 1) for i = 1 to m for j = 1 to n if max < a(i, j) thenmax = a(i, j) x = i y = j end if next j next i print print "最大值为" & max & "在第" & x & "行" & y & "列" end sub 5楼：知不足而后进 #include intmain() for(i=m-1;i>=0;i--) for(j=n-1;j>=0;j--) }printf("%d\n",max); for(i=0;i<=p-1;i++) printf("%d%d\n",b[i],c[i]); return0; }//用的c语言，第一先找到最大值，第二把各个下标记录下来 1楼 匿名用户 option base 1 private sub mand1 click randomize dim intarray 5 5 as integer i as integer j as integer intevennumbercount as integer for i 1 to...VB编程:定义5 5的二维数组，其数组元素为10到99间