急呀急！！！编制通过Sub过程，在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号列号

Question

数组的定义、初始化、原始输出及排序后的顺序输出全部在主程序里完成，作业要求单独完成选择法排序而已调试时请在command1_click（）过程里完成其他必要准备。

Answer 1

private sub findmax(x() as single, m as byte, n as byte, xmax as single, ki as byte, kj as byte))
xmax = x(1,1)
ki =1
kj =1
for i = 1 to m
for j = 1 to n
x(i, j) = abs( x(i, j) )
if x(i, j)>xmax then
xmax = x(i, j)
ki = i
kj = j
end if
next j
next i
print xmax; i; j
end sub追问

在调试时请在command1_click（）过程里完成其他必要准备 这个程序是怎么写的呢？