主观

阅读下列程序。

Option Base 1

Private Sub Form_Click( )

Dim x(3, 3)

For j = 1 to 3

For k = 1 To 3

If j =k then x(J, k) = 1

If j < > k then x(j, k) = k

Next k

Next j

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

运行程序时,输出结果为【 】。

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服