选择结构的应用 - 水质评价程序设计 课件（25张幻灯片）

课件25张PPT。选择结构的应用水质评价程序设计知识回顾程序设计一般流程算法设计（流程图设计）界面设计（对象设计）代码设计（表达式与结构设计）选择结构的基本语法行if语句：
if 条件表达式 then 语句1
if 条件表达式 then 语句1 else 语句2块if语句：
If 条件表达式 then
语句块1
else
语句块2
End if多分支块if语句：
If 条件表达式1 then
语句块1
Elseif 条件表达式 2 then
语句块2
Else
语句块3
End if
选择结构的应用举例：判断某一年是否为闰年算法设计A ①Year 整除4 ②Year 整除 400 ③Year 整除100
B ①Year 整除400 ②Year 整除 4 ③Year 整除100
C ①Year 整除100 ②Year 整除 4 ③Year 整除 400
D ①Year 整除100 ②Year 整除 400 ③Year 整除 4
按照流程图，正确顺序应为：（ ）选择结构的应用算法设计A ①Year 整除4 ②Year 整除 400 ③Year 整除100
B ①Year 整除400 ②Year 整除 4 ③Year 整除100
C ①Year 整除100 ②Year 整除 4 ③Year 整除 400
D ①Year 整除100 ②Year 整除 400 ③Year 整除 4
按照流程图，正确顺序应为：（ D ）举例：判断某一年是否为闰年选择结构的应用一、判断某一年是否为闰年界面设计代码设计Private Sub Command1_Click()
Dim year As Integer
year = Val(Text1.Text)
If __________________ Then
If year Mod 400 = 0 Then
_______________________
Else
Label2.Caption = "不是闰年"
_______
ElseIf year Mod 4 = 0 Then
Label2.Caption = "是闰年"
Else
Label2.Caption = "不是闰年"
__________
End Sub选择结构的应用界面设计代码设计Private Sub Command1_Click()
Dim year As Integer
year = Val(Text1.Text)
If year Mod 100 = 0 Then
If year Mod 400 = 0 Then
Label2.Caption = "是闰年"
Else
Label2.Caption = "不是闰年"
End If
ElseIf year Mod 4 = 0 Then
Label2.Caption = "是闰年"
Else
Label2.Caption = "不是闰年"
End If
End Sub举例：判断某一年是否为闰年水质评价程序设计“绿水青山就是 金山银山”是时任浙江省委书记习近平同志于2005年8月在浙江湖州安吉考察时提出的科学论断。双江溪
杨浦水库
绍兴是著名的水乡，我们先来了解一下，水质的分类水质评价程序设计Ⅰ类主要适用于源头水、国家自然保护区；
Ⅱ类主要适用于集中式生活饮用水地表水源地一级保护区、珍稀水生生物栖息地、鱼虾类产场、仔稚幼鱼的索饵场等；
Ⅲ类主要适用于集中式生活饮用水地表水源地二级保护区、鱼虾类越冬场、洄游通道、水产养殖区等渔业水域及游泳区；
Ⅳ类主要适用于一般工业用水区及人体非直接接触的娱乐用水区；
Ⅴ类主要适用于农业用水区及一般景观要求水域。双江溪
杨浦水库
鉴湖
环城河
稻田
水质的分类：水质评价程序设计双江溪
杨浦水库
水质标准是如何判定的呢？绍兴的水质水质评价程序设计地表水环境质量标准?GB3838-2002水质评价程序设计算法设计界面设计水质评价程序设计算法设计界面设计水质评价程序设计代码设计Private Sub Command1_Click()
Dim dox As Single
Dim doxl As Integer
dox = ___________
If dox >= 7.5 Then
doxl = 1
ElseIf dox >= 6 Then
doxl = 2
ElseIf dox >= 5 Then
doxl = 3
Else
doxl = 4
__________
If ___________Then Label2.Caption = Mid("ⅠⅡⅢ", doxl, 1) + "类水质" Else Label2.Caption ="不达标水质"
End Sub水质评价程序设计代码设计Private Sub Command1_Click()
Dim dox As Single
Dim doxl As Integer
dox = Val(Text1.Text)
If dox >= 7.5 Then
doxl = 1
ElseIf dox >= 6 Then
doxl = 2
ElseIf dox >= 5 Then
doxl = 3
Else
doxl = 4
End If
If doxl <= 3 Then Label2.Caption = Mid("ⅠⅡⅢ", doxl, 1) + "类水质" Else Label2.Caption ="不达标水质"
End Sub水质评价程序设计添加指标：高锰酸盐指数运行结果水质评价程序设计程序设计水质评价程序设计程序设计水质评价程序设计添加代码
Dim pind As Single
Dim pindl As Integer
pind = Val(Text2.Text)
If pind <= 2 Then
pindl = 1
ElseIf pind <= 4 Then
pindl = 2
ElseIf pind <= 6 Then
pindl = 3
Else
pindl = 4
End If
If ________Then Label4.Caption = Mid("ⅠⅡⅢ", _______ , 1) + "类水质" Else Label4.Caption = "不达标水质"代码设计水质评价程序设计添加代码
Dim pind As Single
Dim pindl As Integer
pind = Val(Text2.Text)
If pind <= 2 Then
pindl = 1
ElseIf pind <= 4 Then
pindl = 2
ElseIf pind <= 6 Then
pindl = 3
Else
pindl = 4
End If
If pindl <= 3 Then Label4.Caption = Mid("ⅠⅡⅢ", pindl, 1) + "类水质" Else Label4.Caption = "不达标水质"代码设计水质评价程序设计添加指标：高锰酸盐指数，并获得综合结果（以较差的指标为综合结果）运行结果水质评价程序设计完成流程图：水质评价程序设计完成流程图：添加代码：水质评价程序设计Dim max as integer
If doxl > pindl Then Max = doxl Else Max = pindl
If ______Then Label6.Caption = Mid("ⅠⅡⅢ", Max, 1) + "类水质" Else Label6.Caption = "不达标水质"添加流程图：添加代码：水质评价程序设计Dim max as integer
If doxl > pindl Then Max = doxl Else Max = pindl
If Max <= 3 Then Label6.Caption = Mid("ⅠⅡⅢ", Max, 1) + "类水质" Else Label6.Caption = "不达标水质"添加流程图：添加代码：水质评价程序设计作业：
完成程序设计（保存于“姓名+学号”文件夹上交）课后思考：
有三个及以上的指标，如何获得综合结果