有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3

首先说明一下,你的代码是不正确的,建议修改如下:
Dim arr(3,3)
For j = 1 To 3
For k = 1 To 3 '设置循环
arr(j,k) = (j - 1) * 3 + k '将(j-1)*3+k(k每循环一次加1)的值放在数组arr中
Next k
Next j
For j = 2 To 3
For k = 2 To 3 '设置循环
Print arr(k,j) '通过循环,显示arr(2,2)到arr(3,3)的值
Next k
Next j
在上面的arr(j,k) = (j - 1) * 3 + k 是给arr赋值的操作,运行结束后arr数组中的值是:
arr(1,1)=1
arr(1,2)=2
arr(1,3)=3
arr(2,1)=4
arr(2,2)=5
arr(2,3)=6
arr(3,1)=7
arr(3,2)=8
arr(3,3)=9
输出结果,即输出数据arr(2,2) arr(3,2) arr(2,3) arr(3,3)的值:
5
8
6
9