vb语言中for each语句如何按行输出?

甜密的穷哥

在二维数组中用for each 结果总是按列输出很麻烦,所以请高手赐教
谢谢
DIM hf(4,4)'定义了一个5*5的二维数组
i=0:j=2  
    For k=1 To 25
     hf(i,j)=k
     If k mod 5=0 then
      i=i+1
     else
      i=i-1
      If i=-1 then i=4
      j=j+1
      If j=5 then j=0
     end If
next   
'输出结果
    newline=0
    For each temp in hf
    If newline mod 5=0 then document.write "<BR>"
     
     Document.write " " & temp & " "
    newline=newline+1
     
   Next
说明:
输入时是按行,一行一行输入数组中的.
输出时是按列,一列一列输出的.不我想要的所以请帮忙!
谢谢
终于友人来救火了
谢谢
不过请详细点好吗?
谢谢

zhangjian950617

二维数组用多重For循环好控制些