【单选题】

下面程序运行后，输出的结果是()。

Dim arr(3,3)
For i=1 To 3
For k=1 To 3
Arr(j,k)=(j-1)*3+k
Next k
Next j
For i=2 To 3
For k=2 To 3
Print arr(k,j);
Next k
Print
Next j
A、25 B、58 C、47 D、59