急需一个VB源码，请教高手！！

Question

输入一个n*m的矩阵，各元素的值由键盘输入，求全部元素的平均值，并把高于平均值的元素，以及它们的行号和列号输出来。

Answer 1

dim lngDat(1 to n,1 to m) as Long
dim dblBuf as Double
dim i,j as integerfor i=1 to n
  for j=1 to m
    dblbuf=dblbuf+lngdat(i,j)
  next j
next idebug.print "平均值：" & dblbuf/(n*m)for i=1 to n
  for j=1 to m
    if lngdat(i,j)>dblbuf/(n*m) then
      debug.print "行：" & i & " 列：" & j & "," & intdat(i,j) & " 大于平均值"
    end if
  next j
next i

Answer 2

dim lngDat(1 to n,1 to m) as Long
dim dblBuf as Double
dim i,j as integerfor i=1 to n
  for j=1 to m
    dblbuf=dblbuf+lngdat(i,j)
  next j
next idebug.print "平均值：" & dblbuf/(n*m)for i=1 to n
  for j=1 to m
    if lngdat(i,j)>dblbuf/(n*m) then
      debug.print "行：" & i & " 列：" & j & "," & intdat(i,j) & " 大于平均值"
    end if
  next j
next i
这段代码就很清楚啦