阅读下列程序。
Option Base 1
Private Sub Form _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j＜＞k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k)；
Next k
Next j
End Sub
运行程序时，输出结果为 【14】 。