VB题:程序运行后,单击窗体,输出结果是? 求过程~
OptionBase1PrivateSubForm-Click()DimArr(4,4)AsIntegerFori=1to4Arr(i,j)=(i-1)*2+jNextj...
Option Base 1
Private Sub Form -Click ( )
Dim Arr ( 4, 4 ) As Integer
For i=1 to 4
Arr (i ,j )=( i - 1)*2 +j
Next j
Next i
For i =3 to 4
For j=3 to 4
Print Arr (j ,i );
Next j
Print
Next i
End Sub
答案是 7 9
8 10
不过为什么?
我不明白~ 展开
Private Sub Form -Click ( )
Dim Arr ( 4, 4 ) As Integer
For i=1 to 4
Arr (i ,j )=( i - 1)*2 +j
Next j
Next i
For i =3 to 4
For j=3 to 4
Print Arr (j ,i );
Next j
Next i
End Sub
答案是 7 9
8 10
不过为什么?
我不明白~ 展开
2011-08-20
展开全部
我感觉答案里应该没有空格,我按我的思路说了一下,希望对你有帮助
Option Base 1
Private Sub Form -Click ( )
Dim Arr ( 4, 4 ) As Integer
For i=1 to 4
Arr (i ,j )=( i - 1)*2 +j
Next j
Next i
这一堆都是赋值语句,给一个二维数组赋值
其中 arr(3,3)=7
arr(4,3)=9
arr(3,4)=8
arr(4,4)=10
剩下的则是输出语句
当i=3时,,首先是输出arr(3,3)=7分号代表紧凑格式也就是没有空格接着输出arr(4,3)=9
i=3的循环完毕,Print换行
继续执行i=4时的循环
Option Base 1
Private Sub Form -Click ( )
Dim Arr ( 4, 4 ) As Integer
For i=1 to 4
Arr (i ,j )=( i - 1)*2 +j
Next j
Next i
这一堆都是赋值语句,给一个二维数组赋值
其中 arr(3,3)=7
arr(4,3)=9
arr(3,4)=8
arr(4,4)=10
剩下的则是输出语句
当i=3时,,首先是输出arr(3,3)=7分号代表紧凑格式也就是没有空格接着输出arr(4,3)=9
i=3的循环完毕,Print换行
继续执行i=4时的循环
追问
也就是说执行顺序是先外循环再内循环,对吗?
追答
恩,先确定外循环的一个值,比如这一题的i=3
接着执行内循环,内循环完毕后,就是将j =3 4都实行完后
再接着执行剩下的外循环,比如这一题的i=4
接着又是执行内循环
ps:这样应该可以理解吧
展开全部
这是一个内部嵌套循环。当i=3时,j有两种取值,取值为3时,Arr (j ,i )=(3-1)*2+3=7;
取值为4时,Arr (j ,i )=(4-1)*2+3=9;
当i等于4时,j取值有3和4两种,即,Arr (j ,i )=(3-1)*2+4=8;
Arr (j ,i )=(4-1)*2+4=10;
这个程序通过For i=1 to 4这行代码得出i为外层循环,通过For i =3 to 4
For j=3 to 4
Print Arr (j ,i );三行代码得出此程序运行取值不需要从1开始,他要求输出的是i;j取3和4 的值。
取值为4时,Arr (j ,i )=(4-1)*2+3=9;
当i等于4时,j取值有3和4两种,即,Arr (j ,i )=(3-1)*2+4=8;
Arr (j ,i )=(4-1)*2+4=10;
这个程序通过For i=1 to 4这行代码得出i为外层循环,通过For i =3 to 4
For j=3 to 4
Print Arr (j ,i );三行代码得出此程序运行取值不需要从1开始,他要求输出的是i;j取3和4 的值。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询