VB的问题 阅读程度写出结果

来源：百度知道 编辑：UC知道 时间：2024/06/16 05:16:21
运行下面代码段后的结果为：_____________________。
Private sub form_click()
Dim a(3,3) as integer
For j=1 to 3
For k=1 to 3
a(j,k)=(j-1)*3+k
Next k
Next j
For j=2 to 3
For k=1 to 2
Print a(k,j);
Next k
Print
Next j
End sub

要过程 答案自己也有，做的不对。。。

题目中
For j=2 to 3
For k=1 to 2
Print a(k,j);
是什么意思啊？...

Private sub form_click()
Dim a(3,3) as integer '定义4 * 4的二维数据
For j=1 to 3 'j 从1到3进行循环
For k=1 to 3 'k 从1 到 3进行循环
a(j,k)=(j-1)*3+k 'a(j,k)=(j-1)*3+k
Next k '将k+1
Next j '将j+1
******************************
j=1,k=1: a(1,1)=(1-1)*3 +1=1
j=1,K=2: a(1,2)=(1-1)*3 +2=2
j=1,k+3: a(1,3)=(1-1)*3 +3=3
到此k循环结束,进入j的下次循环即将j加1,并再次启动k循环
j=2,k=1: a(2,1)=(2-1)*3 +1=4
j=2,k=2: a(2,2)=(2-1)*3 +2=5
j=2,k=3: a(2,3)=(2-1)*3 +3=6
进入j的第三次循环,
j=3,k=1: a(3,1)=(3-1)*3 +1=7
j=3,k=2: a(3,2)=(3-1)*3 +2=8
j=3,k=3: a(3,3)=(3-1)*3 +3=9
到这里已经给数组a()赋值了,但是并没有完全赋值,因为a()的下标是从0开始的,即a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(2,0) a(3,0)的值都默认为0
********************************

For j=2 to 3
For k=1 to 2
Print a(k,j);
Next k
Print
Next j
*************************循环打印*************************

j=2,k=1: print a(1,2) 输出为 2
j=2,k=2: print a(2,2) 输出为