[单项选择题] 下面程序运行后，输出的结果是( )。 Dim arr(3,3) For i=1 To 3 For k=1 To 3Arr(j,k)=(j-1)*3+kNext kNext jF

[单项选择题] 下面程序运行后，输出的结果是( )。

Dim arr(3,3)

For i=1 To 3

For k=1 To 3Arr(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

B

依题意，声明一个三行三列的数组，并用嵌套for循环赋值如下： arr(1,1)=1 arr(2,1)=4 arr(3,1)=7 arr(1,2)=2 arr(2,2)=5 arr(3,2)=8 arr(1,3)=3 arr(2,3)=6 arr(3,3)=9 最后用Print函数输出arr(2，2)，arr(3，2)，空行，arr(2，3)，arr(3，3)。