急求VB法，一道二维数组~~

Dim f As Variant
Dim h(3, 3) As Integer
Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer, tmp As Integer
Dim row(3) As Integer, lines(3) As Integer
f = Array(25, 36, 78, 13, 12, 26, 88, 93, 75, 18, 22, 32, 56, 44, 36, 58)
'将f一维数组的数据存入二维数组h中
For i = 0 To UBound(f)
h(j, k) = f(i)
k = k + 1
If k = 4 Then
k = 0
j = j + 1
End If
Next
'1.输出矩阵两个对角线上的数。
Form1.Show '少了这行将不会显示.因为刚刚Load时,窗体还是不可见的.
j = 0
For i = 0 To UBound(h)
Print h(i, j) & ",";
j = j + 1
Next

For i = 0 To UBound(h)
j = j - 1
Print h(i, j) & ",";
Next
Print Chr(13) & Chr(10) '回车换行
'2.分别输出各行和各列的和。
For i = 0 To UBound(h)
For j = 0 To UBound(h)
row(i) = row(i) + h(i, j)
lin