原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
分支结构题型分析
(1)运行下面的程序，单击窗体后在窗体上显示的第一行结果是 [1];第二行结果是[2]
第三行结果是 [3]。
Private Sub Form_Click()
Dim i As In teger, s As In teger
Fori = 1 To 10
s = s + i If s 10 The n
Print s
s = 0
End If
Next i
End Sub
i
s
打印
0
0
1
1
2
3
3
6
4
10
5
15
15
0
6
6
7
13
13
0
8
8
9
17
17
0
10
答案：(1)15
13
17
(1)执行下面程序，第一行输出结果是 [1]，第二行输出结果是 [2]
(2)55
2.执行下面的程序，第一行输出结果是 11 ，第二行输出结果是 —-20.
For I = 1 To J
I = I + 1 J = J - I
Next I
Print I
Print J
End Sub
3
4
8-4=4
5
6
4-6=-2
7
8
-2-8=-10
9
10
-10-10=-20
11
11
-20
分析：J的变化不影响循环终值 10。
2.执行下面的程序，第一行输出结果是 3 ，第二行输出结果是 —-18___
Opti on Explicit
M
N
K
打印
Private Sub Form_Click()
6
-3
0
Dim M As In teger,N As In teger,K As In teger
6+1=7
-3-7=-10
0+1=1
N=-3
4
For M=6 To 1 Step N
4+1=5
-10-5=-15
1 +仁2
M=M+1
2
N=N-M
2+仁3
-15-3=-18
2+1=3
K=K+1
Next M
0
3
-18
Print K
Print N
End Sub
34.在过程中由语句 For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中 ―34.
会影响循环执行的次数。
① N仁N1+I ② N2=N2+N3 ③ l=l+N3 ④ N3=2*N3
（A）①② （B）①②③ （C）③ （D）①②③④
答案：C
分析：当循环变量被改变了值后，将会影响循环次数。
执行下面程序，在窗体上显示的输出结果的第二行是 -4-5-6 ，第五行是 9-87
第六行是 6 5 4 。
Opti on Explicit
Private Sub Form_Click()
Dim a(3, 3)As In teger, i As In teger
Dim j As In teger, k As In teger
Fori = 1 To 3
1 2 3
4 5 6
Forj = 1 To 3 a(i, j)=(i - 1)* 3 + j Print a(i, j);
Next j
Print
Next i
Print
k =(i - 1)* 3
Fori = 1 To 3
Forj = 1 To 3 a(i, j)= k k = k - 1 Print a(i, j);
Next j
Print
Next i
End Sub
7 8 9
k=9
9 8 7
6 5 4
3 2 1
分析：退出循环后的循环变量为终值加步长。
执行下面的程序，在窗体上显示的第一行输出结果是 ___1 3 5 7 9__，第三行输出结果是
___4—, Form_Click()事件过程中的第二个 For-Next循环共执行了 ___2—次。
Opti on Explicit
Option Base 1
Private Sub Form_Click()
Dim a(5)As In teger, i As In teger, j As In teger
For i = 1 To 5
a(i)= 2 * i -1 ,打印出 1 3 5 7 9
Print a(i);
Next i
Print
Forj = 1 To i-2
Call Sub1(a(j), j)
Print j
Next j
End Sub
i
a(i)
1
1
2
3
3
5
4
7
5
9
a(j)
j/p
1
1
2
3
Public Sub Sub1(x As In teger, p As In teger)
If x - p = 2 The n
p = p + 1
x
p
1
1
2
Else
P = P + 2
End If
End Sub
1.执行下面的程序，单击窗体后在窗体上显示的内容是 _14___;若将程序中的A语句与B
语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是 _10_。
Opti on Explicit
Private Sub
文档评论（0）