VB动态数组问题

在窗体上画一个按钮（其name属性为command1），然后编写如下代码

option base 1

private sub command1-click()

dim a(4,4)

for i=1to4

for j=1to4

a(i,j)=(i-1)*3+j

next j

next i

for i=3to4

for j=3to4

print a(j,i)

next j

print

next i

end sub

程序运行后，单击命令按钮，其输入结果为（）

A6    9                B7      10

  7    10                 8      11

C8    11              D9       12

   9    12                10      13

请各位高手教教小弟，小弟刚学，拜托把过程说详细一点，小弟感激不尽

答案：D

dim a(4,4)

for i=1to4

for j=1to4

a(i,j)=(i-1)*3+j

next j

next i

这段先是声明了个二维数组a(4,4)

然后就是一个双重循环

就得到了a(1,1)=

    a(1,2)=

  a(1,3)=

a(1,4)=

a(2,1)=

a(2,2)=

…………

等十六个数

怎么算的就是分别把 I，j带入那个表达式就行了

for i=3to4

for j=3to4

print a(j,i)

next j

print

next i

这段就是一个二重循环

再窗体上输出 a(3,3)  a(4,3)

    a(3,4)  a(4,4)

空print 是换行的意思

答案是D，a(3,3)=9 a(3,4)=10 a(4,3)=12 a(4,4)= 13