Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Sub
人气:443 ℃ 时间:2020-01-29 21:28:09
解答
为了说明方便,给每个语句前面加上行号
1 for i=1 to 3
2 for j=i to 1
3 a=a+1
4 next j
5 next i
6 print a
程序执行语句1时,循环初值 i=1 小于终值3,所以程序执行语句2-4
语句2 因i=1,所以循环初值 j=1 等于终值1,所以程序执行语句3 ( a=a+1),如果前面没有给a设置过数值,那么a的初始值为0,那么a=1;如果前面给变量a设置过数值,那么a=原值+1
语句4 next j 意思就是j+1,因为j=1,所以j+1=2比循环终值1大,结束该循环.执行语句5
语句5与语句4意思一样,因为i=1,所以i+1=2比循环终值3小,返回执行语句2
语句2 因i=2,所以循环初值j=2大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=2,所以i+1=3等于循环终值3,返回执行语句2
语句2 因i=3,所以循环初值j=3大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=3,所以i+1=4大于循环终值3,结束循环,执行语句6
语句6 print a 是在窗体输出变量 a 的值.(如果前面没有给a设置过数值,那么a=1;如果前面给变量a设置过数值,那么a=原值+1)
推荐
- Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
- Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
- 设Sn是等差数列的{an}前n项和,且S9=18,Sn=240,若an-4=30(n>9),则n的值为( ) A.13 B.14 C.15 D.16
- 如梦令常记溪亭日暮中“惊”体现了作者怎样的心理状态
- 太阳东升西落,实际上是地球由西向东自转的缘故?
- 如图,在三角形ABC中,CD是AB边上的高,AC=4,BC=3,DB= 9/5 Q:①求AD的长 ②三角形ABC是直角三角形吗?
- 新推出的一个圆柱形饮料罐的侧面需要贴一圈标签,已知饮料罐的低面直径是10厘米,高是15厘米,标签纸的最大
- 求出最小的正整数n,使其恰有144个正约数,并且其中有十个是连续的整数.
猜你喜欢