问题
单项选择题
下面程序运行后，输出的结果是 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For j=2 To 3 Print art(k,j)； Next k Print Next j
A．2 5 3 6
B．5 8 6 9
C．4 7 5 8
D．5 9 6 8
答案
参考答案：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)。