资源简介

走
进
程
序
4.3 选择语句与程序设计
终端有哪些功能？
1.投入垃圾可以自动称重
2.投放后在显示屏上有反馈
若只有不可回收，则肯定文明行为；
若有可回收，则可以兑换奖励。
“投放”按钮的功能实现：
分析
问题
开始
投入垃圾
结束
可兑换礼品
肯定文明
行为
Y
N
1. 相比顺序结构，该结构特点是？
2. 两个分支最终执行了几个？
若只有不可回收，则肯定文明行为；
若有可回收，则可以兑换奖励
简化
若 ，则可以兑换奖品，
否则，肯定文明行为；
有“可回收”
可回收>0
02
结构特点
某个情况e为真？
step1
step2
Y
N
一般需要根据某个情况e判断，若结果为真，则执行处理步骤1，否则执行步骤2
选择结构在预定的两个步骤中会选择一个执行
If
语
句
双分支
行语句 if 条件表达式 then 语句1 else 语句2
块语句 If 条件表达式 then
语句块1
Else
语句块2
End if
一个行 if 语句必须放在一行内写完，最后没有End if
1. 说说下列算法max的作用
If a>b Then
max = a
Else
max =b
End If
设a表示不可回收垃圾的重量
b表示可回收垃圾的重量
If Then
显示可以兑换礼品
Else
肯定文明行为
End If
b>0
智能垃圾桶---牛刀小试
任务1
为“投放”按钮添加代码：
当投入可回收垃圾时，屏幕中显示“可以兑换礼品”----即显示图片11
若没有可回收垃圾时，显示“肯定文明行为”，即加载图片22
（1）用vb语句表达
（2）上机实现
设计
算法
智能垃圾桶---牛刀小试
任务1
（1）先用流程图表示算法
（2）用vb语句表达
b>0
显示可以
兑换礼品
肯定文明
行为
Y
N
If b > 0 Then
Picture1.Picture = LoadPicture(App.Path & "\" & "11.jpg") Else
Picture1.Picture = LoadPicture(App.Path & "\" & "22.jpg") End If
补全代码
某大楼的电梯限载13人，限重1000kg。在此范围正常运行，否则发出报警。在文本框1和文本框2分别输入人数和重量，单击按钮，若在正常范围，则按钮上显示“正常运行”，否则，按钮上显示“发出警报”并且按钮变为不可用。
a=val(text1.text)
b=val(text2.text)
If then
Command1.caption=”正常运行”
Else
Command2.catption=”发出警报”
Command1.Enabled=False
End if
a<=13 b<=1000
text1
text2
and
智能垃圾桶---进阶提高
为“兑换”按钮添加代码，实现下面效果：
若可回收垃圾重量为 b

任务2
b的值
屏幕显示结果
0兑换一份礼品---垃圾袋
5兑换一份礼品---洗碗布
10兑换一份礼品---小扫把
b>15
兑换一份礼品---洗衣液
智能垃圾桶---进阶提高
伪代码：
If 条件表达式1 then
语句1
Else
If 条件表达式2 then
语句2
Else
语句3
End if
End if


if 语句可以嵌套使用，但要嵌入完整的if语句
需要用几个elseif？
多分支语句格式
伪代码：
If then
语句块1
ElseIf then
语句块2
……
ElseIf then
语句块n
Else
语句块0
End If
b的值
屏幕显示结果
0兑换一份礼品---垃圾袋
5兑换一份礼品---洗碗布
10兑换一份礼品---小扫把
b>15
兑换一份礼品---洗衣液
If 条件表达式1 then
语句块1
ElseIf 条件表达式2 then
语句块2
……
ElseIf 条件表达式n then
语句块n
Else
语句块0
End If
0510伪代码：
If 0 语句块1
ElseIf 5 语句块2
……
ElseIf 10 语句块n
Elseif 15 语句块0
End If
b的值
051015b的值
屏幕显示结果
0兑换一份礼品---垃圾袋
5兑换一份礼品---洗碗布
10兑换一份礼品---小扫把
b>15
兑换一份礼品---洗衣液
伪代码：
If 0 语句块1
ElseIf 5 语句块2
……
ElseIf 10 语句块n
Else
语句块0
End If
注意：
1.多分支最多执行了几个分支？
2.上机时，条件表达式上机写成0If Then
Picture1.Picture = LoadPicture(App.Path & "\" & "ljd.jpg")
ElseIf Then
Picture1.Picture = LoadPicture(App.Path & "\" & "xwb.jpg")
ElseIf Then
Picture1.Picture = LoadPicture(App.Path & "\" & "xsb.jpg")
1
Picture1.Picture = LoadPicture(App.Path & "\" & "xyy.jpg")
End If
b的值
屏幕显示结果
0兑换一份礼品---垃圾袋
5兑换一份礼品---洗碗布
10兑换一份礼品---小扫把
b>15
兑换一份礼品---洗衣液
智能垃圾桶---进阶提高
b > 0 And b <= 5
b > 5 And b <= 10
b > 10 And b <= 15
b <= 15
b <= 10
Else
程序改进—学有余力
程序有哪些地方有待改进 ? ? ?
现状：对两种垃圾称重后，不管有无“可回收”垃圾，都可以“兑换”奖品；
改进：在程序运行时，单击“可回收”旁
的“称重”按钮时，“兑换”按钮可见。
巩固创新----校园智能垃圾桶
任务
将今天的程序改进，开发一款校园智能垃圾桶，
程序的界面设计、礼品兑换等更加符合中学生的喜好，
作品一经被政教处认可，将发放奖励！
作品一周后、两周内上交。
知识小结
01 分支结构
03
多分支语句
02 双分支语句
04 简单程序开发
单分支
If 条件表达式 then
语句1
Endi f
世面智能垃圾桶
世面智能垃圾桶
涉及技术：物联网技术
互联网技术
程序设计
……
1. 垃圾分类有必要吗？
2. 智能垃圾分类的优势有哪些？
3. 程序设计对生活的影响？
谢
谢
大
家

展开更多......

收起↑