问一个关于VB 的问题？

定义数组m,产生3个数组元素m(0),m(1),m(2)
Dim m(2)
通过循环，为数组元素赋初值，m(1)=0,m(2)=0
For i = 1 To 2
m(i) = 0
Next i
以下是二重循环，外循环i 可取值1，2；内循环j可取值1，2。
运行时：当外循环i=1时，内循环变量j的取值走一圈，如下：
i=1——j=1 m(1)=m(1)+1=1 输出m(k)即m(2) 结果为初值的0
i=1——j=2 m(2)=m(1)+1=2 输出m(k)即m(2) 结果为2
当外循环i=2时，内循环变量j的取值走一圈，如下：
i=2——j=1 m(1)=m(2)+1=2+1=3 输出m(k)即m(2) 结果为2
i=2——j=2 m(2)=m(2)+1=2+1=3 输出m(k)即m(2) 结果为3
注意：变量k的值始终不变
k = 2
For i = 1 To k
For j = 1 To k
m(j) = m(i) + 1
Print m(k);
Next j
Next i

纯粹是一道老师的作业题或测验题，考查是否会读循环程序。

Private Sub Command1_Click()
Dim m(2) '定义数组m(0),m(1),m(2)
For i = 1 To 2 '以下三行循环对数组初始化
m(i) = 0
Next i
k = 2 '循环次数初始化
For i = 1 To k '主循环,2次
For j = 1 To k '主循环的内嵌循环2次