神马品牌网奇迹暖暖战士的搭配:vb中的数组问题!!!!!!!!
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 08:22:55
option base 1
private sub command1_click()
dim a(4,4)
for i=1 to 4
for j= 1 to4
a(i,j)=(i-1)*3+j
next j
next i
for i =3 to 4
for j 3 to 4
print a(j,i);
next j
print
next i
end sub
知道了结果 9,12,10,13
可是不太懂过程,知道的麻烦说了,谢谢了,详细点哦!!!
private sub command1_click()
dim a(4,4)
for i=1 to 4
for j= 1 to4
a(i,j)=(i-1)*3+j
next j
next i
for i =3 to 4
for j 3 to 4
print a(j,i);
next j
next i
end sub
知道了结果 9,12,10,13
可是不太懂过程,知道的麻烦说了,谢谢了,详细点哦!!!
option base 1 '数组下标从1开始
private sub command1_click()
dim a(4,4) '定义2维数组
for i=1 to 4'for 循环
for j= 1 to4 '嵌套，先进行内循环
a(i,j)=(i-1)*3+j '内循环第1次:i=1,j=1,a(1,1)= (1-1)*3+1 = 1,第2次,i =1,j=2,a(1,2)=(1-1)*3+2=2
'第3次,a(1,3)=3,第4次 a(1,4)=4,跳出,i=2,再次进入内循环,a(2,1) = (2-1)*3+1=4....
next j
next i
for i =3 to 4
for j 3 to 4
print a(j,i); '第一次内循环,打印a(3,3)=9,a(3,4)=12...第二次,打印a(4,3)=10,a(4,4)=13
next j
print
next i
end sub