初中信息技术浙教版（2020）八年级上册第6课 多分支结构程序设计练习题

这是一份初中信息技术浙教版（2020）八年级上册第6课 多分支结构程序设计练习题，共10页。试卷主要包含了6多分支结构程序设计一课一练，下面程序的执行结果是，下述程序段中y的值是等内容，欢迎下载使用。
一、单选题
1.下列程序运行后， 变量Value的值是( )
x=10
if x>=10：
Value=3*x
else：
Value=5*X+ 10
A. 30 B. 40 C. 50 D. 60
2.有如下程序段：
x=5
If x>5 Then
y=x^2-10
Else
y=4*x
End If
该程序段运行后，变量 y 的值是( )。
A.25
B.0
C.15
D.20
3.求1-100之间所有偶数和，请补充完成方框处代码( )。
s=0
fr i in range(101)：
If :
s=s+i
print (s)
A. i//2=0 B. i%2=0 C. i%2==0 D. i//2==0
4.下面程序的执行结果是（ ）(提示：Print语句是表示输出)
I=10
J=20
If I>J Then Print I Else Print J
A. 10 B. 20 C. 1020 D. 2010
5.下述程序段中y的值是（ ）
x=6
If x 10 then
a=a+i
Else
a=a-i
End if
A.0
B.10
C.20
D.30
7.分析以下程序，选择正确的输出结果
（1）.
A. 6 1 B. 11 6 C. 6 11 D. 5 6
（2）.
A. 2 B. true C. false D. 3
（3）.
A. 1020 B. 2010 C. 1010 D. 2020
（4）.
A. 15 B. 15 10 5 1 C. 15 10 5 0 D. 15 10 5
8.下列Pythn语法表述不正确的是（ ）。
A. 在if语句和while语句中，同一层次的语句模块每行必须是相同的缩进空格数。
B. while语句中，一般在循环体中要有改变判断条件的语句，否则会出现“死循环”。
C. Pythn用不同的缩进来表达逻辑层次。
D. else后可以不加冒号。
9.在Pythn中，运行以下程序得到的结果是（ ）
m=19
if m>=30 r m 350
Text2.Text = "中等"
Case Is >＝ 300
Text2.Text = "及格"
Case Else
Text2.Text = "不及格"
End Select
End Sub
语法错误：
该程序运行后，若在文本框中输入350，则输出为：
18.读程序写结果
（1）有如下一段VB程序：
i=4
a=5
If i > 3 Then a = a + 5
Else a = a + 2
End If
写出本程序段运行后，变量a的值________。
（2）Dim x As Integer, c As Integer, i As Integer
c = 0
Fr i = 1 T 12
If 12 Md i = 0 Then
c = c + 1
End If
Next i
Text1.Text = Str(c)
程序运行后，在文本框中输出为：________。
三、解答题
19.设计一个计算程序。该程序用户界面自己设计，由四个文本框：文本框1（text1，语文）、文本框2（text2，数学）、文本框3（text3，英语）、文本框4（text4，平均分），和三个按钮：命令按钮1（cmmand1，清空）、命令按钮2（cmmand2，计算）、命令按钮3（cmmand4，退出）组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。
20.设计出租车收费计算器VB程序，使其具有下列功能：在文本框Text1中输入行驶的路程，单击“计算”按钮Cmmand1，在文本框text2中显示所需的费用（注意：当行驶的公里数a≤3公里时，费用s为6.5元；当行驶的路程超过3公里时，3公里按6.5元计算，超出部分按每公里1.6元收费）。界面设计如图所示。

答案解析部分
一、单选题
1. A
2. D
3. C
4. B
5. C
6. A
7. （1）B
（2）C
（3）B
（4）D
8. D
9. B
10. C
11. C
12. D
13. C
14. A
15. （1）D
（2）D
（3）A
二、填空题
16. （1）Elif；else；多分支
（2）变量
（3）相等；!=；真（True）；假（False）
（4）pe==“/”；result=x/y
（5）保存；Run；F5
17. 没有加上数值检测函数；及格
18. （1）10
（2）6
三、解答题
19. 解：程序参考：
Private Sub Cmmand1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Cmmand2_Click()
If Text1. Text="" Or Text2.Text="" Or Text3.Text="" Then
MsgBx "成绩输入不全！
Else
Text4.Text=(Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text))/3
End If
Sub End
Private Sub Cmmand3_Click()
Unlad Me
End Sub
20. 解：
Private Sub Cmmand1_Click()
a = Val(Text1.Text)
If a b
a=10
b=20
If a>b then
Print a, b
Else
Print b, a
End if
Fr k=15 t 1 step -5
Print k；
next