分支结构题型分析.docx
- 文档编号:8001495
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:17
- 大小:48.29KB
分支结构题型分析.docx
《分支结构题型分析.docx》由会员分享,可在线阅读,更多相关《分支结构题型分析.docx(17页珍藏版)》请在冰豆网上搜索。
分支结构题型分析
分支结构题型分析
(1)运行下面的程序,单击窗体后在窗体上显示的第一行结果是 [1] ;第二行结果是[2] ;第三行结果是 [3] 。
PrivateSubForm_Click()
DimiAsInteger,sAsInteger
Fori=1To10
s=s+i
Ifs>10Then
Prints
s=0
EndIf
Nexti
EndSub
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
(2)13
(3)17
(1)执行下面程序,第一行输出结果是 [1] ,第二行输出结果是 [2] 。
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=1:
b=0
DoWhilea<=5
b=b+a*a
a=a+1
Loop
Printa
Printb
EndSub
a
b
打印
0
1
0+1*1=1
2
1+2*2=5
3
5*3*3=14
4
14+4*4=30
5
30+5*5=55
6
6
55
答案:
(1)6
(2)55
2.执行下面的程序,第一行输出结果是___11___,第二行输出结果是___-20___。
OptionExplicit
PrivateSubForm_Click()
DimIAsInteger,JAsInteger
J=10
ForI=1ToJ
I=I+1
J=J-I
NextI
PrintI
PrintJ
EndSub
i
j
打印
0
10
1
2
10-2=8
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___。
OptionExplicit
PrivateSubForm_Click()
DimMAsInteger,NAsInteger,KAsInteger
N=-3
ForM=6To1StepN
M=M+1
N=N-M
K=K+1
NextM
PrintK
PrintN
EndSub
M
N
K
打印
6
-3
0
6+1=7
-3-7=-10
0+1=1
4
4+1=5
-10-5=-15
1+1=2
2
2+1=3
-15-3=-18
2+1=3
0
3
-18
34.在过程中由语句ForI=N1ToN2StepN3,在该循环体内有下列四条语句,其中___34___会影响循环执行的次数。
①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3
(A)①②(B)①②③(C)③(D)①②③④
答案:
C
分析:
当循环变量被改变了值后,将会影响循环次数。
4.执行下面程序,在窗体上显示的输出结果的第二行是___456___,第五行是___987___,第六行是___654___。
OptionExplicit
PrivateSubForm_Click()
Dima(3,3)AsInteger,iAsInteger
DimjAsInteger,kAsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
k=(i-1)*3
Fori=1To3
Forj=1To3
a(i,j)=k
k=k-1
Printa(i,j);
Nextj
Nexti
EndSub
123
456
789
k=9
987
654
321
分析:
退出循环后的循环变量为终值加步长。
5.执行下面的程序,在窗体上显示的第一行输出结果是___13579__,第三行输出结果是___4___,Form_Click()事件过程中的第二个For-Next循环共执行了___2___次。
OptionExplicit
OptionBase1
PrivateSubForm_Click()
Dima(5)AsInteger,iAsInteger,jAsInteger
Fori=1To5
a(i)=2*i–1‘打印出13579
Printa(i);
Nexti
Forj=1Toi-2
CallSub1(a(j),j)
Printj
Nextj
EndSub
i
a(i)
1
1
2
3
3
5
4
7
5
9
a(j)
j/p
1
1
2
3
PublicSubSub1(xAsInteger,pAsInteger)
Ifx-p<=2Then
p=p+1
Else
p=p+2
EndIf
EndSub
x
p
1
1
2
1.执行下面的程序,单击窗体后在窗体上显示的内容是___14___;若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是___10___。
OptionExplicit
PrivateSubForm_Click()
DimSumAsInteger,iAsInteger
Fori=7To4Step-1
SelectCasei
Case4,7
Sum=Sum+i'A语句
Case3,5
Sum=Sum+2'B语句
CaseElse
Sum=Sum+1
EndSelect
Nexti
Print"Sum=";Sum
EndSub
4.执行下面程序,当单击Command1后,列表框中显示的第一行是 ,第二行是 ,第三行是 。
PrivateSubCommand1_Click()
DimxAsInteger,kAsInteger
x=483
k=2
DoUntilx<=1
IfxModk=0Then
x=x\k
List1.AddItemStr(k)
Else
k=k+1
EndIf
Loop
EndSub
x
k
List1
483
2
161
3
161
4
5
6
23
7
23
…
1
23
1
答案:
4.3 7 23
9.下面程序的功能是通过键盘输入一个正整数N,找出所有分母为N,且数值介于1/3和1/4之间的最简分数(即分子、分母除1外无公因子)。
PrivateSubCommand1_Click()
DimIAsInteger,JAsInteger
DimNAsInteger,FlagAsBoolean
N=Val(InputBox("输入分母N:
",,11))
ForI=1ToN–1
【27】‘Flag=False
CallSub1(I,N,Flag)
If 【28】 Then‘Flag
PrintCStr(I);"/";CStr(N)
EndIf
NextI
EndSub
PribvateSubSub1(KAsInteger,NAsInteger,FAsBoolean)
DimIAsInteger
If 【29】 Then‘K/N>1/4andK/N<1/3
ForI=2Tok
If 【30】 Then‘Nmodi=0andkmodi=0
ExitSub
EndIf
NextI
F=True
EndIf
EndSub
答案:
【27】Flag=False
答案:
【28】Flag
答案:
【29】K/N>1/4andK/N<1/3
答案:
【30】Nmodi=0andkmodi=0
27.在SelectCaseX结构中,描述判断条件3≦X≦7的测试项应该写成___。
(A)Case3≦X≦7 (B)Case3≦X,X≦7
(C)CaseIs≦7,Is≧3 (D)Case3To7
答案:
D
分析:
SelectCase语句中的测试表达式,可以是数值表达式或字符串表达式,通常为变量或常量。
其中域值的表达式有以下三种形式:
(1)表达式[,表达式]……,例如:
Case2,4,6,8
(2)表达式To表达式。
例如:
Case1To5
(3)Is关系运算表达式,使用的运算符包括:
< <= > >= <> =
例如:
CaseIs=12
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 分支 结构 题型 分析