问题
单项选择题
下面程序运行后，输出的结果是( )。
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 jA) 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)。