下面程序运行后,输出的结果是Dim arr(3,3)For j=1 To 3For k=1 To 3Art(j,k)=(j－1)*3＋kNext kNex

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

Dim arr(3，3)

For j=1 To 3

For k=1 To 3

Art(j,k)=(j-1)*3+k

Next k

Next j

For j=2 To 3

For k=2 To 3

Print arr(k,j)；

Next k

Print

Next j

A．25 36

B．58 69

C．47 58

D．59 68

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